![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual FoxPro) Send GMail with AttachmentsDemonstrates how to send an email containing attachments using the GMail REST API. Note: This example requires Chilkat v11.0.0 or greater.
LOCAL lnSuccess LOCAL loEmail LOCAL lcCid LOCAL loSbHtml LOCAL lnNumReplacements LOCAL lcMimeType LOCAL loSbMime LOCAL loHttp LOCAL lcUrl LOCAL lnSendGzipped LOCAL loResp lnSuccess = 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. loEmail = 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. loEmail.FromName = "My Name" loEmail.FromAddress = "my_account_name@gmail.com" loEmail.AddTo("John Smith","somebody@somewhere.com") * To add more recipients, make additional calls to AddTo or AddCC, one per recipient... loEmail.Subject = "This is a test GMail email created using Chilkat." loEmail.Charset = "utf-8" loEmail.AddPlainTextAlternativeBody("This is a test") * Create an HTML email body with an embedded image. lcCid = loEmail.AddRelatedFile("qa_data/jpg/starfish.jpg") loSbHtml = CreateObject('Chilkat.StringBuilder') loSbHtml.Append('<html><body>This is a <b>test</b><br><img src="cid:STARFISH_CID"/></body></html>') lnNumReplacements = loSbHtml.Replace("STARFISH_CID",lcCid) loEmail.AddHtmlAlternativeBody(loSbHtml.GetAsString()) * Add some attachments.. lcMimeType = loEmail.AddFileAttachment("qa_data/helloWorld.pdf") IF (loEmail.LastMethodSuccess <> 1) THEN ? "Failed to add PDF attachment." RELEASE loEmail RELEASE loSbHtml CANCEL ENDIF lcMimeType = loEmail.AddFileAttachment("qa_data/msword/sample2.docx") IF (loEmail.LastMethodSuccess <> 1) THEN ? "Failed to add MS-Word attachment." RELEASE loEmail RELEASE loSbHtml CANCEL ENDIF * OK.. we now have an HTML email with 2 attachments.. loSbMime = CreateObject('Chilkat.StringBuilder') loEmail.GetMimeSb(loSbMime) * Send the email. (GMail has a 5MB limit on the total email size.) loHttp = CreateObject('Chilkat.Http') loHttp.AuthToken = "GMAIL-ACCESS-TOKEN" * Send using the simple upload request for the Gmail API lcUrl = "https://www.googleapis.com/upload/gmail/v1/users/me/messages/send?uploadType=media" lnSendGzipped = 1 loResp = CreateObject('Chilkat.HttpResponse') lnSuccess = loHttp.HttpSb("POST",lcUrl,loSbMime,"utf-8","message/rfc822",loResp) IF (lnSuccess = 0) THEN ? loHttp.LastErrorText RELEASE loEmail RELEASE loSbHtml RELEASE loSbMime RELEASE loHttp RELEASE loResp CANCEL ENDIF * A status code of 200 indicates success. ? "Response status code: " + STR(loResp.StatusCode) ? "Response body:" ? loResp.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" * ] * } RELEASE loEmail RELEASE loSbHtml RELEASE loSbMime RELEASE loHttp RELEASE loResp |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.