VPF::работа с почтой - Форум программистов

Dmi3ev

Дата 29.5.2008, 14:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41

помогите разобраться, почему этот код не работает, я взял его с форума(чтобы никого не обременять своими вопросами, но они возникли):

Код


IdSMTP1->AuthenticationType=atLogin;
IdSMTP1->UserId="pashka-d";
IdSMTP1->Password="10101010";
IdSMTP1->Host="smtp.mail.ru";

IdMessage1->Body->Text="hello";
IdMessage1->From->Text="[email protected]";
IdMessage1->Recipients->EMailAddresses="[email protected]";
IdMessage1->Subject="Тема1";

 new TIdAttachment(IdMessage1->MessageParts,"D:\\50_cent_-__ya_guns_dont_jam.mp3");

IdSMTP1->Connect();
IdSMTP1->Send(IdMessage1);
IdSMTP1->Disconnect();

сообщение "socket error #10057 socket is not connected"

--------------------

gather

Дата 29.5.2008, 23:52 (ссылка)

(нет голосов)

Загрузка ...

Rescue Officer

Профиль
Группа: Участник
Сообщений: 127
Регистрация: 13.6.2007
Где: Russia, Lipetsk

Репутация: нет
Всего: 4

Отладку делать пробовали? Телепатов тут нет.
На какой строке это вылетает?

Dmi3ev

Дата 30.5.2008, 10:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41

gather, строка номер 13, не конектится

--------------------

gather

Дата 30.5.2008, 15:27 (ссылка)

(нет голосов)

Загрузка ...

Rescue Officer

Профиль
Группа: Участник
Сообщений: 127
Регистрация: 13.6.2007
Где: Russia, Lipetsk

Репутация: нет
Всего: 4

кусок рабочего кода:

Код


AnsiString sFile;
 TIdAttachment *pAttachment;
 sFile = "c:\\a.txt";

 pAttachment = new TIdAttachment(IdMessage1->MessageParts,sFile);
 IdMessage1->ContentType = "multipart/mixed";
 IdMessage1->MessageParts->Add();
 IdMessage1->MessageParts->Items[0] = pAttachment;

 IdMessage1->Body->Text= "Письмо от рассылателя писем";
 IdMessage1->From->Text= "";
 IdMessage1->Recipients->EMailAddresses= "";
 IdMessage1->Subject="Прайс лист от ";

 IdSMTP1->UserId="";
 IdSMTP1->Password="";
 IdSMTP1->Host="smtp.bk.ru";
 IdSMTP1->Port= 25;
 IdSMTP1->Connect();
 IdSMTP1->Send(IdMessage1);
 IdSMTP1->Disconnect();

Dmi3ev

Дата 30.5.2008, 22:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41

так не получается, этот код очень похож на мой, такая же ошибка.
может я не так че указываю, я пробовал userid указывать pashka-d и [email protected]. что посоветуете? может у меня почта особенная, там еще чего-то ей надо?
надоело мучаться, буду ждать предложений.

--------------------

gather

Дата 31.5.2008, 13:00 (ссылка)

(нет голосов)

Загрузка ...

Rescue Officer

Профиль
Группа: Участник
Сообщений: 127
Регистрация: 13.6.2007
Где: Russia, Lipetsk

Репутация: нет
Всего: 4

Цитата(Dmi3ev @ 30.5.2008, 22:24

)

надоело мучаться, буду ждать предложений.

вывод команды

Код


telnet smtp.mail.ru 25

в студию.

vikaz

Дата 29.9.2009, 08:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

Репутация: 10
Всего: 12

Всем добрый! Не стал я создавать новую тему, будем развивать эту! Будет полезна.....

Отправляю письма сл. образом:

Код


nsiString sFile;
TIdAttachment *pAttachment;
sFile = "c:\\123.htm";
pAttachment = new TIdAttachment(IdMessage1->MessageParts,sFile);
IdMessage1->ContentType = "multipart/mixed";
IdMessage1->MessageParts->Add();
IdMessage1->MessageParts->Items[0] = pAttachment;


IdSMTP1->AuthenticationType=atLogin;
IdSMTP1->Port=25;
IdSMTP1->Host="mail.infobox.ru";
IdSMTP1->UserId="[email protected]";
IdSMTP1->Password="******";
IdMessage1->From->Text="[email protected]";
IdMessage1->Recipients->EMailAddresses="[email protected]";
IdMessage1->Subject="Subject";
IdMessage1->Body->Text="Test";
IdSMTP1->Connect();
IdSMTP1->Send(IdMessage1);
IdSMTP1->Disconnect();

В общем все стандартно.
но возникло несколько вопросов:

1. Как отследить отправку письма, т.е. кол-во отправленных байтов? Для этого есть событие OnWork, но он выдает сообщение только в конце, положил компонент IdAntiFreeze, но ничего не изменилось

2. Как бы отправить так письмо, чтобы в теле письма был не просто текст, а html страничка с рисунками, как в прикрепленном файле!
Заранее спасибо.

Присоединённый файл ( Кол-во скачиваний: 7 )

________.jpg 116,63 Kb

--------------------

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »