The code is run from Outlook so does not need any form of binding. Can I assume then that you want to run it from a different Office application?
In that case only change as follows:
Option Explicit
'This macro requires the code from http://www.rondebruin.nl/win/s1/outlook/openclose.htm
'to open and access Outlook correctly
Sub MyNewMeeting(strSubject As String, _
strLocation As String, _
strDate As String, _
strTime As String, _
iMinutes As Integer, _
strName1 As String, _
strName2 As String, _
strBodyText As String)
Dim olApp As Object
Dim olItem As Object
Dim rRequiredAttendee As Object
Dim rOptionalAttendee As Object
Dim olInsp As Object
Dim wdDoc As Object
Dim oRng As Object
Set olApp = OutlookApp() ' code from http://www.rondebruin.nl/win/s1/outlook/openclose.htm
Set olItem = olApp.CreateItem(1)
With olItem
.MeetingStatus = 1
.Subject = strSubject
.Location = strLocation
.Start = strDate & Chr(32) & strTime ' & strAMPM
.Duration = iMinutes
Set rRequiredAttendee = .Recipients.Add(strName1)
rRequiredAttendee.Type = 1
Set rOptionalAttendee = .Recipients.Add(strName2)
rOptionalAttendee.Type = 2
.Display
Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor
Set oRng = wdDoc.Range
oRng.Text = strBodyText
End With
lbl_Exit:
Set olItem = Nothing
Set rRequiredAttendee = Nothing
Set rOptionalAttendee = Nothing
Set olInsp = Nothing
Set wdDoc = Nothing
Set oRng = Nothing
Exit Sub
End Sub