Help Copy Public Folder Calander Items to Personal Calendar(code sample)
Sub CopyCalendar()
Dim olNs, oFolder, oItems, oItem, CopyItem, objInbox, DefaultStoreRoot,
tfolder
Set olNs = Application.GetNamespace("MAPI")
Set oFolder = olNs.Folders("Public Folders").Folders("All Public
Folders").Folders("Bill's Appts")
Set objInbox = olNs.GetDefaultFolder(olFolderInbox)
Set DefaultStoreRoot = objInbox.Parent
Set tfolder = DefaultStoreRoot.Folders("Calendar")
Set oItems = oFolder.Items
Set oItem = oItems.GetFirst
Do While Not (oItem Is Nothing)
Set CopyItem = oItem.Copy
CopyItem.Move tfolder
Set oItem = oItems.GetNext
Loop
End Sub
Quote:
> Sub CopyCalendar()
> Dim olNs, oFolder, oItems, oItem, CopyItem
> Set olNs = Application.GetNamespace("MAPI")
> Set oFolder = olNs.Folders("Public Folders").Folders("All Public
> Folders").Folders("Bill's Appts")
> Set oItems = oFolder.Items
> Set oItem = oItems.GetFirst
> Do While Not (oItem Is Nothing)
> Set CopyItem = oItem.Copy
> CopyItem.Move olNs("Calander")
> Set oItem = oItems.GetNext
> Loop
> End Sub
