• Registered: 2014-02-14
  • Posts: 10,294

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.