Outlook macros to create meeting on shared calendar

Status
Not open for further replies.

djsupersain

Member
Outlook version
Outlook 2016 64 bit
Email Account
Office 365 Exchange
Hi Guys,

Thanks for having me here..

I'm very new to this all and have followed some online guides to customize a "Meeting Form" and create a "Button" on the outlook ribbon allowing me to book jobs. Myself and a work colleague each have independent email addresses on the office365 exchange (we use outlook 2016) and intern also our own calendars.

I have shared my calendar with my work colleague and have also setup the same form and button on his machine, but everytime he books a job it books to his calendar, at this stage i can only see his booked jobs by sharing his calendar and "Overlaying" with mine so we don't get any conflicting bookings.

Below is the macro code I used, but what can I add to have it book the jobs on "my calendar" that i have shared with him please.

Sub MakeItem()
Set newItem = Application.CreateItemFromTemplate("C:\Users\user\AppData\Roaming\Microsoft\Templates\test.oft")
newItem.Display
Set newItem = Nothing
End Sub

Thank you so much in advance.
 

djsupersain

Member
Outlook version
Outlook 2016 64 bit
Email Account
Office 365 Exchange
Hi and thank you for such a quick reply, yes I have set him up as a owner on my calendar.
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
CreateItem`adds the item to the default calendar, which for your collegue is not yours. Call GetSharedDefaultFolder, and move the item to that folder. See a sample for how to use that function in the VBA help file.
 

djsupersain

Member
Outlook version
Outlook 2016 64 bit
Email Account
Office 365 Exchange
Hi Michael thank you for your reply.. very new to this and don't fully understand vb yet but am determined to learn... will the following work ?

Sub MakeItem()
Set CalendarFolder = GetSharedDefaultFolder(me@me.com, FolderType)
Set newItem = Application.CreateItemFromTemplate("C:\Users\user\AppData\Roaming\Microsoft\Templates\test.oft")
newItem.Display
Set newItem = Nothing
End Sub
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
The email address must be enclosed in quotation marks.
And you need to move the item to the target folder, that is after loading the template call:
set newitem=newitem.move(calendarfolder)
 

djsupersain

Member
Outlook version
Outlook 2016 64 bit
Email Account
Office 365 Exchange
Hi Michael, thank you again.. so the correct code would be like the following?

Sub MakeItem()
Set CalendarFolder = GetSharedDefaultFolder("me@me.com, FolderType")
Set newItem = Application.CreateItemFromTemplate("C:\Users\user\AppData\Roaming\Microsoft\Templates\test.oft")
newItem.Display
Set newItem = newitem.move(calendarfolder)
End Sub
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Only the address is in quotation marks. For FolderType you need to specify which type of folder should be opened: place the cursor onto the word 'FolderType', press ctrl+switch+j, then select the type you need.

Also, move the item before you display it.
 

djsupersain

Member
Outlook version
Outlook 2016 64 bit
Email Account
Office 365 Exchange
Thank you for all your help... slight change in plan, have since created a public folder calendar... please if you could assist in the code below, so now im wanting my macro to create the appointment on the public folder calendar...

Sub MakeItem()
Set CalendarFolder = olPublicFoldersAllPublicFolders(TEST, "TEST@TEST.COM" \ TEST_CALENDAR)
Set newItem = Application.CreateItemFromTemplate("C:\Users\user\AppData\Roaming\Microsoft\Templates\test.oft")
newItem.Display
Set newItem = Nothing
End Sub
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Press ctrl+6 in Outlook and look at the hierarchy of folders and their names. You´ll find the same hierarchy in Application.Session.Folders("[here the topfolder name]".Folders("[here the subfolder name]")
 

djsupersain

Member
Outlook version
Outlook 2016 64 bit
Email Account
Office 365 Exchange
Apologies for the delay in coming back to you, please are you able to assist with how my macro should be? it just can't seem to get it... can you confirm the below ? and if you can suggest any online courses to learning VB that would be greatly appreciated!

Sub MakeItem()
Set CalendarFolder = Application.Session.Folders("[here the topfolder name]".Folders("[here the subfolder name]")
Set newItem = Application.CreateItemFromTemplate("C:\Users\user\AppData\Roaming\Microsoft\Templates\test.oft")
newItem.Display
Set newItem = Nothing
End Sub
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
C Create macros in Outlook 2007 Outlook VBA and Custom Forms 5
J Want to learn VBA Macros for Outlook. What book can you recommend? Outlook VBA and Custom Forms 2
Diane Poremsky Using Arrays in Outlook macros New Slipstick.com Articles 0
Diane Poremsky Running Outlook Macros on a Schedule New Slipstick.com Articles 0
S Using Macros in the Outlook Calendar Using Outlook 2
A Outlook 2010 disabled macros Using Outlook 2
R Outlook Macros for Appointments and Tasks Using Outlook 1
L Macros disabled in custom Outlook form Outlook VBA and Custom Forms 1
M macros of outlook 2007 Outlook VBA and Custom Forms 1
S Need: Date handling in Outlook Macros, either information/documentation Outlook VBA and Custom Forms 1
N Copying outlook macros between pcs Outlook VBA and Custom Forms 1
D Macros Disabled in Outlook 2007 BCM (Business Contact Manager) 9
C Outlook macros have vanished Outlook VBA and Custom Forms 1
e_a_g_l_e_p_i Outlook 2010 Help setting up Gmail account in Outlook 2010 Using Outlook 3
C-S-R How to clear an Outlook (To Do) Task Flag? Using Outlook 8
N How do I make Outlook autocomplete addresses from a list of recognised <full_names> only? Using Outlook 2
P Outlook 2019 UI changes after 20H2 update Using Outlook 1
R How to restrict GWSMO sync to Outlook Send/Receive cycles Using Outlook 0
B Outlook 2016 Unable to view images or logos on the outlook 2016 emails the same html code works well when i use outlook 2010 Using Outlook 0
S Outlook 2007 crash linked to gdiplus.dll Using Outlook 0
P Sending email from outlook IMAP to GMAIL where embedded images are added as attachment Using Outlook 1
M Outlook 2010 How could I globally redesign an outlook template form/region/inspector template used to display mail lists or an individual mails? Outlook VBA and Custom Forms 0
T The Linked Image Cannot Be Displayed in Outlook Using Outlook 5
M Outlook 2010 Outlook 2010 with O365 / Exchange Online Using Outlook 0
S Outlook 2016 Change how Outlook shows me contacts in emails Using Outlook 0
A OutLook For Mac 16.46 Comes Up In Small Window When Opening Using Outlook 4
S Outlook 2007 - Automatic purge fail Using Outlook 0
T Outlook creating unwanted tasks in Tasks and Todo from emails Using Outlook 1
V vBA for searching a cell's contents in Outlook and retrieving the subject line Outlook VBA and Custom Forms 1
B vBA for exporting excel file from outlook 2016 Outlook VBA and Custom Forms 3
Horsepower Moving emails between folder Outlook for Mac Outlook Wishlist 8
Travis Lloyd Messages Won't Display In Outlook 2019 Home & Business Using Outlook 0
J Outlook 2019 i dont want to buy the snake oil ost to pst programs Using Outlook 1
B Outlook 2016 Outlook crashes when trying to print certain emails Using Outlook 5
T Outlook Template - textbox visible based on combobox selection Using Outlook 1
D We're sorry but outlook has run into an error Using Outlook 6
F Outlook 2010 Outlook 2010 and GMail Using Outlook 0
M Reverting The Outlook Search Box Location (or other undesired additions) Using Outlook 1
M Disable Contact Card Results when using "Search People" in Outlook Ribbon Using Outlook 7
P i-Phone 6s Plus receiving 2 notifications from Outlook email Using Outlook 1
C WARNING - DO NOT USE AN OUTLOOK.COM ADDRESS FOR GOOGLE ACCOUNT RECOVERY EMAIL Using Outlook 10
D Outlook 2016 Unable to load Outlook data pst file Using Outlook 5
M White square in body of Outlook Messages (O2016 Version 2012 32bit Click To Run) Using Outlook 4
M Outlook, send to > mail recipient - results in plain text email Using Outlook 1
R Why doesn't outlook use "Normal" style for new messages? Using Outlook 4
D Outlook 2016 Outlook not saving Sent Items Using Outlook 4
R How to Sync *all* Google Workspace Mail Folders with Outlook 2019 (MS365) Using Outlook 3
G Outlook 365 with iCloud account not syncing calendars Using Outlook 2
D Outlook 2016 Outlook Error Msg "The operation cannot be performed ..." How to Stop it Using Outlook 3
D Outlook.com premium finally dying... what do I do with my domain? Using Outlook.com accounts in Outlook 3

Similar threads

Top