Add DomainKey-Signature Header to MIME / Email

Demonstrates how to add a DomainKey-Signature header field to a MIME message.

Note: The DKIM / DomainKey functionality is included with the Chilkat MIME license.

Download Chilkat FileAccess ActiveX (freeware)

Download Chilkat MIME ActiveX

LOCAL loDkim
LOCAL lnSuccess
LOCAL lcPassword
LOCAL loMimeData
LOCAL loFac
LOCAL loDomainKeySignedMime
LOCAL lnFacSuccess

*  Important: It is helpful to send the contents of the
*  dkim.LastErrorText property when requesting support.

loDkim = CreateObject('Chilkat.Dkim')

*  Any string automatically begins a fully-functional 30-day trial.

lnSuccess = loDkim.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loDkim.LastErrorText)
    QUIT
ENDIF

*  To create a DomainKey signature for email (i.e. MIME),
*  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 DomainKey signature via an
*  external email client supporting DomainKey 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 DomainKey DNS record creation.
*  (Chilkat does not provide an API for creating DNS records.
*  Creating the DomainKey DNS record is something you would do
*  manually.)

*  Set the domain and selector:
*  You'll need to provide your own values here..
loDkim.DomainKeyDomain = "chilkatsoft.com"
loDkim.DomainKeySelector = "salmon"

*  Load a private key from any common RSA private key
*  format, such as DER, PKCS8, PEM, XML, etc.
*  The LoadDomainKeyPkFile method automatically detects
*  the file format and reads it appropriately.
*  If a password is not required, you'll still need to provide
*  a password string argument, but it is ignored.

lcPassword = "optionalPassword"
lnSuccess = loDkim.LoadDomainKeyPkFile("myPrivateKey.pem",lcPassword)
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loDkim.LastErrorText)
    QUIT
ENDIF

*  Load a MIME file into a byte array.

loFac = CreateObject('Chilkat.FileAccess')
loMimeData = loFac.ReadEntireFile("testMessage.eml")

*  Sign it.  This adds the DomainKey-Signature header and
*  returns the new MIME with DomainKey-Signature added.

loDomainKeySignedMime = loDkim.AddDomainKeySignature(loMimeData)

lnFacSuccess = loFac.WriteEntireFile("domainKeySigned.eml", loDomainKeySignedMime)
IF (lnFacSuccess = 0) THEN
    =MESSAGEBOX(loFac.LastErrorText)
    QUIT
ENDIF

=MESSAGEBOX("Success.")