| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

не могу разобраться с IdSmtp

ilka ©   (2003-08-06 15:35:00) 

Привет мастерам.Я никак не могу разобраться с IdSmtp, напишите plz небольшой пример. Как(чем) заполнить поля?

---

ilka   (2003-08-06 16:24:00) [1]

Огромное спасибо

---

Е-Моё имя   (2003-08-06 16:07:00) [2]

во как! еще бы единственный комментарий в правильное место и обработать ошибку подключения ))

---

Disel   (2003-08-06 16:03:00) [3]

var
SMTP: TIdSMTP;
IdM: TIdMessage;

...
begin
SMTP:=TIdSMTP.Create(nil);
IdM:=TIdMessage.Create(nil);
with IdM do
begin
Body.Append(text);
From.Text := FromAddress;
Recipients.EMailAddresses := ToAddress; { To }
Subject := Subject_;
CCList.EMailAddresses := CcL;
BccList.EMailAddresses := BccL;
CharSet:=Charset;
//
Priority := TIdMessagePriority(mpHighest); { Message Priority }
end;

case StrToInt(AuthType) of
0: begin
SMTP.AuthenticationType := atNone;
end;
1: begin
SMTP.AuthenticationType := atLogin; {Simple Login}
SMTP.UserId:=login;
SMTP.Password:=passward;
end;
end;

SMTP.Port:=StrToInt(port);
SMTP.Host:=host;

{now we send the message}
SMTP.Connect;

try
( IdM)

var
SMTP: TIdSMTP;
IdM: TIdMessage;

...
begin
SMTP:=TIdSMTP.Create(nil);
IdM:=TIdMessage.Create(nil);
with IdM do
begin
Body.Append(text);
From.Text := FromAddress;
Recipients.EMailAddresses := ToAddress; { To }
Subject := Subject_;
CCList.EMailAddresses := CcL;
BccList.EMailAddresses := BccL;
CharSet:=Charset;
//
Priority := TIdMessagePriority(mpHighest); { Message Priority }
end;

case StrToInt(AuthType) of
0: begin
SMTP.AuthenticationType := atNone;
end;
1: begin
SMTP.AuthenticationType := atLogin; {Simple Login}
SMTP.UserId:=login;
SMTP.Password:=passward;
end;
end;

SMTP.Port:=StrToInt(port);
SMTP.Host:=host;

{now we send the message}
SMTP.Connect;

try
SMTP.Send(IdM);
finally
SMTP.Disconnect;
end;

SMTP.Free;
IdM.Free;
end;

---

Е-Моё имя   (2003-08-06 16:02:00) [4]

есть стандартные наполнители

заполняешь адрес сервера, пользователя, подключаешься, отправляешь сообщение
хитростей нет

---

Наверх