Xbase++

Send Signed and Encrypted EDI Email (EDIFACT)

Demonstrates how to send a signed and encrypted EDI email (EDIFACT email). Xbase++

LOCAL nSuccess
LOCAL oMailman
LOCAL oEmail
LOCAL cEdiMsg
LOCAL cName
LOCAL cFilename
LOCAL cCharset
LOCAL oCert

nSuccess := 0

//  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 := CreateObject("Chilkat.MailMan")

//   Create a new email object

//   Build the basic EDI email where the body is the EDIFACT message:
cEdiMsg := "UNB+IATB:1+6XPPC ..."
cName := "something"
cFilename := "something"
cCharset := "iso-8859-1"
oEmail:SetEdifactBody(cEdiMsg, cName, cFilename, cCharset)

oEmail:Subject := "This is the subject"
oEmail:From := "Chilkat Admin <admin@chilkatsoft.com>"
nSuccess := oEmail:AddTo("Chilkat Support", "support@chilkatsoft.com")

//   Indicate that the email should be sent signed.
oEmail:SendSigned := 1

//   Tell the mailman to use a PFX file as a source for locating
//   the certificate and private key required for signing.
//   The certificate chosen for signing will be the one that
//   matches the sender's email address, which also has
//   a private key.  All intermediate certs in the chain of
//   authentication, up to and including the root, will
//   be included in the signature.
nSuccess := oMailman:AddPfxSourceFile("/pfx_files/myCertAndPrivateKey.pfx", "secret")
IF (nSuccess != 1)
    ? oMailman:LastErrorText
    oMailman:destroy()
    RETURN
ENDIF

//   Load the .cer file into a certificate object.
//   When sending S/MIME encrypted email, it is the recipient's
//   certificate that is used for encryption.  Only the public key
//   is needed to encrypt.  The recipient is the only
//   one possessing the private key, and therefore is the only
//   one able to decrypt.

nSuccess := oCert:LoadFromFile("/certs/recipientCert.cer")
IF (nSuccess != 1)
    ? oCert:LastErrorText
    oMailman:destroy()
    RETURN
ENDIF

//   Indicate that the email is to be sent encrypted.
oEmail:SendEncrypted := 1

//   Indicate that we want 192-bit 3DES encryption:
oEmail:Pkcs7CryptAlg := "3des"
oEmail:Pkcs7KeyLength := 192

//   Specify the certificate to be used for encryption.
nSuccess := oEmail:SetEncryptCert(oCert)

//   Tell the mailman to use an opaque signature (as opposed to a detached signature)
oMailman:OpaqueSigning := 1

//   SMTP server (use your settings and refer to the online
//   reference  documentation for more options)
oMailman:SmtpHost := "smtp.mymailserver.com"
oMailman:SmtpUsername := "myLogin"
oMailman:SmtpPassword := "myPassword"
oMailman:SmtpPort := 587
oMailman:StartTLS := 1

//   Send the signed/encrypted EDI email
nSuccess := oMailman:SendEmail(oEmail)
IF (nSuccess != 1)
    ? oMailman:LastErrorText
ELSE
    ? "Mail Sent!"
ENDIF

oMailman:destroy()