В винде отправляю почту с помощью TIdSMTP есть ли какиенибудь аналоги для Linux?
Цитата:
function SendMessageToEmail (const Host, EMailAddresses, MessageText, Otpravitel, Tema : string ) : Boolean;
var
SMTP : TIdSMTP;
dMessage : TIdMessage;
begin
SMTP := TIdSMTP.Create(nil);
dMessage := TIdMessage.Create(nil);
SMTP.Host := Host; // адрес почтового сервера
SMTP.Port:=25; // порт по которому будет осуществляться подключение
SMTP.AuthenticationType:=atNone;
with dMessage do
begin
Body.Text := MessageText; //Текст письма
From.Text := Otpravitel; // майл отправителя письма
Recipients.EMailAddresses := EMailAddresses; // майл получателя письма
Subject := Tema; // тема письма
end;
SMTP.Connect(100); // соединение с почтовым сервером
try
SMTP.Send(dMessage); //отправка письма на сервер
finally
SMTP.Disconnect; //разрыв соединения
end;
end;
|