Отправка E-mail через PROXY

bolahg · 02.02.2013, 18:04

Добрый день,
Подскажите пожалуйста как отправить e-mail через прокси
Я делал вот так:

PHP код:


			
Option Explicit

 

Sub Send_Mail()

    Const CDO_Cnf = "//schemas.microsoft.com/cdo/configuration/"

    Dim oCDOCnf As Object, oCDOMsg As Object

    Dim SMTPserver As String, sUsername As String, sPass As String, sMsg As String, proxy As String

    Dim sTo As String, sFrom As String, sSubject As String, sBody As String, sAttachment As String

    On Error Resume Next

    SMTPserver = "smtp.bk.ru"   

    sUsername = "userbk.ru"   

    sPass = "password"  

    proxy = "107.7.144.62:80"

    If Len(SMTPserver) = 0 Then MsgBox "Не указан SMTP сервер", vbInformation, "email vba": Exit Sub

    If Len(sUsername) = 0 Then MsgBox "Не указана учетная запись", vbInformation, "email vba": Exit Sub

    If Len(sPass) = 0 Then MsgBox "Не указан пароль", vbInformation, "email vba": Exit Sub

 

    sTo = "tosendyandex.ru"  

    sFrom = "userbk.ru"   

    sSubject = "TEST"  

    sBody = "Привет от TEST"  

  

    Set oCDOCnf = CreateObject("CDO.Configuration")

 

    With oCDOCnf.Fields

        .Item("//schemas.microsoft.com/cdo/configuration/urlproxyserver").Value = proxy

        .Item(CDO_Cnf & "sendusing") = 2

        .Item(CDO_Cnf & "smtpauthenticate") = 1

        .Item(CDO_Cnf & "smtpserver") = SMTPserver

        .Item(CDO_Cnf & "sendusername") = sUsername

        .Item(CDO_Cnf & "sendpassword") = sPass

        .Update

    End With

 

    Set oCDOMsg = CreateObject("CDO.Message")

        With oCDOMsg

        Set .Configuration = oCDOCnf

        .BodyPart.Charset = "koi8-r"

        .From = sFrom

        .To = sTo

        .Subject = sSubject

        .TextBody = sBody

        If Len(sAttachment) > 0 Then .AddAttachment sAttachment

        .Send

    End With

Сообщение отправляется, но почему то не через прокси, в теле письма все равно вижу ip и имя пользователя моего компьютера. Подскажите пожалуйста как быть?

Gampos · 02.05.2013, 12:12

найдите в интернете - отправка анонимных сообщений, а сами на сайт с тора зайдите).

02.02.2013, 18:04	#1 (permalink)
bolahg Новичок Регистрация: 02.02.2013 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Отправка E-mail через PROXY Добрый день, Подскажите пожалуйста как отправить e-mail через прокси Я делал вот так: PHP код: Option Explicit Sub Send_Mail() Const CDO_Cnf = "//schemas.microsoft.com/cdo/configuration/" Dim oCDOCnf As Object, oCDOMsg As Object Dim SMTPserver As String, sUsername As String, sPass As String, sMsg As String, proxy As String Dim sTo As String, sFrom As String, sSubject As String, sBody As String, sAttachment As String On Error Resume Next SMTPserver = "smtp.bk.ru" sUsername = "userbk.ru" sPass = "password" proxy = "107.7.144.62:80" If Len(SMTPserver) = 0 Then MsgBox "Не указан SMTP сервер", vbInformation, "email vba": Exit Sub If Len(sUsername) = 0 Then MsgBox "Не указана учетная запись", vbInformation, "email vba": Exit Sub If Len(sPass) = 0 Then MsgBox "Не указан пароль", vbInformation, "email vba": Exit Sub sTo = "tosendyandex.ru" sFrom = "userbk.ru" sSubject = "TEST" sBody = "Привет от TEST" Set oCDOCnf = CreateObject("CDO.Configuration") With oCDOCnf.Fields .Item("//schemas.microsoft.com/cdo/configuration/urlproxyserver").Value = proxy .Item(CDO_Cnf & "sendusing") = 2 .Item(CDO_Cnf & "smtpauthenticate") = 1 .Item(CDO_Cnf & "smtpserver") = SMTPserver .Item(CDO_Cnf & "sendusername") = sUsername .Item(CDO_Cnf & "sendpassword") = sPass .Update End With Set oCDOMsg = CreateObject("CDO.Message") With oCDOMsg Set .Configuration = oCDOCnf .BodyPart.Charset = "koi8-r" .From = sFrom .To = sTo .Subject = sSubject .TextBody = sBody If Len(sAttachment) > 0 Then .AddAttachment sAttachment .Send End With Сообщение отправляется, но почему то не через прокси, в теле письма все равно вижу ip и имя пользователя моего компьютера. Подскажите пожалуйста как быть?

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

02.02.2013, 18:04
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Просмотр похожих постов всегда хорошо помогает в решении проблем Отправка письма на mail.ru через Delphi 7 Отправка через интернет больших файлов Интернет - Windows 7-Opera (10.63)-proxy Отправка ММС с компьютера.

02.05.2013, 12:12	#2 (permalink)
Gampos Блоггер Регистрация: 02.05.2013 Сообщений: 16 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	найдите в интернете - отправка анонимных сообщений, а сами на сайт с тора зайдите).

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070