(Excel) MedTunnel: Send Message Text Only

See more MedTunnel Examples

Demonstrates 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

Download Excel Class Modules Chilkat Excel Class Modules

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim http As Chilkat.Http
Set http = Chilkat.NewHttp

' 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

Dim req As Chilkat.HttpRequest
Set req = Chilkat.NewHttpRequest
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"


Set resp = http.SynchronousRequest("server.medtunnel.com",443,True,req)
If (http.LastMethodSuccess = False) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim sbResponseBody As Chilkat.StringBuilder
Set sbResponseBody = Chilkat.NewStringBuilder
Dim success As Boolean
success = resp.GetBodySb(sbResponseBody)
Dim jResp As Chilkat.JsonObject
Set jResp = Chilkat.NewJsonObject
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = False

Debug.Print "Response Body:"
Debug.Print jResp.Emit()


respStatusCode = resp.StatusCode
Debug.Print "Response Status Code = "; respStatusCode
If (respStatusCode >= 400) Then
    Debug.Print "Response Header:"
    Debug.Print resp.Header
    Debug.Print "Failed."

    Exit Sub
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..
Dim jsonData As Chilkat.JsonObject
Set jsonData = Chilkat.NewJsonObject
success = jsonData.Load(Data)
jsonData.EmitCompact = False
Debug.Print jsonData.Emit()

' {
'   "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