Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicCkPythonChilkat2-PythonRubySQL ServerSwift 2Swift 3/4TclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcelGo

DataFlex Examples

Web API Categories

ASN.1
Amazon Glacier
Amazon S3
Amazon S3 (new)
Amazon SES
Amazon SNS
Amazon SQS
Async
Azure Cloud Storage
Azure Service Bus
Base64
Bounced Email
Box
CAdES
CSR
CSV
Certificates
Compression
DKIM / DomainKey
DSA
Diffie-Hellman
Digital Signatures
Dropbox
Dynamics CRM
ECC
Email Object
Encryption
FTP
FileAccess
Firebase
GMail REST API
Geolocation
Google APIs
Google Calendar
Google Cloud Storage
Google Drive
Google Photos
Google Sheets
Google Tasks
Gzip
HTML-to-XML/Text

HTTP
HTTP Misc
IMAP
JSON
JSON Web Encryption (JWE)
JSON Web Signatures (JWS)
JSON Web Token (JWT)
Java KeyStore (JKS)
MHT / HTML Email
MIME
Microsoft Graph
NTLM
OAuth1
OAuth2
OneDrive
OpenSSL
Outlook
PEM
PFX/P12
POP3
PRNG
REST
REST Misc
RSA
SCP
SFTP
SMTP
SSH
SSH Key
SSH Tunnel
SharePoint
Socket/SSL/TLS
Spider
Stream
Tar Archive
Upload
WebSocket
XAdES
XML
XML Digital Signatures
XMP
Zip
curl

 

 

 

(DataFlex) Create HTML Email Reply

The goal of this example is to create a new HTML body where the new reply HTML is at the top, and the original HTML body is below.

The .eml files for this example are available at HTML Reply Email Samples (.eml)

Note: This is only one of a million ways to do it..

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoEmail
    Boolean iSuccess
    Handle hoSbHtml
    Integer iNumReplaced
    Handle hoSbBodyContent
    Handle hoSbTemplate
    Boolean iBCrlf
    String sMyHtmlReplyBody
    String sTemp1
    Boolean bTemp1

    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End

    //  To create this example, I used Mozilla Thunderbird (with a GMail accont)
    //  to first send a simple HTML email to my chilkatsoft.com email address.  I then
    //  used Thunderbird to reply with more HTML.
    //  I then saved both emails as .eml files.  These are available at
    //  http://chilkatdownload.com/example_data/htmlreplyemail.zip

    //  Load the .eml for the 1st email that was received. This is the original
    //  HTML email before the reply HTML is added.
    Get ComLoadEml Of hoEmail "qa_data/eml/receivedHtmlEmail.eml" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    //  If this email doesn't have an HTML body, then do something else...
    //  (that's for another example maybe?)
    Get ComHasHtmlBody Of hoEmail To bTemp1
    If (bTemp1 = False) Begin
        Showln "Email does not have an HTML body.."
        Procedure_Return
    End

    //  Get the HTML body in a StringBuilder..
    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbHtml
    If (Not(IsComObjectCreated(hoSbHtml))) Begin
        Send CreateComObject of hoSbHtml
    End
    Get ComGetHtmlBody Of hoEmail To sTemp1
    Get ComAppend Of hoSbHtml sTemp1 To iSuccess

    //  The HTML body contains this:
    //  <html><head>
    //  <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
    //    </head>
    //    <body bgcolor="#FFFFFF" text="#000000">
    //      <font face="Calibri"><br>
    //        This is a test <font color="#3366ff"><i>HTML email</i></font>...<br>
    //        <br>
    //        <br>
    //      </font>
    //    </body>
    //  </html>

    //  Make sure the BODY tags are lowercase.
    Get ComReplace Of hoSbHtml "<BODY" "<body" To iNumReplaced
    Get ComReplace Of hoSbHtml "</BODY" "</body" To iNumReplaced

    //  Get the HTML within the "body" open/close tags
    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbBodyContent
    If (Not(IsComObjectCreated(hoSbBodyContent))) Begin
        Send CreateComObject of hoSbBodyContent
    End
    Get ComGetAfterBetween Of hoSbHtml "<body" ">" "</body>" To sTemp1
    Get ComAppend Of hoSbBodyContent sTemp1 To iSuccess

    //  Replace what we just extracted with a marker..
    Get ComGetAsString Of hoSbBodyContent To sTemp1
    Get ComReplace Of hoSbHtml sTemp1 "TO_BE_UPDATED" To iNumReplaced

    //  Create a template for the new body:
    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbTemplate
    If (Not(IsComObjectCreated(hoSbTemplate))) Begin
        Send CreateComObject of hoSbTemplate
    End
    Move True To iBCrlf
    Get ComAppendLine Of hoSbTemplate "REPLY_HTML_CONTENT" iBCrlf To iSuccess
    Get ComAppendLine Of hoSbTemplate "<br>" iBCrlf To iSuccess
    Get ComAppendLine Of hoSbTemplate '<div class="moz-signature">Best Regards,<br>' iBCrlf To iSuccess
    Get ComAppendLine Of hoSbTemplate "  John Smith<br>" iBCrlf To iSuccess
    Get ComAppendLine Of hoSbTemplate "  Chilkat Software, Inc.<br>" iBCrlf To iSuccess
    Get ComAppendLine Of hoSbTemplate "  <p>" iBCrlf To iSuccess
    Get ComAppendLine Of hoSbTemplate '    <a href="https://twitter.com/chilkatsoft">Follow Chilkat on' iBCrlf To iSuccess
    Get ComAppendLine Of hoSbTemplate "      Twitter</a>" iBCrlf To iSuccess
    Get ComAppendLine Of hoSbTemplate "  </p>" iBCrlf To iSuccess
    Get ComAppendLine Of hoSbTemplate "</div>" iBCrlf To iSuccess
    Get ComAppendLine Of hoSbTemplate '<div class="moz-cite-prefix">On 2/8/2017 4:25 PM, Chilkat Support' iBCrlf To iSuccess
    Get ComAppendLine Of hoSbTemplate "  wrote:<br>" iBCrlf To iSuccess
    Get ComAppendLine Of hoSbTemplate "</div>" iBCrlf To iSuccess
    Get ComAppendLine Of hoSbTemplate "<blockquote>" iBCrlf To iSuccess
    Get ComAppendLine Of hoSbTemplate "ORIGINAL_BODY_CONTENT" iBCrlf To iSuccess
    Get ComAppendLine Of hoSbTemplate "</blockquote>" iBCrlf To iSuccess
    Get ComAppendLine Of hoSbTemplate "<br>" iBCrlf To iSuccess

    //  Replace the markers in the template with actual HTML.
    //  First our reply HTML:
    Move 'This is my <font color="#6600cc"><b>reply HTML</b></font><br>' To sMyHtmlReplyBody
    Get ComReplace Of hoSbTemplate "REPLY_HTML_CONTENT" sMyHtmlReplyBody To iNumReplaced

    //  Now for the original HTML body content:
    Get ComGetAsString Of hoSbBodyContent To sTemp1
    Get ComReplace Of hoSbTemplate "ORIGINAL_BODY_CONTENT" sTemp1 To iNumReplaced

    //  Insert into sbHtml:
    Get ComGetAsString Of hoSbTemplate To sTemp1
    Get ComReplace Of hoSbHtml "TO_BE_UPDATED" sTemp1 To iNumReplaced

    //  Use sbHtml as the new HTML body..
    Get ComGetAsString Of hoSbHtml To sTemp1
    Send ComSetHtmlBody To hoEmail sTemp1

    //  Examine the result HTML.
    Get ComGetAsString Of hoSbHtml To sTemp1
    Showln sTemp1

    //  Save the email.
    Get ComSaveEml Of hoEmail "qa_output/emailWithUpdatedHtmlBody.eml" To iSuccess

    //  Note: To finish creating the reply email, modify the To/From/CC headers,
    //  the subject, etc.  You may also with to iterate over the headers (from 1 to NumHeaderFields)
    //  and selectively remove all except the particular headers you wish to keep.
    //  You should keep: MIME-Version, Content-Type, Message-ID.  Chilkat will automaticaly
    //  generate and replace the Message-ID at the time of sending.  You'll want to replace
    //  the Date header with the current date/time.
    // 


End_Procedure

 

© 2000-2019 Chilkat Software, Inc. All Rights Reserved.