procedure TForm3.Mail;
begin
IdSMTP1.Host:=Edit1.Text;
IdSMTP1.Port:=StrToInt(Edit2.Text);
IdMessage1.CharSet:='windows-1251';
IdMessage1.ContentType:='text/plain';
IdSMTP1.AuthenticationType:=atLogin; // atNone
IdSMTP1.Username:=Edit3.Text;
IdSMTP1.Password:=Edit4.Text;
IdMessage1.From.Name:=ConvertToWIN1251(Edit5.Text);
IdMessage1.Subject:=ConvertToWIN1251(Edit11.Text);
IdMessage1.From.Address:=Edit6.Text;
IdMessage1.Organization:=ConvertToWIN1251(Edit7.Text);
IdMessage1.Recipients.EMailAddresses:=Edit8.Text+','+Edit9.Text;
IdMessage1.Body.Text:=Memo2.Text;
if FileExists(Edit12.Text,) then
TIdAttachment.Create(IdMessage1.MessageParts,Edit12.Text);
try
try
IdSMTP1.Connect(1000);
sleep(200);
Application.ProcessMessages;
IdSMTP1.Send(IdMessage1);
MessageBox(handle,PChar('Письмо отправлено.'+#13#10), PChar('Статус отправки!'), 64);
except on E:Exception do
begin
sleep(200);
MessageBox(handle,PChar(' Письма не отправлено.'+#13#10+
'Не возможно подключится к почтовому серверу.'+#13#10), PChar('Статус отправки!'), 48);
end;
end;
finally
if IdSMTP1.Connected then IdSMTP1.Disconnect;
end;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.