Настройка SMTP на Mail.ru для отправки почты из VBA

Четверг, 13 Марта 2014 г. 15:05 + в цитатник

Здравствуйте!

Понимаю, что тема старая и заезженная, но ответа найти так и не смогла.
К сути: был код, взятый отсюда

samaranches
А я вот такую функцию использую: Public Function sendEmail(emailTo As String, emailSubject As String, emailBody As String, Optional VarDebug As Boolean) As Integer On Error GoTo Err_sendEmail Dim oMSG As Object Dim oConfig As Object Dim CFields As Object Dim strBody As String Set oMSG = CreateObject("CDO.Message") Set oConfig = CreateObject("CDO.Configuration") Set CFields = oConfig.Fields Set oMSG.Configuration = oConfig CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.inbox.ru" CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "login" 'Login CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "parol" 'password CFields("urn:schemas:mailheader:content-language") = "windows-1251" CFields.Update oMSG.To = emailTo oMSG.From = "login@inbox.ru" oMSG.Subject = emailSubject oMSG.BodyPart.Charset = "windows-1251" 'oMSG.AddAttachment "c:\temp\Test0.rtf" oMSG.TextBody = emailBody oMSG.Send sendEmail = 1 Exit_sendEmail: Set CFields = Nothing Set oConfig = Nothing Set oMSG = Nothing Exit Function Err_sendEmail: sendEmail = 0 If Not IsNull(VarDebug) Then If VarDebug Then MsgBox (Err.Description) Resume Exit_sendEmail End Function Всё прекрасно работает и никаких глючных аутлуков не нужно

samaranches

А я вот такую функцию использую:

Public Function sendEmail(emailTo As String, emailSubject As String, emailBody As String, Optional VarDebug As Boolean) As Integer
On Error GoTo Err_sendEmail
Dim oMSG As Object
Dim oConfig As Object
Dim CFields As Object
Dim strBody As String

Set oMSG = CreateObject("CDO.Message")
Set oConfig = CreateObject("CDO.Configuration")
Set CFields = oConfig.Fields
Set oMSG.Configuration = oConfig

CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.inbox.ru"
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "login" 'Login
CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "parol" 'password
CFields("urn:schemas:mailheader:content-language") = "windows-1251"
CFields.Update

oMSG.To = emailTo
oMSG.From = "login@inbox.ru"
oMSG.Subject = emailSubject
oMSG.BodyPart.Charset = "windows-1251"
'oMSG.AddAttachment "c:\temp\Test0.rtf"
oMSG.TextBody = emailBody
oMSG.Send

sendEmail = 1

Exit_sendEmail:
    Set CFields = Nothing
    Set oConfig = Nothing
    Set oMSG = Nothing
    Exit Function

Err_sendEmail:
    sendEmail = 0
    If Not IsNull(VarDebug) Then If VarDebug Then MsgBox (Err.Description)
    Resume Exit_sendEmail
End Function

Всё прекрасно работает и никаких глючных аутлуков не нужно

который успешно работал со следующими параметрами на majordomo.ru

CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.17.69" '"smtp"
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 5025
CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "postmaster@....ru" 'Login
CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*****" 'пароль
CFields("urn:schemas:mailheader:content-language") = "windows-1251"

но вот не задача, переехали мы на Mail.ru
При внесении соответствующих изменений параметров, письма не уходят, выдает иероглифы (вложение). Пару раз выдавал 550 ошибку. Проштудировав интернет, наткнулась на пост

Barlone
а с чего вы взяли, что почта адресату на mail.ru шлется через smtp.mail.ru ? mail.ru MX preference = 10, mail exchanger = mxs.mail.ru mxs.mail.ru internet address = 194.67.23.20 smtp.mail.ru internet address = 194.67.23.111 сервер для входящей почты другой :)

пробовала рекомендации, не помогло

CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "194.67.23.111" ' "smtp.mail.ru/mxs.mail.ru/194.67.23.20/194.67.23.111"
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
CFields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
'CFields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "okdoc@.....ru" 'Login
CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*****" 'пароль
CFields("urn:schemas:mailheader:content-language") = "windows-1251"

Использую следующие данные Mail.ru
Для настройки почтовых программ вам понадобится следующая информация:

Ваш электронный адрес (имя почтового ящика/e-mail address) — это полное название вашего почтового ящика, включая логин, значок «@» собачки и домен (например, vash_pomoshnik@mail.ru).

Сервер входящей почты IMAP-сервер — imap.mail.ru
POP3-сервер — pop.mail.ru;

Сервер исходящей почты (SMTP-сервер) — smtp.mail.ru;

Имя пользователя — это полное название вашего почтового ящика, включая логин, значок «@» собачки и домен (например, vash_pomoshnik@mail.ru);

Пароль — текущий пароль, который вы используете для входа в почтовый ящик;

Порт — IMAP — 143 (протокол шифрования STARTTLS) или 993 (протокол шифрования SSL/TLS)
POP3 — 995 (протокол шифрования SSL/TLS)
SMTP — 465 (протокол шифрования SSL/TLS).

Аутентификация — Обычный пароль (без шифрования).

Помогите, пожалуйста!!!

http://www.sql.ru/forum/1082344/nastroyka-smtp-na-mail-ru-dlya-otpravki-pochty-iz-vba