creater |
Отправлено: 09.12.2003, 15:43 |
|
Станционный диспетчер
Группа: Участник
Сообщений: 120
![](/discussion/style_images/1/spacer.gif)
|
Народ, если не жалко и не в лом то, запостите пример работы с Indy компонентами — TIdSMTP и TIdMessage.
Очень срочно необходимо отослать письмо с аутентификацией, а у компонента NMSMTP из Fast Net нет Properties — Password. Что крайне необходимо.
Заранее большое спасибо :-) |
![](/discussion/style_images/1/spacer.gif) |
Admin |
Отправлено: 09.12.2003, 20:13 |
|
![](/vlad3.jpg)
Владимир
Группа: Администратор
Сообщений: 1190
![](/discussion/style_images/1/spacer.gif)
|
Не жалко, вот полностью рабочий пример
(конечно правильно укажите свое
имя, пароль, имя почтового сервера)
CODE |
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TIdMessage* M = new TIdMessage(Form1);
M->Body->Add(" First string body");
M->Body->Add(" Second string body");
M->From->Text = "\"Владимир\" <support@cbuilder.ru>"; //отправитель
M->Recipients->Add();
M->Recipients->Items[0]->Text = "\"Вера\" <klassiks@cnt.ru>";//получатель
M->Subject = "Тема письма"; //Тема письма
IdSMTP1->AuthenticationType = atLogin;
IdSMTP1->Host = "post.cnt.ru"; // имя почтового сервера
IdSMTP1->UserId = "klassiks"; // имя
IdSMTP1->Password = "*****"; // Здесь пароль вместо *****
IdSMTP1->Connect();
if(IdSMTP1->Connected()){
IdSMTP1->Send(M);
IdSMTP1->Disconnect();
}
delete M;
}
|
Отредактировано Admin — 09/12/2003, 21:37
|
![](/discussion/style_images/1/spacer.gif) |
Admin |
Отправлено: 09.12.2003, 20:34 |
|
![](/vlad3.jpg)
Владимир
Группа: Администратор
Сообщений: 1190
![](/discussion/style_images/1/spacer.gif)
|
Не знаю, но возможно и есть способ указать пароль
для NMSMTP. не уверен, но посмотрите интресный пример
у китайцев (или кто там они) не разбирался:
http://www.china-askpro.com/msg42/qa51.shtml
|
![](/discussion/style_images/1/spacer.gif) |
creater |
Отправлено: 09.12.2003, 21:22 |
|
Станционный диспетчер
Группа: Участник
Сообщений: 120
![](/discussion/style_images/1/spacer.gif)
|
QUOTE (Admin @ 09/12/2003, 21:15) | Не жалко, вот полностью рабочий пример
(конечно правильно укажите свое
имя, пароль, имя почтового сервера) |
Большое спасибо за ответ!
Правда к тому времени когда Я увидел Ваш ответ уже отсылал письмо :-))
Но у меня осталась еще одна проблема. Ни как не могу прикрепить файл к письму. |
![](/discussion/style_images/1/spacer.gif) |
Nick |
Отправлено: 10.12.2003, 08:53 |
|
![](/discussion/uploads/av-31.gif)
Машинист паровоза
Группа: Участник
Сообщений: 247
![](/discussion/style_images/1/spacer.gif)
|
Я не делал TIdMessage
if ( !NMSMTP1->Connected ) NMSMTP1->Connect();
if ( NMSMTP1->Connected )
{
NMSMTP1->PostMessage->FromAddress = ini->ReadString( "Mail", "FromAdress", "" );
NMSMTP1->PostMessage->FromName = ini->ReadString( "Mail", "FromName", "" );
NMSMTP1->PostMessage->Subject = "Order from other Filial";
NMSMTP1->PostMessage->ToAddress->Clear();
NMSMTP1->PostMessage->ToAddress->Add(IBQ_FilialsWEMAIL->AsString);
/* присоединение файла asFileName к письму */
NMSMTP1->PostMessage->Attachments->Add(asFileName);
NMSMTP1->PostMessage->Body->Clear();
NMSMTP1->PostMessage->Body->Add("See attachment.");
NMSMTP1->SendMail();
NMSMTP1->Disconnect();
ShowMessage(("Заявка ушла по адресу "+IBQ_FilialsWEMAIL->AsString+". Файл — "+asFileName).c_str());
} else ShowMessage("Ошибка соединения с SMTP сервером.");
|
![](/discussion/style_images/1/spacer.gif) |
Admin |
Отправлено: 10.12.2003, 12:14 |
|
![](/vlad3.jpg)
Владимир
Группа: Администратор
Сообщений: 1190
![](/discussion/style_images/1/spacer.gif)
|
Вставьте между
M->Subject = "Тема письма"; //Тема письма
и
IdSMTP1->AuthenticationType = atLogin;
CODE |
M->Subject = "Тема письма"; //Тема письма
// прикладываем файл myFile.txt
TIdAttachment* att = new TIdAttachment(M->MessageParts,"c:\\myFile.txt");
M->MessageParts->Add();
M->MessageParts->Items[0] = att;
IdSMTP1->AuthenticationType = atLogin;
|
Для Nick:
А пароль где указать ??? В NMSMTP1 его нет.
Отредактировано Admin — 10/12/2003, 13:20
|
![](/discussion/style_images/1/spacer.gif) |
Nick |
Отправлено: 10.12.2003, 13:05 |
|
![](/discussion/uploads/av-31.gif)
Машинист паровоза
Группа: Участник
Сообщений: 247
![](/discussion/style_images/1/spacer.gif)
|
При отправке писем, мне кажется, он и не нужен.
Я не совсем уверен в этом т.к. видел на форуме вопросы типа:
NMSMTP не работает с платными серверами.
Пример WinRoute Pro.
Ставишь SMTP server smtp.yandex.ru и все.
Письма отправляются без проблем, то есть проблемы бывают но не из-за этого.
У меня проблема с кодировкой может в IdSMTP решено это дело.
|
![](/discussion/style_images/1/spacer.gif) |
FoxVID |
Отправлено: 02.03.2004, 19:33 |
|
![](/discussion/uploads/av-462.gif)
Ученик-кочегар
Группа: Участник
Сообщений: 29
![](/discussion/style_images/1/spacer.gif)
|
CODE | void __fastcall TForm1::Button2Click(TObject *Sender)
{
TIdMessage* M = new TIdMessage(Form1);
M->Body->Add(" First string body");
M->Body->Add(" Second string body");
M->From->Text = "\"Владимир\" <support@cbuilder.ru>"; //отправитель
M->Recipients->Add();
M->Recipients->Items[0]->Text = "\"Вера\" <klassiks@cnt.ru>";//получатель
M->Subject = "Тема письма"; //Тема письма
IdSMTP1->AuthenticationType = atLogin;
IdSMTP1->Host = "post.cnt.ru"; // имя почтового сервера
IdSMTP1->UserId = "klassiks"; // имя
IdSMTP1->Password = "*****"; // Здесь пароль вместо *****
IdSMTP1->Connect();
if(IdSMTP1->Connected()){
IdSMTP1->Send(M);
IdSMTP1->Disconnect();
}
delete M;
} |
В результате выполнения получаю ошибку:
CODE | Точка входа в процедуру @Idwinsock@initialization$qqrv не найдена в библиотеке DLL indy60.bpl |
Кто подскажет, в чем причина? |
![](/discussion/style_images/1/spacer.gif) |