Outlook Appointments - Setting default text in message body

Status
Not open for further replies.

iandv

Member
Outlook version
Email Account
Exchange Server
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

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
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.

Code:
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

Member
Outlook version
Email Account
Exchange Server
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

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
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.
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
B Outlook Calendar/setting appointments Using Outlook 1
A Can't stop Outlook.com from setting reminders on appointments? Using Outlook.com accounts in Outlook 3
e_a_g_l_e_p_i Outlook 2021 all appointments not showing in calendar Using Outlook 2
O Export Outlook calendar appointments by filters and date range Outlook VBA and Custom Forms 1
R Outlook 2007 only loads some appointments Using Outlook 0
M warning for too many appointments on a same day in Outlook Using Outlook 1
M Creating Outlook Appointments from Excel Cells Outlook VBA and Custom Forms 1
A Outlook.com changing appointments Using Outlook 8
R Outlook calendar appointments Free/Busy time is changing from "Busy" to "Free" Using Outlook 2
G Outlook does not show new appointments in To-Do-Bar Using Outlook 0
F Outlook 2007 Calendar Appointments not in Outlook Today view Using Outlook 11
N Outlook Shared appointments automatically to Private Calendar Using Outlook 1
A Synchronize Access Table with Outlook Calendar Appointments Outlook VBA and Custom Forms 3
C Appointments from Excel to Outlook Using Outlook 3
N Outlook 2010 Archived Appointments Missing Using Outlook 5
W Outlook 2010 - Displaying Private Appointments In Shared Calendars Using Outlook 1
T Synchronize outlook appointments through web application. Using Outlook 1
R Outlook Macros for Appointments and Tasks Using Outlook 1
D Priting only Recurring Appointments in Outlook Calendar 2010 Using Outlook 1
G Can't see all my appointments on Outlook calendar Using Outlook 2
M Change Meetings to Appointments in Outlook 2003 Using Outlook 6
M Outlook Calendar Monthly View Missing Appointments Using Outlook 3
B Outlook 2010 People Pane doesn't display appointments Using Outlook 2
F Outlook 2007 - recurring appointments shifted by one day Using Outlook 4
M Outlook - Search Criteria for Overdue Appointments Using Outlook 3
R outlook 2010 calendar appointments Using Outlook 2
Retired Geek Outlook for the MAC with Yahoo accounts now very broken Using Outlook 2
S Outlook 2002- "Send" button has disappeared. Help please. Using Outlook 1
L How Stop Outlook Nag Messages Using Outlook 1
TomHuckstep Remove Send/Receive All Folders (IMAP/POP) button from Outlook 365 Ribbon Using Outlook 1
L I Cannot Sign Into My Outlook Account? Outlook VBA and Custom Forms 0
icacream Outlook 2021 - Google calendar in the peek Using Outlook 0
e_a_g_l_e_p_i Question about installing my Gmail account on my iPhone but still getting messages downloaded to my desktop Outlook. Using Outlook 3
F Want to add second email to Outlook for business use Using Outlook 3
kburrows Outlook Email Body Text Disappears/Overlaps, Folders Switch Around when You Hover, Excel Opens Randomly and Runs in the Background - Profile Corrupt? Using Outlook 0
M using excel to sort outlook appointment items Outlook VBA and Custom Forms 4
e_a_g_l_e_p_i MY Outlook 2021 changed the format of the shortcuts for mail, calendar etc. Using Outlook 10
Z Outlook 2021 Outlook new emails notification not working Using Outlook 5
K Changing the Deleted Items location in Outlook 2019 Using Outlook 2
J Outlook 365 Outlook Macro to Sort emails by column "Received" to view the latest email received Outlook VBA and Custom Forms 0
V How to use Comas in a picklist in Outlook forms Outlook VBA and Custom Forms 3
e_a_g_l_e_p_i Question about reinstalling Outlook 2021 Using Outlook 5
A Outlook 365 Outlook (part of 365) now working offline - argh Using Outlook 5
M Outlook Macro to save as Email with a file name format : Date_Timestamp_Sender initial_Email subject Outlook VBA and Custom Forms 0
G LinkedIn tab missing in Outlook 365 (but working in OWA) Using Outlook 0
Jay Freedman Outlook forgets "not junk" marking Using Outlook 0
KurtLass Opening Graphics Attachments in Outlook 2021 Using Outlook 0
P now on office 365 but getting error messages about missing Outlook 2013 cache folders Using Outlook 2
B Outlook config download Outlook VBA and Custom Forms 1
M Short term workaround for when Outlook searching stopped functioning Using Outlook 0

Similar threads

Top