1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

Отправка E-mail Через Proxy

Тема в разделе "Visual Basic", создана пользователем bolahg, 2 фев 2013.

  1. bolahg

    bolahg New Member

    Репутация:
    0
    Регистрация:
    15 май 2008
    Сообщения:
    2
    Симпатии:
    0
    Добрый день,
    Подскажите пожалуйста как отправить e-mail через прокси
    Я делал вот так:

    Код:
    Option Explicit
    
    Sub Send_Mail()
    Const CDO_Cnf = "http://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 = "user@bk.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 = "tosend@yandex.ru" 
    sFrom = "user@bk.ru"  
    sSubject = "TEST" 
    sBody = "Привет от TEST" 
    
    Set oCDOCnf = CreateObject("CDO.Configuration")
    
    With oCDOCnf.Fields
    .Item("http://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 и имя пользователя моего компьютера. Подскажите пожалуйста как быть?
     
Загрузка...
Похожие Темы - Отправка mail Через
  1. Реник
    Ответов:
    2
    Просмотров:
    1.461
  2. Supermaximus
    Ответов:
    4
    Просмотров:
    2.599
  3. Supermaximus
    Ответов:
    1
    Просмотров:
    2.272
  4. k85
    Ответов:
    4
    Просмотров:
    306
  5. k85
    Ответов:
    10
    Просмотров:
    1.330

Поделиться этой страницей