Форум: "Сети";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];
ВнизКак создать вложение при отправке электронного письма? idSMTP Найти похожие ветки
← →
Геннадий © (2004-04-12 15:17) [0]Как создать вложение при отправке электронного письма с использованием IndySMTP ?
function SendTo(Rcpt: TEMail; Attachment: TStringList; FromAdr: TEmail;
Subj: String; User, Psw: String; SMTPHost: String;
SMTPPort: Word; TimeOut: Integer): TResCode;
var
Msg : TIdMessage;
I : Integer;
SMTP: TidSMTP;
MP : TIdMessagePart;
begin
Result:= RC_UnErr;
Try
Msg:= TIdMessage.Create(NIL);
Msg.Recipients.EMailAddresses:= Rcpt;
Msg.From.Address:= FromAdr;
Msg.Subject:= Subj;
For I:=0 to Attachment.Count-1 do
begin
MP:= Msg.MessageParts.Add;
MP.StoredPathName:= Attachment.Strings[I];
end;
SMTP:= TIdSMTP.Create(NIL);
SMTP.Username:= User;
SMTP.Password:= Psw;
SMTP.Host:= SMTPHost;
SMTP.Port:= SMTPPort;
Except
Exit;
End;
Try
SMTP.Connect(TimeOut);
SMTP.Send(Msg);
Finally
SMTP.Disconnect;
End;
If Assigned(SMTP) then SMTP.Free;
If Assigned(Msg) then Msg.Free;
Result:= RC_OK;
end;
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.046 c