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
(Visual FoxPro) Send Email with hotmail.com, live.com, or outlook.comSee more SMTP ExamplesSend email using your Microsoft hotmail.com, live.com, or outlook.com account via the smtp.office365.com SMTP server. See the Guide for Creating an Application to Send Email from Hotmail.com, Live.com, or Outlook.com
LOCAL loMailman LOCAL loJson LOCAL lnSuccess LOCAL loEmail * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.MailMan') loMailman = CreateObject('Chilkat.MailMan') loMailman.SmtpHost = "smtp.office365.com" loMailman.SmtpPort = 587 loMailman.StartTLS = 1 * This could be your hotmail.com, live.com, or outlook.com account. loMailman.SmtpUsername = "yourName@live.com" * Load the previously saved OAuth2 access token. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject') loJson = CreateObject('Chilkat.JsonObject') lnSuccess = loJson.LoadFile("qa_data/tokens/hotmail.json") IF (lnSuccess = 0) THEN ? loJson.LastErrorText RELEASE loMailman RELEASE loJson CANCEL ENDIF loMailman.OAuth2AccessToken = loJson.StringOf("access_token") * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Email') loEmail = CreateObject('Chilkat.Email') * Note: If you send an email such as this, it can easily go to your Junk or Trash email folders. loEmail.Subject = "This is a test" loEmail.Body = "This is a test" * This could be your hotmail.com, live.com, or outlook.com account. loEmail.From = "My Hotmail Account <yourName@live.com>" lnSuccess = loEmail.AddTo("Joe Example","joe@example.com") lnSuccess = loMailman.OpenSmtpConnection() IF (lnSuccess <> 1) THEN ? loMailman.LastErrorText ? "ConnectFailReason = " + STR(loMailman.ConnectFailReason) RELEASE loMailman RELEASE loJson RELEASE loEmail CANCEL ENDIF lnSuccess = loMailman.SmtpAuthenticate() IF (lnSuccess <> 1) THEN ? loMailman.LastErrorText RELEASE loMailman RELEASE loJson RELEASE loEmail CANCEL ENDIF lnSuccess = loMailman.SendEmail(loEmail) IF (lnSuccess <> 1) THEN ? loMailman.LastErrorText RELEASE loMailman RELEASE loJson RELEASE loEmail CANCEL ENDIF loMailman.CloseSmtpConnection() ? "Email Sent." RELEASE loMailman RELEASE loJson RELEASE loEmail |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.