A
Alarmbloke
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
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