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 Email using office365 SMTPDemonstrates how to send an email using Office365.
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 to Office365's SMTP server. // Note: Please be sure to double-check the SMTP settings // with your provider or with the official Office365 documentation // provided by Microsoft. The required settings could change... loo_Mailman.SmtpHost = "smtp.office365.com" loo_Mailman.SmtpPort = 587 loo_Mailman.StartTLS = 1 // Set the SMTP login/password loo_Mailman.SmtpUsername = "OFFICE365_USERNAME" loo_Mailman.SmtpPassword = "OFFICE365_PASSWORD" // 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 = "My Name <my_office365_email@example.com>" li_Success = loo_Email.AddTo("Chilkat Admin","admin@chilkatsoft.com") // 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.