A
AirDuster101
Hi,
I am using ACCESS 2002 and Outlook 2000. I need to setup a meeting
appointment with mulitple attendees. Such as strRecipients = "Joe Lee; Adam
West; Jane White". But, I can't get the name separator to work correctly.
I've tried comma but, all still just show as one attendee. Please help!
'ADD ATTENDEE
Dim oRecipt As Outlook.Recipient
Dim strRecipients As String
strRecipients = "Joe Lee; Adam West; Jane White"
With objAppt
'Add the recipient to the Meeting Request
Set oRecipt = .Recipients.Add(strRecipients)
.Start = Me!ApptDate & " " & Me!ApptTime
.Duration = Me!ApptLength
.Subject = Me!Appt
If Not IsNull(Me!ApptNotes) Then .Body = Me!ApptNotes
If Not IsNull(Me!ApptLocation) Then .Location = Me!ApptLocation
If Me!ApptReminder Then
.ReminderMinutesBeforeStart = Me!ReminderMinutes
.ReminderSet = True
End If
.Save
'.Close
End With
Thanks,
AD
I am using ACCESS 2002 and Outlook 2000. I need to setup a meeting
appointment with mulitple attendees. Such as strRecipients = "Joe Lee; Adam
West; Jane White". But, I can't get the name separator to work correctly.
I've tried comma but, all still just show as one attendee. Please help!
'ADD ATTENDEE
Dim oRecipt As Outlook.Recipient
Dim strRecipients As String
strRecipients = "Joe Lee; Adam West; Jane White"
With objAppt
'Add the recipient to the Meeting Request
Set oRecipt = .Recipients.Add(strRecipients)
.Start = Me!ApptDate & " " & Me!ApptTime
.Duration = Me!ApptLength
.Subject = Me!Appt
If Not IsNull(Me!ApptNotes) Then .Body = Me!ApptNotes
If Not IsNull(Me!ApptLocation) Then .Location = Me!ApptLocation
If Me!ApptReminder Then
.ReminderMinutesBeforeStart = Me!ReminderMinutes
.ReminderSet = True
End If
.Save
'.Close
End With
Thanks,
AD