(Solved) – Save Outlook appointment to specific folder

  • by

How do I save a new outlook appointment to a specific folder? The folder should be the same as the “currentitem” folder below. I think I should then use the “item.move” function to set the folder, but I can’t get it to work.

EntryID = Cells(ActiveCell.Row, 23)
Set myolApp = CreateObject("Outlook.Application")
Set NS = myolApp.GetNamespace("MAPI")
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
End With

Leave a Reply

Your email address will not be published. Required fields are marked *