Hi, I am using vba with Access 2007 to add appointments to an Outlook 2007
Calendar. This is working fine when I add the appointment to the main
Outlook calendar. However, I have 4 different calendars in the one Outlook,
and I want to be able to choose which outlook calendar I add the appointment
to. Can you tell me how to choose which calendar the appointment will go to?
thanks for your help! (If this isn't the correct forum for this, please let
me know which one is) thanks-Paul

The code I'm using currently is below.

On Error GoTo Add_Err
'Save record first to be sure required fields are filled.
DoCmd.RunCommand acCmdSaveRecord
'Exit the procedure if appointment has been added to Outlook.
If Me!AddedToOutlook = True Then
MsgBox "This appointment is already added to Microsoft Outlook"
Exit Sub
'Add a new appointment.
Else
Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim objRecurPattern As Outlook.RecurrencePattern
Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)
With objAppt
..start = Me![Date to Arrive] & " " & #9:00:00 AM#
..Duration = 1920
..Subject = Me.Last__First
..body = Me!Notes
End With
Set objAppt = Nothing
End If
Me!AddedToOutlook = True

MsgBox "Appointment Added!"
Exit Sub
Add_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Exit Sub

Use the target folder's Items.Add function.

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool:
: http://www.vboffice.net/product.html?pub=6&lang=en



Am Mon, 19 May 2008 10:26:02 -0700 schrieb Paul Access VBA:

Hi, I am using vba with Access 2007 to add appointments to an Outlook 2007
Calendar. This is working fine when I add the appointment to the main
Outlook calendar. However, I have 4 different calendars in the one
Outlook,
and I want to be able to choose which outlook calendar I add the
appointment
to. Can you tell me how to choose which calendar the appointment will go
to?
thanks for your help! (If this isn't the correct forum for this, please
let
me know which one is) thanks-Paul

The code I'm using currently is below.

On Error GoTo Add_Err
'Save record first to be sure required fields are filled.
DoCmd.RunCommand acCmdSaveRecord
'Exit the procedure if appointment has been added to Outlook.
If Me!AddedToOutlook = True Then
MsgBox "This appointment is already added to Microsoft Outlook"
Exit Sub
'Add a new appointment.
Else
Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim objRecurPattern As Outlook.RecurrencePattern
Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)
With objAppt
.start = Me![Date to Arrive] & " " & #9:00:00 AM#
.Duration = 1920
.Subject = Me.Last__First
.body = Me!Notes
End With
Set objAppt = Nothing
End If
Me!AddedToOutlook = True

MsgBox "Appointment Added!"
Exit Sub
Add_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Exit Sub

Hi Michael
Thanks for your answer. I'm brand new to vba and Outlook though so could you
give me an example of the line of code I would use to do this?
thanks again.
Paul


"Michael Bauer [MVP - Outlook]" wrote:


Use the target folder's Items.Add function.

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool:
: http://www.vboffice.net/product.html?pub=6&lang=en



Am Mon, 19 May 2008 10:26:02 -0700 schrieb Paul Access VBA:

Hi, I am using vba with Access 2007 to add appointments to an Outlook 2007
Calendar. This is working fine when I add the appointment to the main
Outlook calendar. However, I have 4 different calendars in the one
Outlook,
and I want to be able to choose which outlook calendar I add the
appointment
to. Can you tell me how to choose which calendar the appointment will go
to?
thanks for your help! (If this isn't the correct forum for this, please
let
me know which one is) thanks-Paul

The code I'm using currently is below.

On Error GoTo Add_Err
'Save record first to be sure required fields are filled.
DoCmd.RunCommand acCmdSaveRecord
'Exit the procedure if appointment has been added to Outlook.
If Me!AddedToOutlook = True Then
MsgBox "This appointment is already added to Microsoft Outlook"
Exit Sub
'Add a new appointment.
Else
Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim objRecurPattern As Outlook.RecurrencePattern
Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)
With objAppt
.start = Me![Date to Arrive] & " " & #9:00:00 AM#
.Duration = 1920
.Subject = Me.Last__First
.body = Me!Notes
End With
Set objAppt = Nothing
End If
Me!AddedToOutlook = True

MsgBox "Appointment Added!"
Exit Sub
Add_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Exit Sub

If it's a subfolder of the default calendar:

Dim Appt as Outlook.AppointmentItem
Dim Folder as Outlook.Mapifolder
Dim Subfolder as Outlook.Mapifolder

Set Folder=Application.Session.GetDefaultFolder(olFold erCalendar)
Set Subfolder=Folder.Folders("name")
Set Appt=Subfolder.Items.Add

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool:
: http://www.vboffice.net/product.html?pub=6&lang=en


Am Wed, 21 May 2008 09:29:01 -0700 schrieb Paul Access VBA:

Hi Michael
Thanks for your answer. I'm brand new to vba and Outlook though so could
you
give me an example of the line of code I would use to do this?
thanks again.
Paul


"Michael Bauer [MVP - Outlook]" wrote:


Use the target folder's Items.Add function.

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool:
: http://www.vboffice.net/product.html?pub=6&lang=en



Am Mon, 19 May 2008 10:26:02 -0700 schrieb Paul Access VBA:

Hi, I am using vba with Access 2007 to add appointments to an Outlook
2007
Calendar. This is working fine when I add the appointment to the main
Outlook calendar. However, I have 4 different calendars in the one
Outlook,
and I want to be able to choose which outlook calendar I add the
appointment
to. Can you tell me how to choose which calendar the appointment will go
to?
thanks for your help! (If this isn't the correct forum for this, please
let
me know which one is) thanks-Paul

The code I'm using currently is below.

On Error GoTo Add_Err
'Save record first to be sure required fields are filled.
DoCmd.RunCommand acCmdSaveRecord
'Exit the procedure if appointment has been added to Outlook.
If Me!AddedToOutlook = True Then
MsgBox "This appointment is already added to Microsoft Outlook"
Exit Sub
'Add a new appointment.
Else
Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim objRecurPattern As Outlook.RecurrencePattern
Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)
With objAppt
.start = Me![Date to Arrive] & " " & #9:00:00 AM#
.Duration = 1920
.Subject = Me.Last__First
.body = Me!Notes
End With
Set objAppt = Nothing
End If
Me!AddedToOutlook = True

MsgBox "Appointment Added!"
Exit Sub
Add_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Exit Sub

Just reading this post today Michael.

Would this structure work for an open shared calendar? If not, how would you
add an AppointmentItem to a shared calendar (assuming you had permission to
add an item to it). I am using Office 2003 SP2.

Thanks for any help.

"Michael Bauer [MVP - Outlook]" wrote:



If it's a subfolder of the default calendar:

Dim Appt as Outlook.AppointmentItem
Dim Folder as Outlook.Mapifolder
Dim Subfolder as Outlook.Mapifolder

Set Folder=Application.Session.GetDefaultFolder(olFold erCalendar)
Set Subfolder=Folder.Folders("name")
Set Appt=Subfolder.Items.Add

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool:
: http://www.vboffice.net/product.html?pub=6&lang=en


Am Wed, 21 May 2008 09:29:01 -0700 schrieb Paul Access VBA:

Hi Michael
Thanks for your answer. I'm brand new to vba and Outlook though so could
you
give me an example of the line of code I would use to do this?
thanks again.
Paul


"Michael Bauer [MVP - Outlook]" wrote:


Use the target folder's Items.Add function.

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool:
: http://www.vboffice.net/product.html?pub=6&lang=en



Am Mon, 19 May 2008 10:26:02 -0700 schrieb Paul Access VBA:

Hi, I am using vba with Access 2007 to add appointments to an Outlook
2007
Calendar. This is working fine when I add the appointment to the main
Outlook calendar. However, I have 4 different calendars in the one
Outlook,
and I want to be able to choose which outlook calendar I add the
appointment
to. Can you tell me how to choose which calendar the appointment will go
to?
thanks for your help! (If this isn't the correct forum for this, please
let
me know which one is) thanks-Paul

The code I'm using currently is below.

On Error GoTo Add_Err
'Save record first to be sure required fields are filled.
DoCmd.RunCommand acCmdSaveRecord
'Exit the procedure if appointment has been added to Outlook.
If Me!AddedToOutlook = True Then
MsgBox "This appointment is already added to Microsoft Outlook"
Exit Sub
'Add a new appointment.
Else
Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim objRecurPattern As Outlook.RecurrencePattern
Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)
With objAppt
.start = Me![Date to Arrive] & " " & #9:00:00 AM#
.Duration = 1920
.Subject = Me.Last__First
.body = Me!Notes
End With
Set objAppt = Nothing
End If
Me!AddedToOutlook = True

MsgBox "Appointment Added!"
Exit Sub
Add_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Exit Sub

If the shared mailbox is opened, it would work that way. Simply start with
the top Folders collection and walk through the folders by their names. If
it's not opened, use the GetsharedDefaultFolder function.

--
Best regards
Michael Bauer - MVP Outlook

: VBOffice Reporter for Data Analysis & Reporting
: Outlook Categories? Category Manager Is Your Tool
: http://www.vboffice.net/product.html?pub=6&lang=en


Am Fri, 15 Aug 2008 03:18:01 -0700 schrieb Andy:

Just reading this post today Michael.

Would this structure work for an open shared calendar? If not, how would
you
add an AppointmentItem to a shared calendar (assuming you had permission
to
add an item to it). I am using Office 2003 SP2.

Thanks for any help.

"Michael Bauer [MVP - Outlook]" wrote:



If it's a subfolder of the default calendar:

Dim Appt as Outlook.AppointmentItem
Dim Folder as Outlook.Mapifolder
Dim Subfolder as Outlook.Mapifolder

Set Folder=Application.Session.GetDefaultFolder(olFold erCalendar)
Set Subfolder=Folder.Folders("name")
Set Appt=Subfolder.Items.Add

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool:
: http://www.vboffice.net/product.html?pub=6&lang=en


Am Wed, 21 May 2008 09:29:01 -0700 schrieb Paul Access VBA:

Hi Michael
Thanks for your answer. I'm brand new to vba and Outlook though so could
you
give me an example of the line of code I would use to do this?
thanks again.
Paul


"Michael Bauer [MVP - Outlook]" wrote:


Use the target folder's Items.Add function.

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool:
: http://www.vboffice.net/product.html?pub=6&lang=en



Am Mon, 19 May 2008 10:26:02 -0700 schrieb Paul Access VBA:

Hi, I am using vba with Access 2007 to add appointments to an Outlook
2007
Calendar. This is working fine when I add the appointment to the main
Outlook calendar. However, I have 4 different calendars in the one
Outlook,
and I want to be able to choose which outlook calendar I add the
appointment
to. Can you tell me how to choose which calendar the appointment will
go
to?
thanks for your help! (If this isn't the correct forum for this,
please
let
me know which one is) thanks-Paul

The code I'm using currently is below.

On Error GoTo Add_Err
'Save record first to be sure required fields are filled.
DoCmd.RunCommand acCmdSaveRecord
'Exit the procedure if appointment has been added to Outlook.
If Me!AddedToOutlook = True Then
MsgBox "This appointment is already added to Microsoft Outlook"
Exit Sub
'Add a new appointment.
Else
Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim objRecurPattern As Outlook.RecurrencePattern
Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)
With objAppt
.start = Me![Date to Arrive] & " " & #9:00:00 AM#
.Duration = 1920
.Subject = Me.Last__First
.body = Me!Notes
End With
Set objAppt = Nothing
End If
Me!AddedToOutlook = True

MsgBox "Appointment Added!"
Exit Sub
Add_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Exit Sub