Méthode JournalItem.Copy (Outlook)
Crée une autre occurrence d'un objet.
Syntaxe
expression. Copie
Expression Variable qui représente un objet JournalItem .
Exemple
Cet exemple Visual Basic pour Applications crée un message électronique, définit l’objet sur « Speeches », utilise la méthode Copy pour le copier, puis déplace la copie dans un dossier de messagerie nouvellement créé nommé « Saved Mail » dans le dossier Boîte de réception.
Sub CopyItem()
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim myNewFolder As Outlook.Folder
Dim myItem As Outlook.MailItem
Dim myCopiedItem As Outlook.MailItem
Set myNameSpace = Application.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myNewFolder = myFolder.Folders.Add("Saved Mail", olFolderDrafts)
Set myItem = Application.CreateItem(olMailItem)
myItem.Subject = "Speeches"
Set myCopiedItem = myItem.Copy
myCopiedItem.Move myNewFolder
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.