将 Outlook 约会保存到特定文件夹

Question

如何将新的 Outlook 约会保存到与另一个约会相同的文件夹中，我有它的 EntryID？ 该文件夹应与保存“currentitem”约会的文件夹相同。 我想我应该然后使用“item.move”函数来设置文件夹，但我无法让它工作。

EntryID = Cells(ActiveCell.Row, 23)
Set myolApp = CreateObject("Outlook.Application")
Set NS = myolApp.GetNamespace("MAPI")
NS.Logon
Set CurrentItem = NS.GetItemFromID(EntryID)
Dim MyAppt As Outlook.AppointmentItem
Set MyAppt = Outlook.Application.CreateItem(olAppointmentItem)
With MyAppt
    .Move (NS.Folders(CurrentItem)) 'THIS IS WHERE I AM STUCK
    .Start = CurrentItem.Start
    .End = CurrentItem.End
    .AllDayEvent = False
    .Display
End With

Answer 1

首先，在目标文件夹中创建项目，开始使用MAPIFolder.Items.Add而不是CreateItem / Move 。
如果您需要找出另一个项目的父文件夹，请将MailItem.Parent属性转换为MAPIFolder 。

其次（如果您使用MAPIFolder.Items.Add无关紧要） - Move是一个返回新创建项目的函数，并且从那一刻起不得触及原始项目。 您的代码会忽略新项目并继续设置旧（移动）项目的属性。

Answer 2

CurrentItem已设置为您要将文件夹移动到的文件夹。 如果它是识别字符串，而不是文件夹，则您的代码将是正确的。 但是，因为它是文件夹，所以您只需要.Move CurrentItem 。