Xbase++
Send GMail with Attachments

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

Xbase++
LOCAL nSuccess
LOCAL oEmail
LOCAL cCid
LOCAL oSbHtml
LOCAL nNumReplacements
LOCAL cMimeType
LOCAL oSbMime
LOCAL oHttp
LOCAL cUrl
LOCAL nSendGzipped
LOCAL oResp

nSuccess := 0

//  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.
oEmail := CreateObject("Chilkat.Email")

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

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

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

//  Create an HTML email body with an embedded image.
cCid := oEmail:AddRelatedFile("qa_data/jpg/starfish.jpg")
oSbHtml := CreateObject("Chilkat.StringBuilder")
oSbHtml:Append('<html><body>This is a <b>test</b><br><img src="cid:STARFISH_CID"/></body></html>')
nNumReplacements := oSbHtml:Replace("STARFISH_CID", cCid)

oEmail:AddHtmlAlternativeBody(oSbHtml:GetAsString())

//  Add some attachments..
cMimeType := oEmail:AddFileAttachment("qa_data/helloWorld.pdf")
IF (oEmail:LastMethodSuccess != 1)
    ? "Failed to add PDF attachment."
    oEmail:destroy()
    oSbHtml:destroy()
    RETURN
ENDIF

cMimeType := oEmail:AddFileAttachment("qa_data/msword/sample2.docx")
IF (oEmail:LastMethodSuccess != 1)
    ? "Failed to add MS-Word attachment."
    oEmail:destroy()
    oSbHtml:destroy()
    RETURN
ENDIF

//  OK.. we now have an HTML email with 2 attachments..
oSbMime := CreateObject("Chilkat.StringBuilder")
oEmail:GetMimeSb(oSbMime)

//  Send the email.  (GMail has a 5MB limit on the total email size.)
oHttp := CreateObject("Chilkat.Http")
oHttp:AuthToken := "GMAIL-ACCESS-TOKEN"

//  Send using the simple upload request for the Gmail API
cUrl := "https://www.googleapis.com/upload/gmail/v1/users/me/messages/send?uploadType=media"
nSendGzipped := 1

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpSb("POST", cUrl, oSbMime, "utf-8", "message/rfc822", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oEmail:destroy()
    oSbHtml:destroy()
    oSbMime:destroy()
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

//  A status code of 200 indicates success.
? "Response status code: " + Str(oResp:StatusCode)
? "Response body:"
? oResp: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"
//   ]
//  }

oEmail:destroy()
oSbHtml:destroy()
oSbMime:destroy()
oHttp:destroy()
oResp:destroy()