Показать сообщение отдельно
  #2  
Старый 06.07.2007, 07:01
Аватар для 4kusNick
4kusNick 4kusNick вне форума
Местный
 
Регистрация: 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
Ответить с цитированием