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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour