Topic: [Script] Sending E-mail message with a file.
Sending E-mail message with a file.
from version 4.05 you can specify several recipients by separating them with ;
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.
Download project:
http://myvisualdatabase.com/forum/misc. … download=1
Dmitry.