Automatically create outlook appointment
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 |
All times are GMT +1. The time now is 07:34 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com