將 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 。