With system number in cell A1 and date in cell B1; try the below macro

Sub OLApp()

Dim objOL As Object, objApp As Object
Set objOL = CreateObject("Outlook.Application")

Set objApp = objOL.CreateItem(1)
With objApp
.Subject = "Change Password for system" & Range("A1")
.Start = Range("B1")
.ReminderPlaySound = True
.Save
End With

Set objOL = Nothing
End Sub

--
Jacob (MVP - Excel)


"Dan Wood" wrote:

Is it possible to create an appointment within Outlook using Excel?

The sheet will have a date when passwords expire, and this will be changed
each month. Is there a macro to look at this date and then create an
appointment within the Outlook calendar to say something along the lines of
'Change Password for system xxxxxxxxx' where xxxxxxxxx will be the data in
field A1

Thanks for your help