Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) Send Signed and Encrypted EDI Email (EDIFACT)Demonstrates how to send a signed and encrypted EDI email (EDIFACT email).
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' 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. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.MailMan") set mailman = CreateObject("Chilkat.MailMan") ' 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 = 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. success = mailman.AddPfxSourceFile("/pfx_files/myCertAndPrivateKey.pfx","secret") If (success <> 1) Then outFile.WriteLine(mailman.LastErrorText) WScript.Quit 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 <> 1) Then outFile.WriteLine(cert.LastErrorText) WScript.Quit End If ' Indicate that the email is to be sent encrypted. email.SendEncrypted = 1 ' 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 = 1 ' 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 = 1 ' Send the signed/encrypted EDI email success = mailman.SendEmail(email) If (success <> 1) Then outFile.WriteLine(mailman.LastErrorText) Else outFile.WriteLine("Mail Sent!") End If outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.