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 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(PowerBuilder) Send High Priority Email (SMTP, X-Priority header)Demonstrates how to send high-priorty email (or lower priority email) by setting the X-Priority header field.
integer li_rc oleobject loo_Mailman integer li_Success oleobject loo_Email // The mailman object is used for sending and receiving email. loo_Mailman = create oleobject li_rc = loo_Mailman.ConnectToNewObject("Chilkat_9_5_0.MailMan") if li_rc < 0 then destroy loo_Mailman MessageBox("Error","Connecting to COM object failed") return end if // Any string argument automatically begins the 30-day trial. li_Success = loo_Mailman.UnlockComponent("30-day trial") if li_Success <> 1 then Write-Debug loo_Mailman.LastErrorText destroy loo_Mailman return end if // Set the SMTP server (obviously, use your SMTP server, not chilkatsoft.com) loo_Mailman.SmtpHost = "smtp.chilkatsoft.com" // Set the SMTP login/password (if required) loo_Mailman.SmtpUsername = "myUsername" loo_Mailman.SmtpPassword = "myPassword" // Create a new email object loo_Email = create oleobject li_rc = loo_Email.ConnectToNewObject("Chilkat_9_5_0.Email") loo_Email.Subject = "This is a test" loo_Email.Body = "This is a test" loo_Email.From = "Chilkat Support <support@chilkatsoft.com>" li_Success = loo_Email.AddTo("Chilkat Admin","admin@chilkatsoft.com") // To add more recipients, call AddTo, AddCC, or AddBcc once per recipient. // To send high-priority email, // add the X-Priority header field with the value "1" // to indicate highest-priority. // A value of "3" is normal, which is the same as not setting // the X-Priority header at all, and "5" is the lowest. // "2" and "4" are in-betweens. // Microsoft Outlook might add the following headers when // sending high-priority email. // X-Priority: 1 (Highest) // X-MSMail-Priority: High // Importance: High // The X-Priority header alone is enough to make the email high-priority. loo_Email.AddHeaderField("X-Priority","1") // Call SendEmail to connect to the SMTP server and send. // The connection (i.e. session) to the SMTP server remains // open so that subsequent SendEmail calls may use the // same connection. li_Success = loo_Mailman.SendEmail(loo_Email) if li_Success <> 1 then Write-Debug loo_Mailman.LastErrorText destroy loo_Mailman destroy loo_Email return end if li_Success = loo_Mailman.CloseSmtpConnection() if li_Success <> 1 then Write-Debug "Connection to SMTP server not closed cleanly." end if Write-Debug "Mail Sent!" destroy loo_Mailman destroy loo_Email |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.