Propriété MailItem.SaveSentMessageFolder (Outlook)
Renvoie ou définit un objet Folder qui représente le dossier dans lequel une copie du message électronique sera enregistrée après l’envoi. En lecture/écriture
Syntaxe
expression. SaveSentMessageFolder
expression Variable qui représente un objetMailItem.
Exemple
Cet exemple Visual Basic pour Applications (VBA) envoie une réponse à Dan Wilson et définit le SaveMyPersonalItems dossier comme dossier dans lequel une copie de l’élément sera enregistrée après l’envoi. Pour exécuter ce code sans générer d'erreurs, assurez-vous qu'un courrier électronique est ouvert dans la fenêtre active d'un inspecteur et remplacez « Dan Wilson » par un nom de destinataire valide.
Sub SetSentFolder()
Dim myItem As Outlook.MailITem
Dim myResponse As Outlook.MailITem
Dim mpfInbox As Outlook.Folder
Dim mpf As Outlook.Folder
Set mpfInbox = Application.Session.GetDefaultFolder(olFolderInbox)
Set mpf = mpfInbox.Folders.Add("SaveMyPersonalItems")
Set myItem = Application.ActiveInspector.CurrentItem
Set myResponse = myItem.Reply
myResponse.Display
myResponse.To = "Dan Wilson"
Set myResponse.SaveSentMessageFolder = mpf
myResponse.Send
End Sub
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.