Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.02;
Скачать: CL | DM;

Вниз

не могу разобраться с IdSmtp   Найти похожие ветки 

 
ilka ©   (2003-08-06 15:35) [0]

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


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

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

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


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

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:07) [3]

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


 
ilka ©   (2003-08-06 16:24) [4]

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



Страницы: 1 вся ветка

Текущий архив: 2003.10.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
14-4093
copyr25
2003-09-13 18:35
2003.10.02
Вы бывали когда-нибудь на собственных похоронах?


8-3995
Rel_
2003-06-05 17:04
2003.10.02
Вращение вокруг точки


14-4072
PVOzerski
2003-09-15 12:44
2003.10.02
О спаме - с юмором и не только.


3-3759
Term
2003-09-10 11:35
2003.10.02
Как мне взять данные из 1С


1-3868
Дима
2003-09-18 19:55
2003.10.02
Перерисовка окна при передвижении