Automation Outlook : ajouter le destinataire
Bonjour,
Le code suivant fonctionne (trouvé sous LAZARUS )
Code:
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 mais cela ne passe pas à la compilation.
Le
Code:
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+
