Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #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

Последний раз редактировалось 4kusNick, 06.07.2007 в 07:04.
Ответить с цитированием
 


Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:22.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025