在特定 outlook 日历上创建新约会

Question

I'm looking for Outlook VBA code that will create a new task on a specific outlook calendar??? For example, when I run the macro a new task opens. When I click "save", it will add the task to my non-default calendar "Notes/Tasks/Reminders".

Answer 1

You need to get the target calendar folder and then use the Items.Add method to create a new appointment there. Read more about all possible ways in the How To: Create a new Outlook Appointment item article.

Dim appItem as Outlook.AppointmentItem
Dim items as Outlook.Items
Set items = yourCalendarFolder.Items
Set appItem = items.Add(olAppointmentItem)