B4X
Send GMail with Attachments

Demonstrates how to send an email containing attachments using the GMail REST API.
Chilkat B4X Downloads

B4X
Dim success As Boolean = False

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

'  Use the Chilkat Email API to create or load an email.
Dim email As ChilkatEmail
email.Initialize

'  The From name/address don't need to be specified. 
'  GMail will automatically use your Gmail address if the following 2 lines are omitted.
email.FromName = "My Name"
email.FromAddress = "my_account_name@gmail.com"

email.AddTo("John Smith", "somebody@somewhere.com")
'  To add more recipients, make additional calls to AddTo or AddCC, one per recipient...

email.Subject = "This is a test GMail email created using Chilkat."
email.Charset = "utf-8"
email.AddPlainTextAlternativeBody("This is a test")

'  Create an HTML email body with an embedded image.
Dim cid As String = email.AddRelatedFile("qa_data/jpg/starfish.jpg")
Dim sbHtml As ChilkatStringBuilder
sbHtml.Initialize
sbHtml.Append("<html><body>This is a <b>test</b><br><img src=" & Chr(34) & "cid:STARFISH_CID" & Chr(34) & "/></body></html>")
Dim numReplacements As Int = sbHtml.Replace("STARFISH_CID", cid)

email.AddHtmlAlternativeBody(sbHtml.GetAsString)

'  Add some attachments..
Dim mimeType As String = email.AddFileAttachment("qa_data/helloWorld.pdf")
If email.LastMethodSuccess <> True Then
    Log("Failed to add PDF attachment.")
    Return
End If

mimeType = email.AddFileAttachment("qa_data/msword/sample2.docx")
If email.LastMethodSuccess <> True Then
    Log("Failed to add MS-Word attachment.")
    Return
End If


'  OK.. we now have an HTML email with 2 attachments..
Dim sbMime As ChilkatStringBuilder
sbMime.Initialize
email.GetMimeSb(sbMime)

'  Send the email.  (GMail has a 5MB limit on the total email size.)
Dim http As ChilkatHttp
http.Initialize("http")
http.AuthToken = "GMAIL-ACCESS-TOKEN"

'  Send using the simple upload request for the Gmail API
Dim url As String = "https://www.googleapis.com/upload/gmail/v1/users/me/messages/send?uploadType=media"
Dim sendGzipped As Boolean = True

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpSb("POST", url, sbMime, "utf-8", "message/rfc822", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


'  A status code of 200 indicates success.
Log("Response status code: " & resp.StatusCode)
Log("Response body:")
Log(resp.BodyStr)

'  The response body contains JSON.
'  Use the online tool at Generate JSON Parsing Code
'  to generate JSON parsing code.

'  A sample successful JSON response:

'  {
'   "id": "166f0d4ac39e50bf",
'   "threadId": "166f0d4ac39e50bf",
'   "labelIds": [
'    "SENT"
'   ]
'  }