Question appointment into a second calendar Outlook

[vornn]

Good afternoon,

I've been banging my head against a wall for a while now, looking for a way to poke an appointment into a second calendar.

Dim TempApp As Outlook.Application = New Outlook.Application()
Dim TempAppItem As Outlook.AppointmentItem = TempApp.CreateItem(Outlook.OlItemType.olAppointmentItem)


With TempAppItem
.Subject = (" Test appointment")
.Location = "Main Office"
.Body = ("test appointment")


Dim DateString As String = StartDate & " " & StartTime
Dim convertedDate = Convert.ToDateTime(DateString)
.Start = convertedDate


DateString = EndDate & " " & EndTime
convertedDate = Convert.ToDateTime(DateString)
.End = convertedDate


.IsOnlineMeeting = False
.ReminderSet = False
.ReminderMinutesBeforeStart = 60
.BusyStatus = Outlook.OlBusyStatus.olBusy


.Save()
End With


TempApp = Nothing
TempAppItem = Nothing

My code posts an appointment to the calendar.
Written in VB.Net 2010

thanks in advance

 

[JohnH]

Search web for "vb.net outlook non default calendar", you should find some samples that you can look into.

 

[vornn]

thanks John, sometimes it's just how to phrase the search. : )

for interest, here are some results:

Load new appointment from Excel to non default Outlook Calendar - good VBA implementation, but this can be converted
Add outlook Calendar Appointment to non default calendar - Xtreme Visual Basic Talk - a VB version which works well