Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) Send Signed and Encrypted EDI Email (EDIFACT)Demonstrates how to send a signed and encrypted EDI email (EDIFACT email).
' 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. Dim mailman As Chilkat.MailMan Set mailman = Chilkat.NewMailMan ' Create a new email object ' Build the basic EDI email where the body is the EDIFACT message: ediMsg = "UNB+IATB:1+6XPPC ..." name = "something" filename = "something" charset = "iso-8859-1" email.SetEdifactBody ediMsg,name,filename,charset email.Subject = "This is the subject" email.From = "Chilkat Admin <admin@chilkatsoft.com>" success = email.AddTo("Chilkat Support","support@chilkatsoft.com") ' Indicate that the email should be sent signed. email.SendSigned = True ' 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. success = mailman.AddPfxSourceFile("/pfx_files/myCertAndPrivateKey.pfx","secret") If (success <> True) Then Debug.Print mailman.LastErrorText Exit Sub End If ' 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. success = cert.LoadFromFile("/certs/recipientCert.cer") If (success <> True) Then Debug.Print cert.LastErrorText Exit Sub End If ' Indicate that the email is to be sent encrypted. email.SendEncrypted = True ' Indicate that we want 192-bit 3DES encryption: email.Pkcs7CryptAlg = "3des" email.Pkcs7KeyLength = 192 ' Specify the certificate to be used for encryption. success = email.SetEncryptCert(cert) ' Tell the mailman to use an opaque signature (as opposed to a detached signature) mailman.OpaqueSigning = True ' SMTP server (use your settings and refer to the online ' reference documentation for more options) mailman.SmtpHost = "smtp.mymailserver.com" mailman.SmtpUsername = "myLogin" mailman.SmtpPassword = "myPassword" mailman.SmtpPort = 587 mailman.StartTLS = True ' Send the signed/encrypted EDI email success = mailman.SendEmail(email) If (success <> True) Then Debug.Print mailman.LastErrorText Else Debug.Print "Mail Sent!" End If |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.