Partager via


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

Objet MailItem

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.