
06.07.2007, 07:01
|
 |
Местный
|
|
Регистрация: 06.09.2006
Адрес: Россия, Санкт-Петербург
Сообщения: 444
Репутация: 550
|
|
Ладно, хрен с ним с синапсом, сделал я эту отправку через инди (10) и теперь жалею, что поленился разобраться с MAPI.
В общем, вот
Код:
sPort := '587';
sHost := 'smtp.gmail.com';
IdSMTP.Host := sHost;
IdSMTP.Password := sPassword;
IdSMTP.Username := sUsername;
IdSMTP.Port := StrToInt(sPort);
IdSMTP.UseTLS := utUseExplicitTLS;
IdSSLIOHandlerSocketOpenSSL.Destination := sHost + ':' + sPort;
IdSSLIOHandlerSocketOpenSSL.Host := sHost;
IdSSLIOHandlerSocketOpenSSL.Port := StrToInt(sPort);
IdMessage.Body.AddStrings(saVal);
IdMessage.From.Address := sFromAddress;
IdMessage.From.Name := sFromName;
IdMessage.Recipients.Add;
IdMessage.Recipients.Items[0].Address := sToAddress;
IdMessage.Recipients.Items[0].Name := sToName;
IdMessage.Subject := sSubject;
IdSMTP.Connect;
IdSMTP.Send(IdMessage);
IdSMTP.Disconnect();
{ вот на этой ^ строке отладка выходит из-под контроля (F10 и статус - Running),
показывается MessageBox с ошибкой "Connection Closed Gracefully" и непонятно,
почему =( В общем, я уже копался, копался, так не до чего и не докопался.
Пробовал исключение в спиок игнорируемых добавлять - то же самое, пробовал в
try..except.end помещать - все равно, весь код, что идет после этого try..except не
работает и т.д. Плиз, если кто шарит, помогите разобраться с этим gmail'ом и TLS'ом
Может кто знает, как пользоваться MAPI правильно и с аутентификацией?
Любая инфа будет полезна}
__________________
THE CRACKER IS OUT THERE
|