2017-03-24 12 views
1

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 
+0

追加するだけで、私が取り組んでいる機能はLotus Notesのsend-and-fileオプションと似ています。 –

+0

反対側から見ることもできると思います。まずPickboxを通過するのではなく、使用するSentIemsフォルダが分かるように、メールボックス/アカウントを設定します。 – niton

+0

SaveSentMessageFolderは、アイテムが存在する同じストア内のフォルダにのみ設定できます。 –

答えて

1

PickFolder方法とオプションはありませんし、カスタマイズすることができません表示されるダイアログが。唯一の他のオプションは、フォルダを選択するための多くのカスタマイズを提供するRedemptionを使用することです。 http://www.dimastr.com/redemption/RDOSelectFoldersDialog.htmを参照してください。

関連する問題