Outlook Appointments - Setting default text in message body

[iandv]

Hi

In Outlook 2007/2010 is there a way to pre populate the message box (just under the end time box) when creating a new outlook appointment?

Many Thanks

 

[Diane Poremsky]

You can use VBA - that is .body field. If you want every single appt you create to have the same information, you can use a custom form.

Paste this in the VBA editor and run it - only appt created via the macro will have something in the body field.

Sub newappt() 
 
Dim cAppt As AppointmentItem 
 
Set cAppt = Application.CreateItem(olAppointmentItem) 
 
With cAppt
   .Subject = "New: "
   .Start = Now() + 0.125 'fraction of a day
   .Duration = 130 'minutes
   .Location = "Somewhere, over the rainbow"
   .Body = "Making a new appt!"
   .Display 
 
End With 
 
End Sub

 

[iandv]

Thanks

Will this work with macros turned off? As on our Intranet I think macros are off by default.

And by including this vb code how could you replicate this across certain users in the domain for this shared calendar?

 

[Diane Poremsky]

No, it won't work if you can't use macros. Sorry.

You'd need to add it to each person's Outlook.

For a shared calendar, you could use a custom form published to the shared calendar folder and set as the default form for that folder. It should work for all users.