Hi,

I currently have a macro which automatically creates an outlook appointment
based on excel data.

Sub CreateAppointment()


Dim objOL As Object
Dim objItem As Object
Dim lngRow As Long


Set objOL = CreateObject("Outlook.Application")
Set objItem = objOL.CreateItem(1)

With objItem
..Start = Range("B5").Value
..End = Range("B6").Value
..Subject = Range("B3").Value & " " & Range("B2").Value & " for " &
Range("B8").Value & "(" & Range("B7").Value & ")" & " " & " Postcode " &
Range("B13").Value
..Location = Range("B9").Value & ", " & Range("B10").Value & ", " &
Range("B11").Value & ", " & Range("B12").Value & ", " & Range("B13").Value
..Body = Range("B23").Value & ", Alarm Company is " & Range("B16").Value & "
on " & Range("B22").Value & vbNewLine & "Site details are, " & vbNewLine &
Range("B9").Value & ", " & vbNewLine & Range("B10").Value & "," & vbNewLine &
Range("B11").Value & "," & vbNewLine & Range("B12").Value & ", " &
Range("B13").Value & "," & vbNewLine & "Telephone " & Range("B14").Value
..ReminderMinutesBeforeStart = (180)
..ReminderSet = True
..Save
End With

End Sub

Can any one help with a full list of fields

ie .Reminder Set, .Location, .Start etc etc etc

Many thanks.

Matt