|
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
(Classic ASP) MedTunnel: Send Message Text OnlySee more MedTunnel ExamplesDemonstrates the MedTunnel SendMessage method to send a message to one or more recipients. For more information, see https://server.medtunnel.com/apidocs/html/M_MedTunnelMsg_Controllers_MessageController_SendMessage.htm
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http") set http = Server.CreateObject("Chilkat.Http") ' Implements the following CURL command: ' curl https://server.medtunnel.com/MedTunnelMsg/api/Message/SendMessage -X POST -k ' -F "ApplicationId=yourApplicationId" -F "LocationId=yourLocationId" ' -F "MedTunnelId=yourMedTunnelId" -F "MedTunnelPassword=yourMedTunnelPassword" ' -F "To=recipientsMedTunnelId" ' -F "Body=Test of SendMessage" ' Use the following online tool to generate HTTP code from a CURL command ' Convert a cURL Command to HTTP Source Code ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.HttpRequest") set req = Server.CreateObject("Chilkat.HttpRequest") req.HttpVerb = "POST" req.Path = "/MedTunnelMsg/api/Message/SendMessage" req.ContentType = "multipart/form-data" req.AddParam "ApplicationId","yourApplicationId" req.AddParam "LocationId","yourLocationId" req.AddParam "MedTunnelId","yourMedTunnelId" req.AddParam "MedTunnelPassword","yourMedTunnelPassword" req.AddParam "To","recipientsMedTunnelId" req.AddParam "Body","Test" ' resp is a Chilkat.HttpResponse Set resp = http.SynchronousRequest("server.medtunnel.com",443,1,req) If (http.LastMethodSuccess = 0) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbResponseBody = Server.CreateObject("Chilkat.StringBuilder") success = resp.GetBodySb(sbResponseBody) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jResp = Server.CreateObject("Chilkat.JsonObject") success = jResp.LoadSb(sbResponseBody) jResp.EmitCompact = 0 Response.Write "<pre>" & Server.HTMLEncode( "Response Body:") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( jResp.Emit()) & "</pre>" respStatusCode = resp.StatusCode Response.Write "<pre>" & Server.HTMLEncode( "Response Status Code = " & respStatusCode) & "</pre>" If (respStatusCode >= 400) Then Response.Write "<pre>" & Server.HTMLEncode( "Response Header:") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( resp.Header) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Failed.") & "</pre>" Response.End End If ' Sample JSON response: ' (Sample code for parsing the JSON response is shown below) ' { ' "ReturnCode": 1, ' "ReturnCodeText": "Success", ' "Data": "{\"Id\":989432,\"FromUserId\":36990,\"FromMailBoxId\":36965, ... \"SendGlobalNotifications\":false}" ' } ' Sample code for parsing the JSON response... ' Use the following online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON ReturnCode = jResp.IntOf("ReturnCode") ReturnCodeText = jResp.StringOf("ReturnCodeText") Data = jResp.StringOf("Data") ' Load the Data into another JSON object and parse.. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonData = Server.CreateObject("Chilkat.JsonObject") success = jsonData.Load(Data) jsonData.EmitCompact = 0 Response.Write "<pre>" & Server.HTMLEncode( jsonData.Emit()) & "</pre>" ' { ' "Id": 989436, ' "FromUserId": 36990, ' "FromMailBoxId": 36965, ' "FromUserType": 0, ' "FromUserName": "...", ' "FromUserFullName": "...", ' "FromUserAccountName": "...", ' "FromUserAccountTitle": "...", ' "ToUserId": 36990, ' "ToUserType": 1, ' "ToUserMailboxId": "36965", ' "ToUserName": "...", ' "ToUserFullName": "...", ' "EmailAddress": "", ' "Password": "", ' "Subject": "", ' "PatientMedTunnelId": "", ' "Body": "Test", ' "DateReceived": "4/29/2021 2:29:18 PM", ' "DisplayDateReceived": "04/29/2021 2:29 PM", ' "ViewCount": 0, ' "ViewedOn": "", ' "AttachmentCount": 0, ' "AttachmentNames": [ ' ], ' "AllRecipients": [ ' { ' "Id": 989436, ' "UserName": "...", ' "AccountId": 0, ' "AccountName": "...", ' "AccountTitle": "", ' "FirstName": "...", ' "LastName": "...", ' "EmailAddress": "", ' "LastSentOn": "", ' "SendCount": 0, ' "IsFavorite": false ' } ' ], ' "Status": 1, ' "ParentMessageId": 989436, ' "DistributionListId": 0, ' "DistributionListName": "", ' "BodyHistory": "", ' "ReadReceiptCallbackUrl": null, ' "SendGlobalNotifications": false ' } ' Id = jsonData.IntOf("Id") FromUserId = jsonData.IntOf("FromUserId") FromMailBoxId = jsonData.IntOf("FromMailBoxId") FromUserType = jsonData.IntOf("FromUserType") FromUserName = jsonData.StringOf("FromUserName") FromUserFullName = jsonData.StringOf("FromUserFullName") FromUserAccountName = jsonData.StringOf("FromUserAccountName") FromUserAccountTitle = jsonData.StringOf("FromUserAccountTitle") ToUserId = jsonData.IntOf("ToUserId") ToUserType = jsonData.IntOf("ToUserType") ToUserMailboxId = jsonData.StringOf("ToUserMailboxId") ToUserName = jsonData.StringOf("ToUserName") ToUserFullName = jsonData.StringOf("ToUserFullName") EmailAddress = jsonData.StringOf("EmailAddress") Password = jsonData.StringOf("Password") Subject = jsonData.StringOf("Subject") PatientMedTunnelId = jsonData.StringOf("PatientMedTunnelId") Body = jsonData.StringOf("Body") DateReceived = jsonData.StringOf("DateReceived") DisplayDateReceived = jsonData.StringOf("DisplayDateReceived") ViewCount = jsonData.IntOf("ViewCount") ViewedOn = jsonData.StringOf("ViewedOn") AttachmentCount = jsonData.IntOf("AttachmentCount") Status = jsonData.IntOf("Status") ParentMessageId = jsonData.IntOf("ParentMessageId") DistributionListId = jsonData.IntOf("DistributionListId") DistributionListName = jsonData.StringOf("DistributionListName") BodyHistory = jsonData.StringOf("BodyHistory") ReadReceiptCallbackUrl = jsonData.StringOf("ReadReceiptCallbackUrl") SendGlobalNotifications = jsonData.BoolOf("SendGlobalNotifications") i = 0 count_i = jsonData.SizeOfArray("AttachmentNames") Do While i < count_i jsonData.I = i i = i + 1 Loop i = 0 count_i = jsonData.SizeOfArray("AllRecipients") Do While i < count_i jsonData.I = i Id = jsonData.IntOf("AllRecipients[i].Id") UserName = jsonData.StringOf("AllRecipients[i].UserName") AccountId = jsonData.IntOf("AllRecipients[i].AccountId") AccountName = jsonData.StringOf("AllRecipients[i].AccountName") AccountTitle = jsonData.StringOf("AllRecipients[i].AccountTitle") FirstName = jsonData.StringOf("AllRecipients[i].FirstName") LastName = jsonData.StringOf("AllRecipients[i].LastName") EmailAddress = jsonData.StringOf("AllRecipients[i].EmailAddress") LastSentOn = jsonData.StringOf("AllRecipients[i].LastSentOn") SendCount = jsonData.IntOf("AllRecipients[i].SendCount") IsFavorite = jsonData.BoolOf("AllRecipients[i].IsFavorite") i = i + 1 Loop %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.