Topic: [Скрипт] Отправка E-mail
Отправка E-mail сообщения с файлом.
начиная с версии 4.05 вы можете указать несколько адресатов разделяя их знаком ;
procedure Form1_bSend_OnClick (Sender: string; var Cancel: boolean);
begin
Form1.bSend.Enabled := False;
if SendMail(Form1.edServer.Text, Form1.edUsername.Text, Form1.edPassword.Text, Trunc(Form1.edPort.Value), Form1.edFrom.Text, Form1.edTo.Text, Form1.edSubject.Text, Form1.mmMessage.Text, Form1.edFileName.Text) then
ShowMessage('Message sent');
Form1.bSend.Enabled := True;
end;
begin
end.
Проект с примером: