Discussion :

[CharleLéo]

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+

[anapurna]

salut

normal

il faut écrire un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 MailItem.Attachments.Add(StrFilename, olByValue);
           MailItem.Recipients.ResolveAll;

[CharleLéo]

Salut

MailItem.Attachments.Add(StrFilename, olByValue);
MailItem.Recipients.ResolveAll;

Il me semble que Attachements c'est pour les piéces jointes. Comment fait on pour inserer le destinataire ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MailItem.Recipients.Add('Adresse@mail.com')

ne fonctionne pas.
Et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MailItem.Recipients.resolveAll

sert à vérifier que le contenu de récipients est valide .

A+

[CharleLéo]

Pour info,

J'avais lu quelque part, que dans LAZARUS il fallait ajouter un caractère comme '&' ou '$' lorsque des noms de méthode utiliser des mots réservés dans le code (exemple de To utilisé dans une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for ... to

.

Donc en faisant au 'PIF', j'ai simplement ajouté le symbole '&' devant To

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MailItem.&To := 'monadresse@mail.fr'';
  MailItem.CC:='en copie';

Et là ca fonctionne .

A+

PS : si quelqu'un peut me fournir l'explication, je suis preneur.