Chilkat HOME Android™ Classic ASP C C++ C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic Python Ruby SQL Server Swift Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js
(Visual Basic 6.0) Send a Simple Email
Create a simple email and sends it. The SendEmail method establishes a connection (session) with the SMTP server if necessary, and leaves the connection open so that additional sends may proceed using the same session. The SMTP connection (session) may be explicitly closed by calling CloseSmtpSession.
Important: 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.
' The mailman object is used for sending and receiving email. Dim mailman As New ChilkatMailMan ' Any string argument automatically begins the 30-day trial. Dim success As Long success = mailman.UnlockComponent("30-day trial") If (success <> 1) Then Text1.Text = Text1.Text & mailman.LastErrorText & vbCrLf Exit Sub End If ' 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 New ChilkatEmail email.Subject = "This is a test" email.Body = "This is a test" email.From = "Chilkat Support <email@example.com>" success = email.AddTo("Chilkat Admin","firstname.lastname@example.org") ' To add more recipients, call AddTo, AddCC, or AddBcc once per recipient. ' 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 <> 1) Then Text1.Text = Text1.Text & mailman.LastErrorText & vbCrLf 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 <> 1) Then Text1.Text = Text1.Text & "Connection to SMTP server not closed cleanly." & vbCrLf End If Text1.Text = Text1.Text & "Mail Sent!" & vbCrLf
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.