je code, similaire à ce qui suit, que je souhaite modifier:Enregistrer email après modification
Sub SendEmail()
Dim myOlApp As Outlook.Application
Dim myItem As Outlook.MailItem
'Create an Outlook application object
Set myOlApp = New Outlook.Application
'Create a new MailItem form
Set myItem = myOlApp.CreateItem(olMailItem)
'Build and display item
With myItem
.To = “[email protected]”
.Subject = “Test Subject”
.HTMLBody = “Test Body”
.Display
.SaveAs “C:\Test.msg”, olMSG
End With
End Sub
Ce code est appelé à partir de différents boutons tout au long de l'application. Lorsqu'un bouton est cliqué, un nouvel e-mail est créé et enregistré. Malheureusement, l'e-mail est sauvegardé dès sa création et AVANT qu'il ne soit envoyé ... donc, si des modifications y sont apportées, elles ne figureront pas dans la version sauvegardée.
Que puis-je faire pour modifier ce code afin d'enregistrer SEULEMENT l'e-mail une fois qu'il a été envoyé?
N'hésitez pas à poser des questions de suivi si nécessaire et je vais répondre de votre mieux.
Merci!
Robert
Décrivez l'erreur que vous recevez pour permettre une meilleure réponse. Aussi, quelle "application"? – AMissico
Mes excuses, AMissico, ce code est dans une application développée dans MS Access. Il n'y a pas d'erreur ... il enregistre juste après la création de l'e-mail, mais je veux l'enregistrer après l'envoi de l'e-mail. – Sesame