次の方法で共有

AppointmentItem.Copy メソッド (Outlook)

  • [アーティクル]

オブジェクトの別のインスタンスを作成します。

構文

式。コピー

式AppointmentItem オブジェクトを表す変数。

例

このVisual Basic for Applications例では、電子メール メッセージを作成し、件名を "Speeches" に設定し、Copy メソッドを使用してコピーした後、そのコピーを受信トレイ フォルダー内の "保存済みメール" という名前の新しく作成されたメール フォルダーに移動します。

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

関連項目

AppointmentItem オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。