Delphi – Mail from Shell

Tecnologie :

Linguaggio : Borland Delphi

Sistema Operativo : Ms-Windows

Piattaforma : W32S

Invio di mail tramite chiamata a shell utilizzanto la procedura SHELLEXECUTE contenuta nella libreria ShellAPI

DI SEGUITO UN ESEMPIO :

implementation

uses ShellAPI;

procedure TForm1.btnSendMailClick(Sender:
TObject);
var
MailPar: PChar;
MailTo: String;

MailSubject: String;
MailBody: String;
FullString: String;

begin
MailTo := ‘info@csdrevelli.it‘;
MailSubject := ‘?subject=test’;
MailBody := ‘Subject&body=This is My message’;
FullString := ‘mailto:’ + MailTo + MailSubject + MailBody;
MailPar := PChar(FullString);

ShellExecute(handle, ‘open’, MailPar, nil, nil, SW_SHOWNORMAL);
end;