ConnectType = ConnectSSLAuto MsgBox "start to send email. ServerPort = 465 ' Set direct SSL connection oSmtp. Password = "testpassword" ' Set SSL 465 port oSmtp. ServerAddr = "" ' User and password for ESMTP authentication, if your server doesn't require ' User authentication, please remove the following codes. BodyText = "this is a test email sent from VB 6.0 project, do not reply" ' Your SMTP server address oSmtp. Subject = "simple email from VB 6.0 project" ' Set email body oSmtp. AddRecipientEx, 0 ' Set email subject oSmtp. FromAddr = ' Add recipient email address oSmtp. LicenseCode = "TryIt" ' Set your sender email address oSmtp. ConnectType = ConnectTryTLSĬonst ConnectNormal = 0 Const ConnectSSLAuto = 1 Const ConnectSTARTTLS = 2 Const ConnectDirectSSL = 3 Const ConnectTryTLS = 4 Private Sub Command1_Click () Dim oSmtp As New EASendMailObjLib. ConnectType = ConnectSSLAuto ' Try to send email by SSL/TLS connection, if server doesn't support SSL/TLS, normal TCP is used. ' If port is 25 or 587, STARTTLS TLS will be used otherwise direct SSL will be used. ConnectType = ConnectDirectSSL ' Send email by SSL/TLS connection with auto-detect. ConnectType = ConnectSTARTTLS ' Send email by SSL connection with direct SSL. ServerPort = 25 ' Send email by SSL connection with STARTTLS command switching oSmtp. VB 6.0 - Sample Projects for SMTP, SSL, TLS, Embedded Images, S/MIME, EWS, Email QueueĬonst ConnectNormal = 0 Const ConnectSSLAuto = 1 Const ConnectSTARTTLS = 2 Const ConnectDirectSSL = 3 Const ConnectTryTLS = 4 ' Send email by normal TCP/IP without SSL connection oSmtp.Send Email using Exchange WebDAV in VB 6.0.Manage Send As Permissions in Exchange 2007/2010/2013.Send Email using Exchange Web Service - EWS in VB 6.0.Send Mass Emails using Database Queue in ASP.Send Email with Multiple Threads(Mass Mail) in VB 6.0.Encrypt Email in VB 6.0 - S/MIME with RC2, 3DES and RSAES-OAEP.Send Email with Digital Signature in VB 6.0 - S/MIME with SHA1, SHA256 and SHA512.Send Email with Embedded Images in VB 6.0.Send Email directly without SMTP server(MX DNS lookup) in VB 6.0.App Password and SmtpClientAuthenticationDisabled.Send Email using Hotmail/Live/Outlook/Office 365 in VB 6.0.SMTP Setting for Gmail, Yahoo, Hotmail and Office 365.Process Bounced Email (Non-Delivery Report).“No supported authentication marshal found!”.“5xx Must issue a STARTTLS command first”.“5xx … IP address block or on black list or bad reputation” Exception.Using Telnet to detect networking connection to SMTP server.Common “Socket/Networking Connection” Error.Email Address Syntax and Multiple Recipients.Where can I get my SMTP email server address, user and password?.Send email in a simple VB6 project using SMTP protocol.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |