Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
Send email using smtp.gmail.com with SSL (port 465).Send email using smtp.gmail.com with SSL (port 465).
' The mailman object is used for sending and receiving email. Dim mailman As New Chilkat.MailMan() ' Any string argument automatically begins the 30-day trial. Dim success As Boolean success = mailman.UnlockComponent("30-day trial") If (success <> true) Then MsgBox("Component unlock failed") Exit Sub End If ' Set the SMTP server. mailman.SmtpHost = "smtp.gmail.com" mailman.SmtpUsername = "chilkat.support" mailman.SmtpPassword = "myPassword" mailman.SmtpSsl = true mailman.SmtpPort = 465 ' Create a new email object Dim email As New Chilkat.Email() email.Subject = "This is a test" email.Body = "This is a test" email.From = "Chilkat Support <chilkat.support@gmail.com>" email.AddTo("Chilkat Admin","admin@chilkatsoft.com") success = mailman.SendEmail(email) If (success <> true) Then MsgBox(mailman.LastErrorText) Exit Sub End If success = mailman.CloseSmtpConnection() If (success <> true) Then MsgBox("Connection to SMTP server not closed cleanly.") End If MsgBox("Mail Sent!") |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.