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
(DataFlex) Send Email using office365 SMTPDemonstrates how to send an email using Office365.
Use ChilkatAx-9.5.0-win32.pkg Procedure Test Handle hoMailman Boolean iSuccess Variant vEmail Handle hoEmail String sTemp1 // The mailman object is used for sending and receiving email. Get Create (RefClass(cComChilkatMailMan)) To hoMailman If (Not(IsComObjectCreated(hoMailman))) Begin Send CreateComObject of hoMailman End // Any string argument automatically begins the 30-day trial. Get ComUnlockComponent Of hoMailman "30-day trial" To iSuccess If (iSuccess <> True) Begin Get ComLastErrorText Of hoMailman To sTemp1 Showln sTemp1 Procedure_Return End // 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... Set ComSmtpHost Of hoMailman To "smtp.office365.com" Set ComSmtpPort Of hoMailman To 587 Set ComStartTLS Of hoMailman To True // Set the SMTP login/password Set ComSmtpUsername Of hoMailman To "OFFICE365_USERNAME" Set ComSmtpPassword Of hoMailman To "OFFICE365_PASSWORD" // Create a new email object Get Create (RefClass(cComChilkatEmail)) To hoEmail If (Not(IsComObjectCreated(hoEmail))) Begin Send CreateComObject of hoEmail End Set ComSubject Of hoEmail To "This is a test" Set ComBody Of hoEmail To "This is a test" Set ComFrom Of hoEmail To "My Name <my_office365_email@example.com>" Get ComAddTo Of hoEmail "Chilkat Admin" "admin@chilkatsoft.com" To iSuccess // 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. Get pvComObject of hoEmail to vEmail Get ComSendEmail Of hoMailman vEmail To iSuccess If (iSuccess <> True) Begin Get ComLastErrorText Of hoMailman To sTemp1 Showln sTemp1 Procedure_Return End Get ComCloseSmtpConnection Of hoMailman To iSuccess If (iSuccess <> True) Begin Showln "Connection to SMTP server not closed cleanly." End Showln "Mail Sent!" End_Procedure |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.