Discussion :

[der]

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

[af.balog]

A la grosse ça donne ça :

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

Code :

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

Dim applic as New Outlook.Application

3. crées un objet mail

Code :

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

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

4. règles quelques paramètres

Code :

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

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 :

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

 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+

[der]

Oui mais je voudrais aussi l'imprimer

[af.balog]

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

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é !

[der]

Je te remercie beaucoup