Create an Appointment from XL Spreadsheet in a Shared Calendar.

Status
Not open for further replies.
M

Marc Bisson

New Member
Outlook version
Outlook 2010 64 bit
Email Account
Exchange Server 2010
Hi,

Can somebody help me.

I try to create an appointment in Outlook from values entered in an Excel spreadsheet.
I just cannot figure out how to force the posting into a Shared calendar instead of my default calendar.

For example that code example I found on a forum works fine but only posts in My Calendar.

Sub SetAppt()
Dim olapp As Outlook.Application
Dim olApt As AppointmentItem
Set olapp = New Outlook.Application
Set olApt = olapp.CreateItem(olAppointmentItem)

With olApt
.Start = Date + 1 + TimeValue("19:00:00")
.End = .Start + TimeValue("00:30:00")
.Subject = "Piano lesson"
.Location = "The teachers house"
.Body = "Don't forget to take an apple for the teacher"
.BusyStatus = olBusy
.ReminderMinutesBeforeStart = 120
.ReminderSet = True
.Save
End With

Set olApt = Nothing
Set olapp = Nothing

End Sub



But I want to post the appointment to another calendar.
Does somebody has an idea how to do it simply ? I am struggling with that part.
I got the EntryID for that Calendar but I get stuck from there.

General Information
My Shared Calendar Property displayed Location is: "\\Public Folders - bisc@myCompany.com\Favorites"
The "When posting to this folder" property is "IPM.Appointment"
There is a Folder Contact and a Folder Address defined in the Summary Tab of the Shared Calendar Properties
The Folder Path there is: \Departments/Départements\ITS/STI\Calendars/Calendriers\MY - GROUP


Thanks
 
Status
Not open for further replies.
< Can i apply mail rules to inbox sub folders using VBA | Macro to automatic reply using orignal mail >
Similar threads
Thread starter Title Forum Replies Date
Chiba Create an appointment for all the members Outlook VBA and Custom Forms 1
Nessa Can't create new appointment Using Outlook 1
G Create an Appointment at the Contact's Address From Email Outlook VBA and Custom Forms 0
Diane Poremsky Create Task or Appointment and Insert Selected Text Using Outlook 0
Diane Poremsky Create Appointment From Email Automatically Using Outlook 0
M receive mail when appointment category changes and create task from appointment Outlook VBA and Custom Forms 0
B VBA Code to create appointment from email Outlook VBA and Custom Forms 1
Diane Poremsky Create an Outlook appointment from an email message Using Outlook 4
Diane Poremsky Create an Appointment Diary Using Outlook 0
J Create an appointment from Contact list with the Company name in the Subject line Using Outlook 1
anoble1 How to create an email with a link to add a calendar appointment Using Outlook 1
T How to create meeting recurrences that are not available in the appointment screen? Using Outlook 1
I how to create appointment using saved template onto public folder shared calendar Using Outlook 3
B Create appointment/meeting from shared mailbox Using Outlook 2
M right click contact to create an appointment Using Outlook 4
P Create appointment to custom (shared) outlook calendar Outlook VBA and Custom Forms 3
R Create appointment skipping weekends and within a timeframe Outlook VBA and Custom Forms 1
S Create Outlook Task from Template and append Body with Email Body Outlook VBA and Custom Forms 4
B Modify VBA to create a RULE to block multiple messages 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
B How to create a button that sorts and selects the most recent message with ONE click Using Outlook 2
J PSA: How to create custom keyboard shortcut for "Paste Unformatted Text" in Outlook on Windows Outlook VBA and Custom Forms 1
W Create a Quick Step or VBA to SAVE AS PDF in G:|Data|Client File Outlook VBA and Custom Forms 1
Wotme create email only data file Using Outlook 1
S Outlook 365 Help me create a Macro to make some received emails into tasks? Outlook VBA and Custom Forms 1
J How to create a drop down user defined field that will appear on an inbox view Outlook VBA and Custom Forms 8
Commodore Any way to create "from-only" account on Outlook 2021? Using Outlook 1
L Capture email addresses and create a comma separated list 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
NVDon Create new Move To Folder list Outlook VBA and Custom Forms 0
C Create Meeting With Custom Form Outlook VBA and Custom Forms 2
D Create advanced search (email) via VBA with LONG QUERY (>1024 char) Outlook VBA and Custom Forms 2
G Create ordinal numbers for birthday Outlook VBA and Custom Forms 2
O Outlook 365 - How to create / copy a new contact from an existing one? Using Outlook 5
D Create new email from the received Email Body with attachment Outlook VBA and Custom Forms 10
A How to create fixed signatures for aliases that process through GMAIL? Outlook VBA and Custom Forms 0
P Can I create a Rule that sends me an email when I get a Task? Using Outlook 2
M How create a Rule to filter sender's email with more that one @ sign Using Outlook 1
B Can I create a local PST file for SPAM on a drive that is usually disconnected? Using Outlook 3
S Create a clickable custom column field Outlook VBA and Custom Forms 0
O Create a custom contact form - questions before messing things up... Outlook VBA and Custom Forms 4
L automaticaly create a teams meeting with a sync Using Outlook 0
D Can Exchange Admin Center create a pst for users email/contacts/calendar? Exchange Server Administration 0
S Create A Search Folder That Looks For Message Class? Outlook VBA and Custom Forms 0
F How to create phone number as links in notes of Contacts Using Outlook 2
A Create date folder and move messages daily Outlook VBA and Custom Forms 1
C Create new Message with shared contacts & BCC'ing recipients Outlook VBA and Custom Forms 0
O Multiple email accounts - hesitate to create a new profile Using Outlook 3
G Can't create Folder Groups in Outlook 2013 Using Outlook 0
N Outlook rules don't create a copy for bcc'ed emails Using Outlook 3

Similar threads

Back
Top