如何选择要为其创建outlook项目的帐户？

Question

我正在编写一个脚本，用于创建和更新outlook便笺。除了一个问题之外，一切都很好。

它创建和更新我的个人邮箱上的便笺，我需要它来创建和维护部门邮箱上的便笺，我们都可以访问(我在我的Outlook中设置了两个帐户)。

尽管该脚本是由部门邮箱上的规则触发的，并且为部门邮箱提供了邮件项目，但它仍以这种方式运行。如何告诉VBS/Outlook我要使用哪个笔记文件夹/帐户？我在任何地方都找不到任何概述如何选择将在哪个帐户下创建笔记的内容。

我正在使用Outlook 2016。

Set olkFolder = Session.GetDefaultFolder(olFolderNotes)
Set olkNote = olkFolder.Items.Find("[Subject] = 'Sequential Number'")
If TypeName(olkNote) = "Nothing" Then
    Set olkNote = Application.CreateItem(olNoteItem)
    olkNote.Body = "Sequential Number" & vbCrLf & "NextValue=" & STARTING_VALUE + 1
    GetNextNumber = STARTING_VALUE
Else
    arrLines = Split(olkNote.Body, vbCrLf)
    For Each varLine In arrLines
        If Left(varLine, 10) = "NextValue=" Then
            GetNextNumber = CInt(Mid(varLine, 11))
            olkNote.Body = "Sequential Number" & vbCrLf & "NextValue=" & GetNextNumber + 1
        End If
    Next
End If

Answer 1

您可以通过move或add直接将创建的便笺添加到其他帐户的文件夹中。

在该链接中，添加以下代码：

Sub AddContact() 
    Dim myNamespace As Outlook.NameSpace 
    Dim myFolder As Outlook.Folder 
    Dim myItem As Outlook.ContactItem 
    Dim myOtherItem As Outlook.ContactItem 

    Set myNamespace = Application.GetNamespace("MAPI") 
    Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts) 
    Set myOtherItem = myFolder.Items("Dan Wilson") 
    Set myItem = myFolder.Items.Add 
    myItem.CompanyName = myOtherItem.CompanyName 
    myItem.BusinessAddress = myOtherItem.BusinessAddress 
    myItem.BusinessTelephoneNumber = myOtherItem.BusinessTelephoneNumber 
    myItem.Display 
End Sub

如果您的导航窗格中有邮箱，请单击“向下导航”。https://stackoverflow.com/a/6116820/1571407

ns.Folders("Personal Folders").Folders("Inbox")

在你的代码中：

Set olkFolder = ns.Folders("name of other mailbox").Folders("Notes")

无论文件夹是否在您的导航窗格中，您都可以使用另一个答案中所述的CreateRecipient。

Answer 2

不使用Application.CreateItem，而是使用Application.Session.CreateRecipient / Application.Session.GetSharedDefaultFolder从另一个邮箱打开文件夹并调用MAPIFolder.Items.Add，或者(如果该邮箱已在Outlook中可用)从Application.Session.Folders开始深入到该文件夹，然后(再次)调用MAPIFolder.Items.Add。

替换

Set olkFolder = Session.GetDefaultFolder(olFolderNotes)
...
Set olkNote = Application.CreateItem(olNoteItem)

使用

set recip = Session.CreateRecipient("SomeOtherUser@YourDomain.demo")
Set olkFolder = Session.GetSharedDefaultFolder(recip, olFolderNotes)
...
Set olkNote = olkFolder.Items.Add