ProxyProtocol Property


This property indicates the proxy server protocol (Socks4/Socks5/HTTP).

Data Type: Long

Value Meaning
0 Socks4
1 (Default) Socks5
2 Http

Remarks

If SocksProxyServer is not specified, the direct connection will be used; otherwise the proxy connection will be used. We don't suggest that you use the proxy server except it is your only choice.

Example

[Visual Basic] To get the full samples of EASendMail, please refer to Samples section.

[VB6, VBA - Send Email via Socks4, Socks5, HTTP Proxy Server]  
Const ConnectNormal = 0
Const ConnectSSLAuto = 1
Const ConnectSTARTTLS = 2
Const ConnectDirectSSL = 3
Const ConnectTryTLS = 4

Private Sub SendEmail()
    Dim oSmtp As EASendMailObjLib.Mail
    Set oSmtp = New EASendMailObjLib.Mail
    oSmtp.LicenseCode = "TryIt"

    ' Your SMTP server address
    oSmtp.ServerAddr = "smtp.emailarchitect.net"

    ' User and password for ESMTP authentication
    oSmtp.UserName = "test@emailarchitect.net"
    oSmtp.Password = "testpassword"

    ' ConnectTryTLS means if server supports SSL/TLS connection, SSL/TLS is used automatically
    oSmtp.ConnectType = ConnectTryTLS

    ' If your server uses 587 port 
    ' oSmtp.ServerPort = 587

    ' If your server uses 465 port with SSL/TLS 
    ' oSmtp.ConnectType = ConnectSSLAuto 
    ' oSmtp.ServerPort = 465

    ' If your server uses 25/587 port with SSL/TLS 
    ' oSmtp.ConnectType = ConnectSSLAuto 
    ' oSmtp.ServerPort = 587

    ' Your proxy server address
    oSmtp.SocksProxyServer = "192.168.0.1"
    oSmtp.SocksProxyPort = 1080
    ' if your proxy doesn't requires user authentication, 
    ' please don't assign any value to SocksProxyUser and SocksProxyPassword properties 
    oSmtp.SocksProxyUser = "tester"
    oSmtp.SocksProxyPassword = "pass"
    oSmtp.ProxyProtocol = 1 ' Socks5 proxy

    oSmtp.FromAddr = "test@emailarchitect.net"
    oSmtp.AddRecipient "Support Team", "support@emailarchitect.net", 0
        
    oSmtp.Subject = "Test email from proxy server"
    oSmtp.BodyText = "Hello, this is a test...."

    If oSmtp.SendMail() = 0 Then
        MsgBox "Message delivered!"
    Else
        MsgBox oSmtp.GetLastErrDescription()
    End If
End Sub


[ASP, VBScript - Send Email via Socks4, Socks5, HTTP Proxy Server] Const ConnectNormal = 0 Const ConnectSSLAuto = 1 Const ConnectSTARTTLS = 2 Const ConnectDirectSSL = 3 Const ConnectTryTLS = 4 Dim oSmtp Set oSmtp = Server.CreateObject("EASendMailObj.Mail") oSmtp.LicenseCode = "TryIt" ' Your SMTP server address oSmtp.ServerAddr = "smtp.emailarchitect.net" ' User and password for ESMTP authentication oSmtp.UserName = "test@emailarchitect.net" oSmtp.Password = "testpassword" ' ConnectTryTLS means if server supports SSL/TLS connection, SSL/TLS is used automatically oSmtp.ConnectType = ConnectTryTLS ' If your server uses 587 port ' oSmtp.ServerPort = 587 ' If your server uses 465 port with SSL/TLS ' oSmtp.ConnectType = ConnectSSLAuto ' oSmtp.ServerPort = 465 ' If your server uses 25/587 port with SSL/TLS ' oSmtp.ConnectType = ConnectSSLAuto ' oSmtp.ServerPort = 587 ' Your proxy server address oSmtp.SocksProxyServer = "192.168.0.1" oSmtp.SocksProxyPort = 1080 ' if your proxy doesn't requires user authentication, ' please don't assign any value to SocksProxyUser and SocksProxyPassword properties oSmtp.SocksProxyUser = "tester" oSmtp.SocksProxyPassword = "pass" oSmtp.ProxyProtocol = 1 ' Socks5 proxy oSmtp.FromAddr = "test@emailarchitect.net" oSmtp.AddRecipient "Support Team", "support@emailarchitect.net", 0 oSmtp.Subject = "Test email from proxy server" oSmtp.BodyText = "Hello, this is a test...." If oSmtp.SendMail() = 0 Then Response.Write "Message delivered!" Else Response.Write oSmtp.GetLastErrDescription() End If

See Also

Bulk Email Sender Guidelines
SocksProxyServer Property
SocksProxyPort Property
SocksProxyUser Property
SocksProxyPassword Property