|
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
(AutoIt) Send HTML Email with CSS as Related Item using Content-LocationDemonstrates how to compose an HTML email with an external CSS file included as a related item and referenced by Content-Location. Some email clients display embedded (related) content best using CID's (Content-IDs), whereas other email clients display related content best by Content-Location. The choice you make may depend on the software used by the intended recipient of your email. (Does' the recipient read email on an iPhone? Android? Outlook? GMail? Thunderbird? etc.)
; This example requires the Chilkat API to have been previously unlocked. ; See Global Unlock Sample for sample code. ; The mailman object is used for sending and receiving email. $oMailman = ObjCreate("Chilkat.MailMan") ; Use your SMTP server hostname. This example uses office365, but it could be any SMTP server.. $oMailman.SmtpHost = "outlook.office365.com" $oMailman.SmtpPort = 587 $oMailman.StartTLS = True ; Set the SMTP login/password $oMailman.SmtpUsername = "OFFICE365-SMTP-LOGIN" $oMailman.SmtpPassword = "OFFICE365-SMTP-PASSWORD" ; Create a new email object $oEmail = ObjCreate("Chilkat.Email") $oEmail.Subject = "HTML Email with embedded CSS" $oEmail.From = "Chilkat Support <my-office365-user@mydomain.com>" $oEmail.AddTo("Chilkat Support","support@chilkatsoft.com") $oSbCss = ObjCreate("Chilkat.StringBuilder") Local $bCrlf = True $oSbCss.AppendLine("body {",$bCrlf) $oSbCss.AppendLine(" background-color: powderblue;",$bCrlf) $oSbCss.AppendLine("}",$bCrlf) $oSbCss.AppendLine("h1 {",$bCrlf) $oSbCss.AppendLine(" color: blue;",$bCrlf) $oSbCss.AppendLine("}",$bCrlf) $oSbCss.AppendLine("p {",$bCrlf) $oSbCss.AppendLine(" color: red;",$bCrlf) $oSbCss.AppendLine("}",$bCrlf) ; The filenameInHtml is what should exists within the HTML (in the href atribute) Local $sFilenameInHtml = "styles.css" ; Call AddRelatedString2 to use Content-Location. $oEmail.AddRelatedString2 $sFilenameInHtml,$oSbCss.GetAsString(),"utf-8" $oSbHtml = ObjCreate("Chilkat.StringBuilder") $oSbHtml.AppendLine("<!DOCTYPE html>",$bCrlf) $oSbHtml.AppendLine("<html>",$bCrlf) $oSbHtml.AppendLine("<head>",$bCrlf) $oSbHtml.AppendLine(" <link rel=""stylesheet"" href=""styles.css"">",$bCrlf) $oSbHtml.AppendLine("</head>",$bCrlf) $oSbHtml.AppendLine("<body>",$bCrlf) $oSbHtml.AppendLine("",$bCrlf) $oSbHtml.AppendLine("<h1>This is a heading</h1>",$bCrlf) $oSbHtml.AppendLine("<p>This is a paragraph.</p>",$bCrlf) $oSbHtml.AppendLine("",$bCrlf) $oSbHtml.AppendLine("</body>",$bCrlf) $oSbHtml.AppendLine("</html>",$bCrlf) $oEmail.SetHtmlBody $oSbHtml.GetAsString() Local $bSuccess = $oMailman.SendEmail($oEmail) If ($bSuccess <> True) Then ConsoleWrite($oMailman.LastErrorText & @CRLF) Else ConsoleWrite("Mail Sent!" & @CRLF) EndIf |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.