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,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) Send a Simple HTML EmailDemonstrates how to send a simple HTML email (i.e. with no images, style sheets, etc.).
' 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. Dim mailman As Chilkat.MailMan Set mailman = Chilkat.NewMailMan ' Set the SMTP server. mailman.SmtpHost = "smtp.chilkatsoft.com" ' Set the SMTP login/password (if required) mailman.SmtpUsername = "myUsername" mailman.SmtpPassword = "myPassword" ' Create a new email object Dim email As Chilkat.Email Set email = Chilkat.NewEmail email.Subject = "This is a test" email.SetHtmlBody "<html><body><p>This is <b>bold text</b>, this is a <a href=""http://www.chilkatsoft.com/"">hyperlink</a></p></body></html>" email.From = "Chilkat Support <support@chilkatsoft.com>" success = 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. success = mailman.SendEmail(email) If (success <> True) Then Debug.Print mailman.LastErrorText Exit Sub End If ' Some SMTP servers do not actually send the email until ' the connection is closed. In these cases, it is necessary to ' call CloseSmtpConnection for the mail to be sent. ' Most SMTP servers send the email immediately, and it is ' not required to close the connection. We'll close it here ' for the example: success = mailman.CloseSmtpConnection() If (success <> True) Then Debug.Print "Connection to SMTP server not closed cleanly." End If Debug.Print "Mail Sent!" |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.