1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
| function EnvoyerMail( const SDestinataire, SSujet, STexte : String;
LFichiers: TStringList;
BAfficherErreur : Boolean = True;
BEnvoiAuto : Boolean = False ) : Boolean;
var
DD : MapiRecipDesc; // description destinataire
DF : array[ 0..49 ] of MapiFileDesc; // description fichier, 50 maxi.
DM : MapiMessage; // description du message
IError : Cardinal;
MailHandle : THandle;
i: Integer;
begin
.../
if MailLogon( MailHandle, BAfficherErreur ) then
try
// Envoi du mail
if BEnvoiAuto
then IError := MapiSendMail( MailHandle, Application.Handle, DM, 0, 0 )
else IError := MapiSendMail( MailHandle, Application.Handle, DM, MAPI_DIALOG , 0 );
Result := SErreurSendMail( IError ) = '';
if ( not Result ) and BAfficherErreur
then ShowMessage( 'ERREUR d''envoi du mail vers ' + SDestinataire + #13 +
SErreurSendMail( IError ) );
finally MailLogoff( MailHandle ); end;
// Libérations
for i := 0 to LFichiers.Count - 1 do
begin
StrDispose( DF[ i ].lpszPathName );
StrDispose( DF[ i ].lpszFileName );
end;
end; |
