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

Posted by Chas under Пост-обзор

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';

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

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

• Свежий регистратор почты на Рамблере
• Проверка занятости логина на странице с помощью indy
• Соединение двух компьютеров через интернет с помощью сокетов?
• Как нажать на кнопочку с именем submit_way_selection2 на сайте?
• Авторизация на mail.ru с помощью indy
• Как сделать обновление программы с сайта?
• Прием данных/отсылка в поток Indy10
• ProgressBar для скачивания
• Пример получения даты и температуры с сайта
• Пример программы принимающей сообщения с @mail.ru