Sub MakeAppointment(strSubject, strLocation, strStart, strEnd, strBody)
    Dim olkApp, olkNS, olkAppointment
    Set olkApp = CreateObject("Outlook.Application")
    Set olkNS = olkApp.GetNamespace("MAPI")
    olkNS.Logon "Outlook"

    ' CreateIem() params:
    ' 1 = Appointment Item
    ' 2 = Contact Item
    ' 3 = Journal Item
    ' 4 = Mail Item
    ' 5 = Note Item
    ' 6 = Post Item
    ' 7 = Task Item

    Set olkAppointment = olkApp.CreateItem(1)
    With olkAppointment
        .Subject = strSubject
        .Location = strLocation
        .Start = CDate(strStart)
        .End = CDate(strEnd)
        .ReminderSet = True
        .Body = strBody
        .Save
    End With
    olkAppointment.Display

    Set olkAppointment = Nothing
    olkNS.Logoff
    Set olkNS = Nothing
    Set olkApp = Nothing
End Sub