vbscript export calendar events

Tags:
Exchange 2003
Outlook calendar
VBScript
How do I use vbscript to get evetns out of a public calendar

Answer Wiki

Thanks. We'll let you know when a new response is added.

Here is the VB Script:

Function GetFolder(FolderPath)
‘ folder path needs to be something like
‘ “Public Folders\All Public Folders\Company\Sales”
Dim aFolders
Dim fldr
Dim i
Dim objNS

On Error Resume Next
strFolderPath = Replace(FolderPath, “/”, “”)
aFolders = Split(FolderPath, “”)

‘get the Outlook objects
‘ use intrinsic Application object in form script
Set objNS = Application.GetNamespace(“MAPI”)

‘set the root folder
Set fldr = objNS.Folders(aFolders(0))

‘loop through the array to get the subfolder
‘loop is skipped when there is only one element in the array
For i = 1 To UBound(aFolders)
Set fldr = fldr.Folders(aFolders(i))
‘check for errors
If Err <> 0 Then Exit Function
Next
Set GetFolder = fldr

‘ dereference objects
Set objNS = Nothing
End Function

and this is the VBA:

Public Function GetFolder(strFolderPath As String)As MAPIFolder
‘ strFolderPath needs to be something like
‘ “Public Folders\All Public Folders\Company\Sales” or
‘ “Personal Folders\Inbox\My Folder”

Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim colFolders As Outlook.Folders
Dim objFolder As Outlook.MAPIFolder
Dim arrFolders() As String
Dim I As Long
On Error Resume Next

strFolderPath = Replace(strFolderPath, “/”, “”)
arrFolders() = Split(strFolderPath, “”)
Set objApp = Application
Set objNS = objApp.GetNamespace(“MAPI”)
Set objFolder = objNS.Folders.Item(arrFolders(0))
If Not objFolder Is Nothing Then
For I = 1 To UBound(arrFolders)
Set colFolders = objFolder.Folders
Set objFolder = Nothing
Set objFolder = colFolders.Item(arrFolders(I))
If objFolder Is Nothing Then
Exit For
End If
Next
End If

Set GetFolder = objFolder
Set colFolders = Nothing
Set objNS = Nothing
Set objApp = Nothing
End Function

Discuss This Question: 1  Reply

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • alessandro.panzetta
    Hello, do you mean deleting the events or exporting them somewhere else?
    9,725 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following