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) SMTP using HTTP ProxyDemonstrates how to communicate with an SMTP server via an HTTP proxy.
' 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 ' To connect through an HTTP proxy, set the HttpProxyHostname ' and HttpProxyPort properties to the hostname (or IP address) ' and port of the HTTP proxy. Typical port numbers used by ' HTTP proxy servers are 3128 and 8080. mailman.HttpProxyHostname = "www.my-http-proxy.com" mailman.HttpProxyPort = 3128 ' Important: Your HTTP proxy server must allow non-HTTP ' traffic to pass. Otherwise this does not work. ' 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.Body = "This is a test" email.From = "Chilkat Support <support@chilkatsoft.com>" success = email.AddTo("Chilkat Admin","admin@chilkatsoft.com") ' Call SendEmail to connect to the SMTP server via the HTTP proxy 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.