Envoyer un email via VBA [HELP]

Question

Bonsoir,

Voici mon code:

Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.MailItem
Set myItem = myOlApp.CreateItem(olMailItem)
'tu crée l'objet de type e-mail

eMail="machin@truc.fr"

myItem.Attachments.Add "C:\Temp\Temp.txt", _
olByValue, 1, "Fichier temporaire"
myItem.Recipients.Add (eMail)
myItem.Subject = "Essai d'envoi de mail"
myItem.Body = "Mail généré par l'appli de gestion xxx"

Dim response As VbMsgBoxResult
response = MsgBox("Voulez vous envoyer un mail à : " & eMail, vbOKCancel, "Envoi de mail")
If response = vbOK Then myItem.Send

'méthode myItem.Display pour l'ouvrir dans outlook

Ce code fonctionne très bien, je n'arrive pas à trouver cmt désactiver le message d'outlook.

Quelqu'un aurait une idée?

Merci d'avance de votre aide.

 8-)  APPOLON  8-)

nhervagault · Answer

regardes du coté de mapi et cdo

voici une doc en fr

http://download.microsoft.com/download/6/2/7/627bd63a-fc8c-4862-80f2-5e8f5174edaf/ CDO.doc

bonne prog

Envoyer un email via VBA [HELP]

1 réponse

Discussions similaires