D
dbornt
I was able to create meeting and send out invitations for them via Access,
but for some reason when the invitee responds it gave me a message saying the
meeting is not on the calendar and that it might've been deleted. On my
calendar it also shows that no one had responded to the meeting. I'm
thinking that I'm missing some kind of argument to link the actual meeting
and the invitation? Any ideas?
Here's the code that I use:
Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")
Set olfolder = olNS.GetDefaultFolder(olFolderInbox)
Set olApptItem = olfolder.Items.Add("IPM.Appointment")
strBodyText = "This is a test please accept the invitation"
'strSubject = "Review Submission ID " & _
' [SubmissionID] & " Due on " & [Due Date]
With olApptItem
.MeetingStatus = olMeeting
.Recipients.Add ("Smith, John ")
.Subject = strSubject
.Start = [Response Due Date]
.Body = strBodyText
.AllDayEvent = True
.ReminderSet = True
.ReminderMinutesBeforeStart = 10080 '1 day reminder = 1440, 1 week = 10080
.Save
.Send
End With
but for some reason when the invitee responds it gave me a message saying the
meeting is not on the calendar and that it might've been deleted. On my
calendar it also shows that no one had responded to the meeting. I'm
thinking that I'm missing some kind of argument to link the actual meeting
and the invitation? Any ideas?
Here's the code that I use:
Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")
Set olfolder = olNS.GetDefaultFolder(olFolderInbox)
Set olApptItem = olfolder.Items.Add("IPM.Appointment")
strBodyText = "This is a test please accept the invitation"
'strSubject = "Review Submission ID " & _
' [SubmissionID] & " Due on " & [Due Date]
With olApptItem
.MeetingStatus = olMeeting
.Recipients.Add ("Smith, John ")
.Subject = strSubject
.Start = [Response Due Date]
.Body = strBodyText
.AllDayEvent = True
.ReminderSet = True
.ReminderMinutesBeforeStart = 10080 '1 day reminder = 1440, 1 week = 10080
.Save
.Send
End With