MailItem.Move メソッド (Outlook)

  • [アーティクル]

Microsoft Outlook アイテムを別のフォルダーへ移動します。

構文

式。 Move( _DestFldr_ )

expression は MailItem オブジェクトを表す変数です。

パラメーター

名前 必須 / オプション データ型 説明
DestFldr 必須 Folder Folder オブジェクトを返す式です。 移動先のフォルダーを指定します。

戻り値

移動先のフォルダーに移動されたアイテムを表すオブジェクト型 ( Object) の値。

例

このVisual Basic for Applications (VBA) の例では、GetDefaultFolder を使用して、既定のフォルダーを表す Folder オブジェクトを返します。 次に、 Find メソッドと FindNext メソッドを使用して Dan Wilson から送信されたすべてのメッセージを検索し、 Move メソッドを使用して Dan Wilson から送信されたすべてのメール メッセージを既定の 受信トレイ フォルダーから個人用メール フォルダーに移動します。 To run this example without any errors, replace 'Dan Wilson' with a vaid sender name and make sure there's a folder under Inbox called 'Personal Mail'. Note that myItem is declared as type Object so that it can represent all types of Outlook items including meeting request and task request items.

Sub MoveItems() 
 Dim myNameSpace As Outlook.NameSpace 
 Dim myInbox As Outlook.Folder 
 Dim myDestFolder As Outlook.Folder 
 Dim myItems As Outlook.Items 
 Dim myItem As Object 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox) 
 Set myItems = myInbox.Items 
 Set myDestFolder = myInbox.Folders("Personal Mail") 
 Set myItem = myItems.Find("[SenderName] = 'Dan Wilson'") 
 While TypeName(myItem) <> "Nothing" 
 myItem.Move myDestFolder 
 Set myItem = myItems.FindNext 
 Wend 
End Sub

関連項目

MailItem オブジェクト

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

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