| phobos* |
| Отправлено: 18.08.2005, 14:38 |
|
Не зарегистрирован
|
NMSMTP1->SendMail();//Как функцию SendMail() можно поместить в цикл
|
|
| Guest |
| Отправлено: 18.08.2005, 14:47 |
|
Не зарегистрирован
|
while (пока_не_посинеешь) NMSMTP1->SendMail(); |
|
| Vlad |
| Отправлено: 18.08.2005, 14:48 |
|
Машинист паровоза
Группа: Участник
Сообщений: 231
|
Видно СПАМ рассылку, мастеришь...  |
|
| phobos* |
| Отправлено: 19.08.2005, 18:39 |
|
Не зарегистрирован
|
Верно угодал что для спама=)Но правда есть и другие вещи если интерестно то icq:264919086=) |
|
| phobos |
| Отправлено: 21.08.2005, 12:47 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 6
|
Ну вот я поместил фунцияю в цикл но после запуска програмулинны пишет ошибку Incomplete Header как исправить если нужно поглядеть код отрывок дам. |
|
| Doga |
| Отправлено: 21.08.2005, 17:34 |
|
Мастер участка
Группа: Участник
Сообщений: 575
|
| QUOTE |
если нужно поглядеть код отрывок дам.
|
Это не нам, это ВАМ нужно!
|
|
| Георгий |
| Отправлено: 21.08.2005, 21:41 |
|
Почетный железнодорожник
Группа: Модератор
Сообщений: 874
|
| QUOTE (phobos @ 21/08/2005, 13:47) | | Ну вот я поместил фунцияю в цикл но после запуска програмулинны пишет ошибку Incomplete Header как исправить если нужно поглядеть код отрывок дам. |
целиком код давай — найдём ошибку. |
|
| phobos |
| Отправлено: 22.08.2005, 10:48 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 6
|
Вот ковыряйте на здоровье=)
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "SpamerUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSpamer *Spamer;
//---------------------------------------------------------------------------
__fastcall TSpamer::TSpamer(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TSpamer::FormCreate(TObject *Sender)
{
if (NMSMTP1->Connected)
NMSMTP1->Disconnect();
else
{
NMSMTP1->Host= "smtp.list.ru";
NMSMTP1->UserID ="worm_exp";
NMSMTP1->Connect();
if (NMSMTP1->Connected)
{
NMSMTP1->SubType = mtPlain;
NMSMTP1->EncodeType = uuMime;
NMSMTP1->EncodeType = uuCode;
NMSMTP1->PostMessage->FromAddress = "lourez@list.ru";
NMSMTP1->PostMessage->FromName = "lourez";
NMSMTP1->PostMessage->ToAddress->Text = "worm_exp@list.ru";
NMSMTP1->PostMessage->Body->Text = "Hello!";
NMSMTP1->PostMessage->Subject = "lourez";
NMSMTP1->PostMessage->Date = "15.08.2005";
NMSMTP1->PostMessage->ReplyTo = "lourez@list.ru";
while (20) NMSMTP1->SendMail();
}
}
}
//---------------------------------------------------------------------------
|
|
| AVC |
| Отправлено: 22.08.2005, 12:55 |
|
Ветеран
Группа: Модератор
Сообщений: 1583
|
Для начала и не вникая в детали
| QUOTE |
while (20) NMSMTP1->SendMail();
|
Это вечный цикл с единственной возможностью выхода — exception. Это то что нужно?
А по поводу посылки мыла можете почитать тут "Посылка мыла" |
|
