Create Outlook meeting from Access VBA

Question

I am the treasurer at a United Methodist Church (UMC).&nbsp; I would like to create an Outlook meeting based on input from an Access database form.&nbsp; The catch is that I would like the organizer of the meeting to be another user, specifically, a dummy user that I created called UMC Events.&nbsp; This user's calendar holds all of the events scheduled at the church.&nbsp; The secretary and I have the UMC Events mailbox added to our own Outlook profile.&nbsp; Normally, we would go to the UMC Events calendar and manually create the meeting from there.&nbsp; Recently, we added a schedule of fees associated with people renting our rooms for various events.&nbsp; I said I would add this to the database that I created a few years ago to manage the church's information.&nbsp; I thought it would be good to be able to schedule the meeting right from this form, rather than have to go back to Outlook to schedule.&nbsp; A few years ago, I found the code below on a user's forum and added it, with a few modifications.&nbsp; Unfortunately, I don't understand some of the code, so I don't know what would need to be changed.&nbsp; When I run this, it creates the meeting and invites UMC Events, but it doesn't go on UMC Event's calendar and it puts it on my calendar, which I don't want.&nbsp; Short of logging out and logging in as UMC Events, is there a way to force the organizer of the meeting to be someone other than yourself?&nbsp;Private Sub cmdScheduleMeeting_Click()
Dim dteDate As Date
Dim dteStart As Date
Dim dteEnd As Date
Dim strLocation As String
Dim strSubject As String
Dim strInvitees As String
Dim myOutlook As Outlook.Application
Dim oNS As Outlook.NameSpace
Dim oRecip As Outlook.Recipient
Dim oFolder As Outlook.Folder
Dim myMeeting As AppointmentItem
Dim oAccount As Outlook.Account
Dim Accounts As Outlook.Accounts
Dim N As Integer
With Me                                                                              
    dteDate = !EventDate                      'This group of code pulls in values                                               
    dteStart = !StartTime                     'from fields on the form on which                                               
    dteEnd = !EndTime                         'the button exists.  GroupID is a                                                
    strLocation = EventLocation(!EventID)     'field which would represent a group                                       
    strSubject = !Event                       'within the church who is invited to                                       
    If IsNull(!GroupID) Then                  'the meeting.  It would be left blank                                          
        strInvitees = "Email address removed"    'if someone were renting a room                             
    Else                                            'for a personal event.  umcevents@
        strInvitees = "Email address removed" &amp; MembersEmailsByGroup(!GroupID)
    End If                                          'umcofmacedonia.org is the email 
End With                                            'address for UMC Events.
Set Accounts = Session.Accounts                     'I don't fully understand the lines
Set myOutlook = CreateObject("outlook.application")'regarding oNS, oRecip, and oFolder.                                  
Set oNS = myOutlook.GetNamespace("MAPI")           'These were in the original code I                                 
Set oRecip = oNS.CreateRecipient("UMC Events")    'copied.  The oRecip line originally                                 
Set oFolder = oNS.GetSharedDefaultFolder(oRecip, olFolderCalendar)                   
Set myMeeting = myOutlook.CreateItem(olAppointmentItem) 'had another username there, so                                             
With myMeeting                                      'I thought by changing it to UMC 
    .Resources = strLocation                        'Events, it would force it to  
    .MeetingStatus = olMeeting                      'be the organizer.
    .RequiredAttendees = strInvitees
    .Subject = strSubject
    .Start = dteDate + dteStart
    .End = dteDate + dteEnd
    .ReminderMinutesBeforeStart = 15
    .Location = strLocation
    For Each oAccount In Accounts
        If oAccount.DisplayName = "Email address removed" Then
            .SendUsingAccount = oAccount
            .Save
            .Send
        End If
    Next
End With
Set myMeeting = Nothing
Set myOutlook = Nothing
End Sub

mariabarnes · Answer

Jill, I think you are very close. Instead of calling Application.CreateItem, create the item directly using oFolder.Items.Add
So instead of
Set myMeeting = myOutlook.CreateItem(olAppointmentItem)
try
Set myMeeting = oFolder.Items.Add(olAppointmentItem)

jurgengeelen · Answer

Jill_Marlow&nbsp;I think you must replace this with your umc events mail address:&nbsp;If oAccount.DisplayName = "Email address removed" Then&nbsp;like:&nbsp;If oAccount.DisplayName = "Email address removed" Then&nbsp;If this isn't working then replace this too like:&nbsp;If oAccount.SmtpAddress= "Email address removed" Then&nbsp;

jill_marlow · Answer

That worked!&nbsp; Thanks so much.&nbsp; I created a test event and it put it on UMC Event's calendar and not mine.&nbsp; The only glitch is, and this happened originally, is that the room is on the meeting twice.&nbsp; I'll have to look at the code more closely to see if the room is somehow being invited twice.&nbsp; Thanks again!&nbsp;MariaBarnes&nbsp;

jill_marlow · Answer

I just figured it out. I had both .resources and .location which were set to the name of the room chosen in the form. I didn't need both, so I deleted the line with .location.

jill_marlow · Answer

I have another related question.&nbsp; I see that there are properties associated with a meeting that have to do with recurrence.&nbsp; How would I modify the code to include a recurrence of, say, the second Monday of every month until December of the current year?&nbsp;&nbsp;Jill_Marlow&nbsp;

Forum Discussion

Create Outlook meeting from Access VBA