Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(VB.NET) MedTunnel: Get Message AttachmentSee more MedTunnel ExamplesGet a specific attachment of a message. The MessageId and AttachmentId are obtained from the "Get Mailbox Messages" example. For more information, see https://server.medtunnel.com/apidocs/html/M_MedTunnelMsg_Controllers_MessageController_GetAttachment.htm
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As New Chilkat.Http Dim success As Boolean ' Implements the following CURL command: ' curl -X GET -k ' -H "Authorization:PutAuthorizationTokenHere" ' https://server.medtunnel.com/medtunnelmsg/api/Message/GetAttachment?messageid=989448&attachmentid=424857&setreadflag=false ' Use the following online tool to generate HTTP code from a CURL command ' Convert a cURL Command to HTTP Source Code http.SetRequestHeader("Authorization","PutAuthorizationTokenHere") ' The messageId and attachmentId are contained in the response from reading the mailbox messages. http.SetUrlVar("messageId","989448") http.SetUrlVar("attachmentId","424857") http.SetUrlVar("setReadFlag","false") ' Download the attachment data into bd. Dim bd As New Chilkat.BinData success = http.QuickGetBd("https://server.medtunnel.com/MedTunnelMsg/api/Message/GetAttachment?messageid={$messageId}&attachmentid={$attachmentId}&setreadflag={$setReadFlag}",bd) If (success = False) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If Dim respStatusCode As Integer = http.LastStatus Debug.WriteLine("Response Status Code = " & respStatusCode) If (respStatusCode >= 400) Then Debug.WriteLine("Response Header:") Debug.WriteLine(http.LastHeader) ' For errors, the response body contains an error message instead of the actual attachment data. Debug.WriteLine("Response Body:") Debug.WriteLine(bd.GetString("utf-8")) Debug.WriteLine("Failed.") Exit Sub End If ' Save the attachment data. ' The attachment filename is also contained in the response from reading the mailbox messages. success = bd.WriteFile("qa_output/starfish.jpg") If (success <> True) Then Debug.WriteLine("Failed to save attachment file.") Else Debug.WriteLine("Success.") End If |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.