By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
446,276 Members | 1,951 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 446,276 IT Pros & Developers. It's quick & easy.

Outlook Calendar Export snipit

P: 1
Hi... this code works GREAT for exporting items to my calendar appointments. BUT I need this to be able to export appointments to a SHARED Calendar. If this possible? Also I have access to the Shared calendar folder.

Please let me know what can be done to make this work...
Thank you.

I have inserted the code below:



Expand|Select|Wrap|Line Numbers
  1. Private Sub cmdExportOutlook_Click()
  2.  
  3. Dim vCount As Long
  4.  
  5.     If MsgBox("WARNING. This operation will export all appointments in your " _
  6.     & "database to your MS Outlook calendar, do you want to continue?", _
  7.     vbQuestion + vbYesNo, "Export Calendar Appointments") = vbNo Then Exit Sub              'confirm export operation
  8.     vCount = ExportOutlookAppointments                                                      'export appointments to Outlook calendar
  9.     MsgBox "There were " & vCount & " appointment/s exported to MS Outlook.", _
  10.     vbExclamation + vbOKOnly, "Exported Appointments"
  11.  
  12. End Sub 
3 Weeks Ago #1
Share this question for a faster answer!
Share on Google+

Post your reply

Sign in to post your reply or Sign up for a free account.