Add Form to Appointments Received, Automatically

Status
Not open for further replies.
C

CharlesDarwall

Member
Outlook version
Outlook 2019 64-bit
Email Account
Office 365 Exchange
Can a Form be added automatically on Appointments received (or accepted)?. I need to track details of all meeting I attend, such as client name, product discussed, client location. This functionality exists on appointments I create by setting Calendar Properties to a specific form - I need to do this to appointments received.

Capture.PNG
 
You can use a custom form to add / show those fields. if you have the custom form, you can set it as default for the calendar - if incoming still use the wrong form, you can use a macro to change the message class.
 
By jobe, I think I did it:

Option Explicit
Private objNS As Outlook.NameSpace
Private WithEvents objItems As Outlook.Items

Private Sub Application_Startup()

Dim objWatchFolder As Outlook.Folder
Set objNS = Application.GetNamespace("MAPI")

'Set the folder and items to watch:
Set objWatchFolder = objNS.GetDefaultFolder(olFolderCalendar)
Set objItems = objWatchFolder.Items

Set objWatchFolder = Nothing
End Sub
Private Sub objItems_ItemAdd(ByVal Item As Object)

' Your code goes here
If Item.Class = olAppointment Then
If Item.MessageClass <> "IPM.Appointment.NewForm" Then
Item.MessageClass = "IPM.Appointment.NewForm"
Item.Save
End If
End If

End Sub
 
That should have worked... does it fail on all or just meetings?
if you remove the IF message class line does it work?
If Item.MessageClass <> "IPM.Appointment.NewForm" Then

Appointments only have one message class
 
I tested it - it is working. Use a list view and add the message class field to the view - was the message class changed? The ones with the note icon are incoming meetings.
2020-07-19_23-37-14-0000.png
 
Diane Poremsky said:
That should have worked... does it fail on all or just meetings?
if you remove the IF message class line does it work?
If Item.MessageClass <> "IPM.Appointment.NewForm" Then

Appointments only have one message class
Click to expand...

So... yes I got it to work, thanks to your guidance. Seeing the Message Class is really helpful. I got it to work on my personal Outlook, but not on my employer's Outlook. They must have a macro blocker coming from the outside. So I'll need to create a button within Outlook that triggers the new Message Class on each Appointment I need to change the class on.

Thanks

Charles
 
Status
Not open for further replies.
< Validating a group of Checkboxes | Create an appointment for all the members >
Similar threads
Thread starter Title Forum Replies Date
G Add Map It button to Custom Contacts Form in Outlook Outlook VBA and Custom Forms 1
G Outlook 2021 Add Picture to Custom Contact Form Outlook VBA and Custom Forms 2
P Can't add custom field to custom Outlook form, it always adds to the Folder instead Outlook VBA and Custom Forms 2
R Add 'Company' to Select Names Form Using Outlook 1
BretAB Is it possible to add a lookup field to a Message form? Outlook VBA and Custom Forms 4
D Add Tetxbox at form open Outlook VBA and Custom Forms 1
makinmyway Can I add a Map It Button to Custom Contact Form? How? Outlook VBA and Custom Forms 6
A "Microsoft Exchange Add-In" (UmOutlookAddin.dll) + Outlook Security Form ... Using Outlook 4
T Add 'Move to folder' icon to custom form Using Outlook 1
H How can you add a URL field in a Outlook Custom Contact form? Using Outlook 6
R Add a link to a custom form Using Outlook 0
P Outlook contact form no longer requiring Category selection to add new Using Outlook 1
0 Add a date stamp to the note field of a custom form Outlook VBA and Custom Forms 1
R Add new type and Custom form on exchange Outlook VBA and Custom Forms 3
L [Outlook 2003] Add Table to form Outlook VBA and Custom Forms 2
U Is it posible to Invoke a custom Form in my Outlook Add-in tool ba Outlook VBA and Custom Forms 1
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
S Outlook 2019 Custom outlook Add-in using Visual Studio Outlook VBA and Custom Forms 0
G automatically choosing "add to autocorrect" option Using Outlook 0
F Want to add second email to Outlook for business use Using Outlook 4
K Add an entry to a specific calendar Using Outlook 1
F Add a category before "Send an Email When You Add an Appointment to Your Calendar" Outlook VBA and Custom Forms 0
J Want to create a button on the nav bar (module add-in) to run code Outlook VBA and Custom Forms 2
M "Attachment Detacher for Outlook" add in, does it update the server copy of the email? Using Outlook 1
J Outlook 365 Add keywords from Listbox to the message body where cursor is placed Outlook VBA and Custom Forms 0
O Add Day Number of the year for 2023-2033 Outlook VBA and Custom Forms 5
J GoDaddy migrated to Office365 - Outlook Wont Add Account Exchange Server Administration 21
F Outlook 2019 Outlook 2019 Add and Sync to New computer Comcast server Using Outlook 2
Witzker Add a text line at the end of the note field in all selected Contacts Outlook VBA and Custom Forms 7
A iCloud Outlook Add In is causing Outlook 2021 to crash and got disabled Using Outlook 10
N How to add or delete items to Move dropdown Menu Using Outlook 0
G Add contacts birthday to calendar Using Outlook 4
V How to add 'Previous Item' and 'Next Item' to the Quick Access Toolbar Using Outlook 1
Commodore Safe way to add or update holidays; Windows Notifications issue Using Outlook 8
kkqq1122 How would I add Search for attachment name Outlook VBA and Custom Forms 3
L did MS ever add way to text via Outlook Using Outlook 5
P How to add a column named categories when searching in Outlook Using Outlook 0
M add new attendee to existing meetings with VBA Outlook VBA and Custom Forms 5
N Can't create NEW GROUP and add/remove a member from existing Group in Outlook Using Outlook 1
Witzker Outlook 2019 Pls. add a Prefix for OUTLOOK 2019 here Using Outlook 1
P Add inanimate objects to meetings? Using Outlook 1
O Outlook 2010 Add delete button to the side of the message list Using Outlook 1
BartH Add a string to the conditions in .Conditions.BodyOrSubject.Text Outlook VBA and Custom Forms 2
A "Get Add-Ins" - Which Version of Outlook to use Using Outlook 1
D Do I need Exchange Add-In? Using Outlook 6
C-S-R Manage Add-ins (Remove Wunderlist) Using Outlook 6
A iCloud add in problems Using Outlook 4
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 17
C Looking for feedback on new Outlook Add-in Using Outlook 0
L isn't there an OL add-on that flags addressee before sending Using Outlook 3

Similar threads

Back
Top