次の方法で共有

MailItem.SaveSentMessageFolder プロパティ (Outlook)

  • [アーティクル]

電子メール メッセージのコピーが送信された後に保存されるフォルダーを表す Folder オブジェクトを設定または返します。 値の取得と設定が可能です。

構文

expression。 SaveSentMessageFolder

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

例

このVisual Basic for Applications (VBA) の例では、Dan Wilson に応答を送信し、送信後にアイテムのコピーを保存するフォルダーとしてフォルダーを設定SaveMyPersonalItemsします。 エラーを発生させずにこの例を実行するには、アクティブなインスペクター ウィンドウでメール アイテムを開いておき、"Dan Wilson" を実際の受信者の名前に置き換えてください。

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

関連項目

MailItem オブジェクト

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

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