Paul Fisher
Member
- Outlook version
- Outlook 2013 32 bit
- Email Account
- IMAP
The following code creates an appointment in my default calendar.
How can I change it to select a specific calendar into which to add the appointment? I know the name of the Calendar but not it's Index number which might vary from user to user.
If IDCal = "Yes" Then
With CreateObject("Outlook.Application").CreateItem(1)
.Subject = ID_Time & " / " & Surname & " / " & "ID Visit"
.Start = ID_Date + " " + ID_Time
.Duration = 60
.Location = Client Office
.Save
End With
End If
How can I change it to select a specific calendar into which to add the appointment? I know the name of the Calendar but not it's Index number which might vary from user to user.


If IDCal = "Yes" Then
With CreateObject("Outlook.Application").CreateItem(1)
.Subject = ID_Time & " / " & Surname & " / " & "ID Visit"
.Start = ID_Date + " " + ID_Time
.Duration = 60
.Location = Client Office
.Save
End With
End If