Bonjour,

Le code suivant fonctionne (trouvé sous LAZARUS )
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
32
33
34
35
36
37
38
39
uses comobj;
 
procedure TForm1.SendBtnClick(Sender: TObject);
 
const olMailItem = 0;
 
var  Outlook: OLEVariant;
     MailItem: variant;
     podatak: variant;
 
begin
 
 
  try
   Outlook := GetActiveOleObject('Outlook.Application');
  except
   Outlook := CreateOleObject('Outlook.Application');
  end;
 
  MailItem := Outlook.CreateItem(olMailItem);
   podatak := ToEdit.Text;
  //MailItem.Recipients.Add(podatak); // ne focntionne pas
  // MailItem.to.add(podatak); // ne focntionne pas
  MailItem.Cc := podatak;
   podatak := SubjectEdit.Text;
  MailItem.Subject := podatak;
   podatak := BodyMemo.Text;
  MailItem.Body := podatak;
  //MailItem.HTMLBody // if you wont HTML in message body
   podatak := AttachEdit.Text;
  MailItem.Attachments.Add(podatak);
  //MailItem.Display;
  MailItem.Send;
 
  //Outlook.Quit;
  Outlook := Unassigned;
  SendBtn.Enabled := true;
 
end;
Par contre, je ne sais pas comment ajouter le destinataire . Je pensais faire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
MailItem.to:=.....
mais cela ne passe pas à la compilation.
Le
Code : Sélectionner tout - Visualiser dans une fenêtre à part
MailItem.recipients.Add(....)
passe à la compilation mais retourne une erreur à l’exécution : eoleerror, methode Recipients is not supported by Automation object

Quelqu'un a une idée ?
C'est ok sous DELPHI 3 PRO, mais pas dans LAZARUS !!

A+