電子メール メッセージのコピーが送信された後に保存されるフォルダーを表す 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
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。