VO

Size: a a a
VO
VO
DB
VO
DB
DB
DB
function SendMail(const Address, Subject, MessageText: string): string;
var
Msg: TMimeMess; //собщение
StringList: TStringList; //содержимое письма
MIMEPart: TMimePart; //части сообщения (на будущее)
begin
Result := 'rsOK';
Msg := TMimeMess.Create; //создаем новое сообщение
try
StringList := TStringList.Create;
try
//Добавляем заголовки
Msg.Header.Subject := Subject;//тема сообщения
Msg.Header.From := WebDataModule.MailFrom; //имя и адрес отправителя
Msg.Header.ToList.Add(''); //имя и адрес получателя
//создаем корневой элемент
MIMEPart := Msg.AddPartMultipart('alternative', nil);
StringList.Text := MessageText;
Msg.AddPartText(StringList, MIMEPart);
//Кодируем и отправляем
Msg.EncodeMessage;
if not SendToRaw(WebDataModule.MailFrom, Address, WebDataModule.MailHost, Msg.Lines,
WebDataModule.MailLogin, WebDataModule.MailPass) then
Result := 'rsCouldntRegUserOtherError';
finally
FreeAndNil(Msg);
end;
finally
FreeAndNil(StringList);
end;
end;
DB
VO
DB
DB
DB
KB
KB
VO
VO
VO
KB