如何将已发送邮件保存到Office 365中SentOnBehalfName邮箱的文件夹中？ [英] How to save Sent Items to folder of SentOnBehalfName mailbox in Office 365?

问题描述

在工作中，我们通过共享收件箱发送电子邮件。电子邮件将进入用户自己的已发送邮件，而不是共享收件箱的已发送邮件。

我编写了一些VBA代码来解决这个问题。我们正在迁移到Outlook 365，代码在那里无法运行(&；)。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If TypeName(Item) = "MailItem" Then     'If Item is a MailItem
        If Item.SentOnBehalfOfName <> "" Then   'And if Item is Sent on Behalf of an inbox
            'Save the sent email in the Sent Items folder for the inbox in question
            Item.SaveSentMessageFolder GetNamespace("MAPI").Folders(Item.SentOnBehalfOfName).Folders("Sent Items")

        End If
    End If
End Sub

我试过

msgbox GetNamespace("MAPI").Folders(Item.SentOnBehalfOfName).Folders("Sent Items").Name

它提供文件夹的名称，但已发送的邮件不在其中。

我在忽略Item.SentOnBehalfOfName&；的情况下创建了一个"测试"文件夹，并将其保存到该文件夹。如果"测试"文件夹在我自己的收件箱中，则此方法有效，但如果它在共享收件箱中，则不起作用。

我尝试将代码更改为使用Set&；以包含应用程序，如下所示。

Set Item.SaveSentMessageFolder = Application.GetNamespace("MAPI").Folders(Item.SentOnBehalfOfName).Folders("Sent Items")

推荐答案

在ThisOutlookSession模块中添加以下变量声明：

Private WithEvents Items As Outlook.Items

如果您还没有Application_Startup事件过程，请通过在代码区域上方选择左侧下拉列表中的ApplicationStartup来创建它。

要添加到此过程的代码：

Set Items = Session.GetDefaultFolder(olFolderSentMail).Items

然后，您需要在代码区域左侧的下拉列表中选择Items&；在代码区域右侧的下拉列表中选择ItemSend。

下面是此过程应该是什么样子：

Private Sub Items_ItemAdd(ByVal Item As Object)
    If TypeName(Item) = "MailItem" Then     'If Item is a MailItem
        If Item.SentOnBehalfOfName <> Session.Accounts.Item(1).CurrentUser Then   'And if Item is Sent on Behalf of the users own inbox
            'Move the email into the Sent Items folder for the inbox in question
            Item.Move GetNamespace("MAPI").Folders(Item.SentOnBehalfOfName).Folders("Sent Items")
        End If
    End If
End Sub

这篇关于如何将已发送邮件保存到Office 365中SentOnBehalfName邮箱的文件夹中？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！