Bonjour,
Je suis en train de développer une macro en VBA sous Excel qui envoi un certains nombre d'emails comportant systématiquement une pièce jointe.
Le code suivant est dans une boucle: comme je le disais, j'envoi un certains nombre d'email.
Code :
- Set ol = CreateObject("outlook.application" )
- Set myItem = ol.CreateItem(olMailItem)
- myItem.To = Destinataire
- myItem.Subject = Sujet
- myItem.Body = msg
- CheminPieceJointePDF = ThisWorkbook.Path & "\Fichiers\Factures PDF\" & NomFichierFactureExcel & ".pdf"
- Set myAttachments = myItem.Attachments
- myAttachments.Add CheminPieceJointePDF
- myItem.Send
|
Lors de l'execution:
Outlook se lance bien en tache d'arriere plan, mais il me demande la chose suivante (une message box Yes/No apparait à chaque itération de ma boucle)
La pièce jointe [i]XXX.pdf[/i] ouverte à partir du message[i] Titre De Mon Message Sous Outlook[/i] est ouverte ou utilisé par une autre application. Si vous continuez, vous perdrez toute modification apporté à la pièce jointe. Voulez-vous continuer ? |
Au final mes emails sont bien envoyés
J'aimerai autant éviter aux utilisateurs de ma macro d'avoir a rester devant leur écran à cliquer Oui tout le temps. Est-il possible de forcer un click Oui sur la message box qu'Outlook sort ?
Message édité par smilm le 20-05-2011 à 10:50:57