[VB6] [Outlook] Imprimer un mail en VB

Bonjour,
Je voudrais savoir comment imprimer un mail sous Outlook à partir de VB.
Je vous remercie d'avance pour toute reponse

A la grosse ça donne ça :

1. référence Outlook dans ton projet VB6
2. crées une instance d'outlook

Code:

---

Dim applic as New Outlook.Application

---

3. crées un objet mail

Code:

---

1 2	Dim monMail as Outlook.MailItem set monMail = applic.CreateItem(olMailItem)

---

4. règles quelques paramètres

Code:

---

1 2 3 4 5 6

With monMail .To = "af@af.com" .Subject = "toto" .Body = "bla bla" End With ' etc ...

---

5. Envoies ton mail

Code:

---

monMail.send

---

Je n'ai pas testé j'ai écrit ça comme ça à la volée mais ça devrait marcher avec une ou deux approximations ...

A+

Oui mais je voudrais aussi l'imprimer

Autant pour moi il faut que j'ouvre un peu plus mes yeux ... :wink:

Au lieu d'utiliser la méthode .Send, utilises la méthode ".PrintOut", ça utilise tes paramètres par défaut (qui doivent pouvoir se régler aussi je suppose) pour imprimer, le tour est joué !

Je te remercie beaucoup