Xbase++

Send DKIM Signed Email

See more DKIM / DomainKey Examples

Demonstrates how to send DKIM signed email. Xbase++

LOCAL nSuccess
LOCAL oMailman
LOCAL oDkim
LOCAL oEmail
LOCAL oBdMime
LOCAL cPassword
LOCAL oPrivKey
LOCAL cStrRecipients
LOCAL cStrFrom

nSuccess := 0

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

oMailman := CreateObject("Chilkat.MailMan")
oDkim := CreateObject("Chilkat.Dkim")

//  SMTP server settings...
oMailman:SmtpHost := "SMTP_DOMAIN"
oMailman:SmtpUsername := "SMTP_LOGIN"
oMailman:SmtpPassword := "SMTP_PASSWORD"
oMailman:SmtpPort := 465
oMailman:SmtpSsl := 1

oEmail := CreateObject("Chilkat.Email")

oEmail:Subject := "This is a test"
oEmail:Body := "This is a test"
oEmail:From := "Chilkat Support <support@chilkatsoft.com>"

//  Add some recipients (BCC recipients are added below)
oEmail:AddTo("Chilkat Software", "chilkat_software@yahoo.com")
oEmail:AddTo("Chilkat Admin", "admin@chilkatsoft.com")
oEmail:AddCC("Chilkat Admin", "admin@chilkat.io")

//  When sending an email with a DKIM signature, the MIME
//  of the email must not be modified prior to
//  or during the sending process.  Therefore, the MIME of the
//  email is assembled, the DKIM signature is added, and then
//  SendMimeBd is called to send the email.

//  First get the MIME of the email.  Calling RenderToMimeBd 
//  causes the email to be signed and/or encrypted if those options
//  have been selected.  The MIME returned by RenderToMimeBd
//  is the exact MIME that would've been sent if SendEmail was
//  called.  We'll add a DKIM signature header to this MIME and then send...
oBdMime := CreateObject("Chilkat.BinData")
nSuccess := oMailman:RenderToMimeBd(oEmail, oBdMime)
IF (nSuccess == 0)
    ? oMailman:LastErrorText
    oMailman:destroy()
    oDkim:destroy()
    oEmail:destroy()
    oBdMime:destroy()
    RETURN
ENDIF

//  To create a DKIM signature,
//  you'll need to provide the following:
//  (1) An RSA private key in any common file format.
//  (2) The domain name (typically the same domain
//  as the sender of an email).
//  (3) A selector for the domain name -- an arbitrary string
//  to identify the matching public key in DNS.

//  To allow an email recipient to verify the DKIM signature via an
//  external email client supporting DKIM or using other software,
//  you will need to create a DNS record with the selector
//  and matching public key.  This example does not provide
//  information about DKIM DNS record creation.  
//  (Chilkat does not provide an API for creating DNS records.  
//  Creating the DKIM DNS record is something you would do
//  manually.)

//  Set the domain and selector:
//  You'll need to provide your own values here..
oDkim:DkimDomain := "chilkatsoft.com"
oDkim:DkimSelector := "brisbane"

//  Load a private key from any common RSA private key
//  format, such as DER, PKCS8, PEM, XML, etc.
//  The LoadDkimPkFile method automatically detects
//  the file format and reads it appropriately.
//  If a password is not required, you'll still need to provide
//  an empty password string argument, but it is ignored.
cPassword := "passwd"
oPrivKey := CreateObject("Chilkat.PrivateKey")
nSuccess := oPrivKey:LoadAnyFormatFile("qa_data/pem/rsa_passwd.pem", cPassword)
IF (nSuccess == 0)
    ? oPrivKey:LastErrorText
    oMailman:destroy()
    oDkim:destroy()
    oEmail:destroy()
    oBdMime:destroy()
    oPrivKey:destroy()
    RETURN
ENDIF

nSuccess := oDkim:SetDkimPrivateKey(oPrivKey)
IF (nSuccess == 0)
    ? oDkim:LastErrorText
    oMailman:destroy()
    oDkim:destroy()
    oEmail:destroy()
    oBdMime:destroy()
    oPrivKey:destroy()
    RETURN
ENDIF

//  Add the DKIM-Signature header to the MIME in bdMime
nSuccess := oDkim:DkimSign(oBdMime)
IF (nSuccess == 0)
    ? oDkim:LastErrorText
    oMailman:destroy()
    oDkim:destroy()
    oEmail:destroy()
    oBdMime:destroy()
    oPrivKey:destroy()
    RETURN
ENDIF

//  If desired, examine the MIME of the email being sent.
oBdMime:WriteFile("qa_output/dkimSigned.eml")

//  ---- Prepare to send the email contained in bdMime ---

//  To send to multiple email addresses, the strRecipients should be set to a comma-separated
//  list of email addresses.

//  Note: This is where we can add additional BCC addreses.
//  Here we are adding "chilkat.support@gmail.com" as an additional BCC address.
//  Notice that the 1st three email addresses are NOT BCC because these email addresses
//  appear in the MIME header of the email (in the "To" and "CC" header fields).
//  A BCC email address does not appear in the MIME, and thus the non-BCC recipients cannot see
//  that the email was also sent to the BCC address.  (BCC means "blind carbon copy")
cStrRecipients := "chilkat_software@yahoo.com, admin@chilkatsoft.com, admin@chilkat.io, chilkat.support@gmail.com"
cStrFrom := "support@chilkatsoft.com"

nSuccess := oMailman:SendMimeBd(cStrFrom, cStrRecipients, oBdMime)
IF (nSuccess == 0)
    ? oMailman:LastErrorText
    oMailman:destroy()
    oDkim:destroy()
    oEmail:destroy()
    oBdMime:destroy()
    oPrivKey:destroy()
    RETURN
ENDIF

nSuccess := oMailman:CloseSmtpConnection()
IF (nSuccess != 1)
    ? "Connection to SMTP server not closed cleanly."
ENDIF

? "DKIM Signed Mail Sent!"

oMailman:destroy()
oDkim:destroy()
oEmail:destroy()
oBdMime:destroy()
oPrivKey:destroy()