|
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
(VBScript) SendGrid HTML Email with Embedded ImagesSee more SendGrid ExamplesDemonstrates how to send an HTML email with embedded images using SendGrid.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' This requires 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.HttpRequest") set req = CreateObject("Chilkat.HttpRequest") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http") set http = CreateObject("Chilkat.Http") ' First.. load a JPG file and build an HTML img tag with the JPG data inline encoded. ' Our HTML img tag will look like this: ' <img src="data:image/jpeg;base64,/9j/4AAQSkZJRgABAQEA3ADcAA..." alt="" style="border-width:0px;" /> ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData") set bdJpg = CreateObject("Chilkat.BinData") success = bdJpg.LoadFile("qa_data/jpg/starfish.jpg") If (success = 0) Then outFile.WriteLine("Failed to load JPG file.") WScript.Quit End If ' Note: HTML containing embedded base64 image data may not be visible in all email clients. ' For example, GMail might not display the image, but viewing in Outlook might be OK. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbHtml = CreateObject("Chilkat.StringBuilder") success = sbHtml.Append("<html><body><b>This is a test<b><br /><img src=""data:image/jpeg;base64,") ' Append the base64 image data to sbHtml. success = bdJpg.GetEncodedSb("base64",sbHtml) success = sbHtml.Append(""" alt="""" style=""border-width:0px;"" /></body></html>") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set json = CreateObject("Chilkat.JsonObject") success = json.UpdateString("personalizations[0].to[0].email","matt@chilkat.io") success = json.UpdateString("personalizations[0].to[0].name","Matt") success = json.UpdateString("from.email","admin@chilkatsoft.com") success = json.UpdateString("subject","Test HTML email with images") success = json.UpdateString("content[0].type","text/html") success = json.UpdateSb("content[0].value",sbHtml) http.AuthToken = "SENDGRID_API_KEY" ' resp is a Chilkat.HttpResponse Set resp = http.PostJson3("https://api.sendgrid.com/v3/mail/send","application/json",json) If (http.LastMethodSuccess <> 1) Then outFile.WriteLine(http.LastErrorText) Else outFile.WriteLine("response status code: " & resp.StatusCode) ' Display the response. ' If successful, the response code is 202 and the response body string is empty. ' (The response body string may also be empty for error response codes.) outFile.WriteLine(resp.BodyStr) End If outFile.Close |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.