确定Outlook中已发送邮件的文件夹,并记住上次选择的文件夹

时间:2017-03-24 13:13:38

标签: vba outlook outlook-vba

我正在尝试为Outlook 2016创建一个发送文件选项,幸运的是我找到了这个Site。但是,因为我们有很多共享邮箱,所以我的对话框会打开并默认为主帐户的收件箱。

到目前为止,我找不到办法让它记住文件夹选择器中最后选择的文件夹。从我提到的网站,我们只能手动选择文件夹,因为Outlook不会将共享邮箱读取为帐户。

如何在VB中添加脚本以使其记住最后选择的文件夹。如果没有,那么我们可以接受的另一个选项是扩展树视图或只设置另一个默认文件夹。非常感谢。

这是代码btw:

    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

1 个答案:

答案 0 :(得分:1)

PickFolder方法和显示的对话框没有选项,无法自定义。唯一的另一种选择是使用Redemption,它提供了许多用于选择文件夹的自定义。请参阅http://www.dimastr.com/redemption/RDOSelectFoldersDialog.htm