Как отправить письмо средствами Delphi?

Sparkman:

Изучал недавно эту отправку писем через SMTP:



uses IdSMTP,IdMessage, IdBaseComponent;

function SendMail (mHost,mFrom,mUser,mPass,mTo,mSubj,mBody,mAttach:string; mPort:integer):string;

var SMTP : TIdSMTP;

    MailMessage:TIdMessage;

begin

     result:='Mail sended';

     SMTP := TIdSMTP.Create(nil);

     SMTP.Host := mHost;

     if mPort>0 then

     SMTP.Port := mPort;

     SMTP.Username := mUser;

     if Length(mPass)>0 then

     SMTP.Password := mPass;

     MailMessage := TIdMessage.Create(nil);

     MailMessage.From.Address := mFrom;

     MailMessage.Recipients.EMailAddresses := mTo;

     MailMessage.Subject := mSubj;

     MailMessage.Body.Text := mBody;

     if FileExists(mAttach) then TIdAttachment.Create(MailMessage.MessageParts, mAttach) ;

     try

        try

           SMTP.Connect(1000);

           SMTP.Send(MailMessage);

        except on E:Exception do

           Result := 'ERROR: ' + E.Message;

        end;

     finally

        if SMTP.Connected then SMTP.Disconnect;

        SMTP.Free;

        MailMessage.Free;

     end;

end;

а как отправить нескольким адресам если домены разные?

MailMessage.Recipients.EMailAddresses := 'email1@domen1.ru;email2@domen2.ru;email3@domen3.ru';

тема на форуме

Последние записи

made in programmersforum 5

Как отправить письмо средствами Delphi?

Похожие статьи