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