Outlook 2016の送信およびファイルオプションを作成しようとしていて、幸いにもこれが見つかったSite。しかし、多くの共有メールボックスがあるため、ダイアログボックスが開き、デフォルトでメインアカウントの受信トレイになります。Outlookの送信済みアイテムのフォルダを特定し、最後に選択したフォルダを覚えています
これまでのところ、フォルダピッカーで最後に選択したフォルダを覚えておく方法が見つかりませんでした。私が言及したサイトからは、共有されたメールボックスがOutlookによってアカウントとして読み込まれないため、フォルダを手動で選択することしかできません。
最後に選択したフォルダを覚えておくために、VBでスクリプトを追加するにはどうすればよいですか。それ以外の場合は、ツリービューを展開するか、別のデフォルトフォルダを設定するだけです。どうもありがとう。
ここところでコードです:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If TypeOf Item Is Outlook.MailItem Then
Cancel = Not SaveSentMail(Item)
End If
End Sub
Private Function SaveSentMail(Item As Outlook.MailItem) As Boolean
Dim F As Outlook.MAPIFolder
If Item.DeleteAfterSubmit = False Then
Set F = Application.Session.PickFolder
If Not F Is Nothing Then
Set Item.SaveSentMessageFolder = F
SaveSentMail = True
End If
End If
End Function
追加するだけで、私が取り組んでいる機能はLotus Notesのsend-and-fileオプションと似ています。 –
反対側から見ることもできると思います。まずPickboxを通過するのではなく、使用するSentIemsフォルダが分かるように、メールボックス/アカウントを設定します。 – niton
SaveSentMessageFolderは、アイテムが存在する同じストア内のフォルダにのみ設定できます。 –