Partager via


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

Objet JournalItem

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.