Creating outlook meeting request

[BigDelGooner]

Hi all

I am using the following code to create an outlook meeting request.

This works fine apart from the fact that I'd like the meeting request to shift to the 'Invite Attendees' tabs. Any ideas on how I can do this?

Sub Open_InviteTeam()

Dim OutApp As Object
Dim OutMtg As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMtg = OutApp.CreateItem(1)

On Error Resume Next
With OutMtg
.Recipients.Add ("email@test.com")
.Subject = "Inv Meeeting:"
.Body = "Kind regards" & vbCr & Trim(Mid(Application.username, InStr(Application.username, ",") + 1, 50))
.Location = "Can I have a room pls"
.Duration = 60
.Display
End With
On Error GoTo 0

Set OutMtg = Nothing
Set OutApp = Nothing

End Sub

Any help greatly appreciated.

 

[s.ridd]

You need to use the .MeetingStatus property

With OutMtg
.MeetingStatus = 1

If you need to set Required or Optional attendees you can do this by using the Type property of the Recipient object... in other words something like

With OutMtg
.MeetingStatus = 1
Set OutRec = .Recipients.Add("[EMAIL="email@test.com"]email@test.com[/EMAIL]")
OutRec.Type = 1 ' 1= Required, 2 = Optional, 3 = Resource and 0 = organiser

Simon

 

[BigDelGooner]

Thank you very much Simon, hugely appreciated!

Always a simple solution when you know how ha ha!