Record Appointment to Calendar on "Public Folder"

Status
Not open for further replies.

djsupersain

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

Please if anyone can help that would be greatly appreciated.

I have Office 2016 Desktop connecting to Office365.

I have made a custom form and got the code from here to create a link in the Ribbon etc. It works perfectly to my personal calendar but I would like it to record to a Public Calendar that I have.

Please is someone able to assist with my code?

The structure for my calendar is:

Public Folders - test@test.com
> All Public Folders
>Test Folder
> Test Calendar

Below is my code for the custom form:

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

Thank you so much in advance.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
when you use templates, you need to move the appointment after it is created as it will use the default folder.

Dim objNS As Outlook.NameSpace
Dim objFolder As Outlook.MAPIFolder

Set objNS = Application.GetNamespace("MAPI")
Set objFolder = objNS.GetDefaultFolder(olPublicFoldersAllPublicFolders).folders("test folder").folders ("test calendar")
objfolder.move newitem


Working with VBA and non-default Outlook Folders

As an FYI, you shouldn't use "too many dots" and should break the lines like this. While it shouldn't be an issue with the path you are using (so either method should be fine), if you go deeper, splitting in into groups like below is better than one long string.
Set objParentFolder = objNS.GetDefaultFolder(olPublicFoldersAllPublicFolders)
Set objFolder = objParentFolder.folders("test folder")
Set myFolder = objFolder.folders ("test calendar")
 

djsupersain

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

Thank you for your response, greatly appreciated.

I wish I could say I fully understand but I'm a little lost please help? below is what I have amended but still recording to Local Calendar.

Thank you in advance.

Sub MakeItem()
Set newItem = Application.CreateItemFromTemplate("C:\Users\test\AppData\Roaming\Microsoft\Templates\JobBookingNZ.oft")
newItem.Display
Set newItem = Nothing
Set objParentFolder = objNS.GetDefaultFolder(olPublicFoldersAllPublicFolders)
Set objFolder = objParentFolder.folders("test folder")
Set myFolder = objFolder.folders ("test calendar")
End Sub
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
You need to set the folder and move it before you set newitem to nothing.

Code:
Sub MakeItem()
Set objParentFolder = objNS.GetDefaultFolder(olPublicFoldersAllPublicFolders)
Set objFolder = objParentFolder.folders("test folder")
Set myFolder = objFolder.folders ("test calendar")

Set newItem = Application.CreateItemFromTemplate("C:\Users\test\AppData\Roaming\Microsoft\Templates\JobBookingNZ.oft")
newItem.Display
myfolder.move newitem
Set newItem = Nothing
End Sub
 

djsupersain

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

And again thank you, I'm receiving a "Runtime error 424 object required" ?
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
oh - you need to set objNS
Set objNS = Application.GetNamespace("MAPI")
 

djsupersain

New Member
Outlook version
Outlook 2016 64 bit
Email Account
Office 365 Exchange
oh - you need to set objNS
Set objNS = Application.GetNamespace("MAPI")
Hi,

Now getting "Runtime error 438. Object doesn't support this property or method" ?

Sub MakeItem()
Set objNS = Application.GetNamespace("MAPI")
Set objParentFolder = objNS.GetDefaultFolder(olPublicFoldersAllPublicFolders)
Set objFolder = objParentFolder.folders("test folder")
Set myFolder = objFolder.folders ("test calendar")

Set newItem = Application.CreateItemFromTemplate("C:\Users\test\AppData\Roaming\Microsoft\Templates\JobBookingNZ.oft")
newItem.Display
myfolder.move newitem
Set newItem = Nothing
End Sub
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
sheesh... i transposed the folder and item in the move line - it should be
newItem.Move myfolder

i don't know which is worse - making the mistake or not seeing until now.
 

djsupersain

New Member
Outlook version
Outlook 2016 64 bit
Email Account
Office 365 Exchange
Thank you Diane, this is now working :) but...

As soon as I run the macro, it opens my form/appointment, then a pop up with "Responses to this meeting will not be tallied. If you want outlook to tally responses for you, move the meeting to the calendar folder for this account".

Then you click the only option available "OK" and it closes the form/appointment, however I have not been able to even put any details in on that form? But! it does end up on the shared folder :)

Thank you again for all your help.

Outlook 2016 Desktop Application.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
As soon as I run the macro, it opens my form/appointment, then a pop up with "Responses to this meeting will not be tallied. If you want outlook to tally responses for you, move the meeting to the calendar folder for this account".
you can't avoid that when you move meeting requests to a different calendar.


If you weren't use a template, you could use items.add

Set newitem = myFolder .Items.Add(olappointmentitem)

You can try replacing the move line with this:
Set moveCal = newitem .Move(myfolder)
moveCal.display
moveCal.Save
 

djsupersain

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

Ok, could I add an "item" using a template? with out emailing etc... ?
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
no, not to my knowledge. With templates you need to use Move.

But by setting the moved item to a variable, you can work with it after the move. That's what this does:
Set moveCal = newitem .Move(myfolder)
moveCal.display
moveCal.Save

Nothing, short of using your own default calendar, will eliminate the 'will not be tallied' message.
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
A Record opened emails for reopening later Outlook VBA and Custom Forms 16
B Track Record Activity Using Outlook 1
B Customize contact record phone fields Using Outlook 2
B Macro to record what time it is Outlook VBA and Custom Forms 2
N linking an already sent/rec'd email to contact record like it did in 2000 Using Outlook 0
M convert/import a customized record into the default "Account" record BCM (Business Contact Manager) 0
P People/Contact Record gets deleted when I edit it? Using Outlook 3
S Editing an email with notes and saving it for record using Macro Outlook VBA and Custom Forms 3
U No scrolling in note field of contact record Using Outlook 1
R Can BCM monitor and select specific emails and use content info to update the client's record? BCM (Business Contact Manager) 1
M Predefined Outlook Fields not available to add into a BCM record BCM (Business Contact Manager) 0
J How to show the "value" of a user-defined Account field in a Contact Record BCM (Business Contact Manager) 2
J How to create fields that will use the same value on different record types BCM (Business Contact Manager) 2
A delete database --> record remnants ?? BCM (Business Contact Manager) 3
M BCM 2010 Link to Record (very) slow BCM (Business Contact Manager) 2
L Importing multiple record from .vcf (vCard) file Using Outlook 5
S Outlook 2010 Journal does not record activities on Office 2007 files Using Outlook 1
S Cluster Name failed to update the DNS record Exchange Server Administration 2
J Missing HUB DNS record results in mail piling in queue, no failover? Exchange Server Administration 2
P PTR record Exchange Server Administration 4
A share one record for autodiscover between exch 2007 and exch 2010 Exchange Server Administration 4
C Outlook 2010 - delete attachment but leave record of what was deleted Using Outlook 2
P Hyperlink to Access record/Form Outlook VBA and Custom Forms 2
H Re: record of sales for each contact BCM (Business Contact Manager) 1
A Is There An Easier Way to Access a Business Contact Record? BCM (Business Contact Manager) 2
A Programmatically duplicating BCM's "Link to Record" function BCM (Business Contact Manager) 2
C Outlook record the step I take getting to the user template? Outlook VBA and Custom Forms 1
S Record eMail details in Outlook 2007 Outlook VBA and Custom Forms 5
R One Click business contact record creation - From an E Mail? BCM (Business Contact Manager) 1
Y How to record macros in Outlook2007? Outlook VBA and Custom Forms 1
e_a_g_l_e_p_i Outlook 2010 How can I change the font size on right side appointment pane Using Outlook 10
Chiba Create an appointment for all the members Outlook VBA and Custom Forms 1
D Prevent popup of "Do you want to save changes?" when closing after opening an appointment to view Outlook VBA and Custom Forms 2
O Calendar - appointment templates and categories Using Outlook 1
W Appointment userproperties disappear Outlook VBA and Custom Forms 4
Nessa Can't create new appointment Using Outlook 1
F Appointment Show All Fields Using Outlook 1
C Trying to populate an appointment ComboBox from Excel Outlook VBA and Custom Forms 2
A Possible to hide ribbon with custom appointment form? Outlook VBA and Custom Forms 3
W Appointment occurrences change the location property Using Outlook 0
W Space in an Outlook appointment body Using Outlook 0
Dave A Run macro on existing appointment when it changes Outlook VBA and Custom Forms 1
JoeG Appointment Delete/Change Recurrence Outlook VBA and Custom Forms 0
S Display PF contact folder items to select contact to link to appointment Outlook VBA and Custom Forms 1
M Forward Appointment as BCC with VBScript Outlook VBA and Custom Forms 7
K Update Appointment category when changed in Excel Using Outlook 3
S View Appointment in Text Wrap in Outlook 2007 Month Calendar View Using Outlook 0
A Day view - print appointment details Calendar Printing Assistant 1
R Recover Deleted Appointment in Calendar Using Outlook 0
N Select Appointment subject line from combobox or list Outlook VBA and Custom Forms 1
Similar threads


















































Top