Is it this kind of target ?
Code:
Dim olobj As Object, oloappt As Object
Dim apptBody as String
Dim dtApptDate as Date, dtApptTime as Date
Set olobj = CreateObject("Outlook.Application")
Set oloappt = olobj.CreateItem(olAppointmentItem)
apptBody = "My Appointment:||" & TextLine1 or String & "||" & "Date: " & Format(dtApptDate, "dddd-dd-mmm-yyyy") & "||" & _
"Time: " & Format(dtApptTime, "hh:nn")
With oloappt
.Start = Nz(dtAppttDate, "") & " " & Nz(dtApptTime, "")
.subject = "Add Appointment Subject " & " " & "Appointment " & dtApptDate & " " & dtApptTime, these are
.ReminderMinutesBeforeStart = 10080
.ReminderSet = True
.Location = "Add Your Location"
.Body = Replace(apptBody, "|", vbCrLf)
.Save
.Close (olSave)
End With
Set olappt = nothing
Set olobj = Nothing
Hope this helps, as all guy's on here are so helpful to me, i am thinking this maybe a starting point