Outlook Send Meeting Invite / Appointment

[vbafasttrack]

Hi,

I am trying to get meeting invites sent from Outllok via Excel vba. THe below code works fine (albeit with the usual warnings) with an 'open' visible instance of Outlook present (i.e. when I have previously opened Outlook manually then subsequently run the code) but NOT when Outlook was not opened previously:

'// At this point, we have an oOutlook Appointment object and can now set some of its properties...
With olAppointment
    .MeetingStatus = 1 'olMeeting=1, olMeetingCanceled=5
    .Start = Sheets("Sheet1").Range("startdatetime").Value
    .End = .Start + TimeValue("02:00:00")
    '.Duration = "00:05"
    .Subject = "Client Quote Appointment 3"
    .Location = "TBA"
    .Body = Msg
    .BusyStatus = 2 'olBusy
    .ReminderMinutesBeforeStart = 2880
    .ReminderSet = True
    .Mileage = 22
    .Recipients.Add "email@address.com"
    .Recipients.ResolveAll
    '.Display
    '.Save
    .Send
End With

Seems to work if the display method is used when there was no previous 'open' Outlook instance. Any ideas ?

Thanks in advance.

 

[John_w]

Include this code which determines if Outlook is running and opens it if not:

    If Not IsOutlookRunning Then
        Shell "outlook.exe", vbMinimizedNoFocus
    End If

and add this function:

Private Function IsOutlookRunning() As Boolean
    Dim outlook As Object
    Set outlook = Nothing
    On Error Resume Next
    Set outlook = GetObject(, "Outlook.Application")
    On Error GoTo 0
    IsOutlookRunning = Not outlook Is Nothing
End Function

 

[vbafasttrack]

John,

Thanks for the reply. That code will still mean that Outlook is opened and if it were not originally then I would want that to remain the case ideally. I found the solution - having to create a session with the default profile:

Dim session As Object
Set session = olApp.session.Accounts.Item(0)

Naturally you need to test for an already opened session (in the case where Outlook was already started previously) - but the above code works when there is currently no open instance of Outlook.