Flytte kalender data

Et forsøg:

Kopiere følgende elementer:
- Emne
- Sted
- Start
- Slut
- Tekst (body)

Udviklet i Office 2003

I VBA (Alt+F11) - ThisDocument *):

- er referencen til ”Microsoft Outlook 11.0 Object Library” sat
- tilpasning skal udføres på kalendernes placering

Koden indsættes i et Word-dokument/VBA:
=======================================

Private Sub KopierKalender()
Dim olApp, Namespace, fraAftaler

    Set olApp = CreateObject("Outlook.Application")
    Set Namespace = olApp.GetNamespace("MAPI")
    Set fraAftaler = Namespace.GetDefaultFolder(olFolderCalendar).Items        'Fra-kalender default "Calendar"
   
    Set afold = Namespace.Folders      'alle mapper
    Set bfold = afold.Item("Postkasse - PB Peter Braagaard-Sørensen")          'mappe *), hvori til-kalender er placeret
    Set cfold = bfold.Folders("Kalender1")                                      'Til-kalender
   
    For Each aftale In fraAftaler
        Set aa = cfold.Items.Add
        aa.Subject = aftale.Subject
        aa.Location = aftale.Location
       
        aa.Start = aftale.Start
        aa.End = aftale.End
        aa.Body = aftale.Body
        aa.Save
    Next
End Sub
Private Sub CommandButton1_Click()
    KopierKalender
End Sub
Rem -------------
Rem *) Kan aflæses ved højreklik i Outlook på den pågældende kalender - /Egenskaber/Placering - dette indsættes i " "
Rem -------------