Outlook naptár átmásolása alnaptárba makróval

Outlook naptár átmásolása alnaptárba makróval
2007-01-13T10:55:27+01:00
2007-01-13T12:10:19+01:00
2022-11-02T21:41:58+01:00
Csomorkany
Sziasztok!

Közvetlen célom, hogy Outlookban egy alnaptár bejegyzéseit mindenestül átmásoljam a default naptárba, ahonnan előzőleg minden korábbi bejegyzést kitöröltem. A dolog értelmessé majd ott válik, ha elkezdem szűrni, hogy mégsem kell minden, de azt már megoldom...

Idáig jutottam:

'Ezzel definiálom az alnaptárat:
Set Snaptar = GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar).Folders.Item("Saját Naptár")
'Ezzel a default naptárat
Set Mnaptar = GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar)

' Az Mnaptar bejegyzéseinek kiirtása
While Mnaptar.Items.Count > 0
Mnaptar.Items(1).Delete
Wend
' Az értelmes bejegyzések átpakolása az Mnaptar-ba
For a = 1 To Snaptar.Items.Count
Set esem = Snaptar.Items(a)

Idáig jó, az esem-nek itt mindenféle tulajdonságai támadnak, amik ténylegesen egyeznek egy Outlookban elkészített naptárbejegyzésemmel. Sajnos ennyi. Hogyan tudok olyat mondani, hogy az Mnaptar egy új bejegyzése legyen egyenlő "esem"-mel?
Mutasd a teljes hozzászólást!
Ha tényleg másolni akarod, akkor írd be a VBE-be, hogy Copy, jelöld ki, F1.
A felajánlottból választ ki az Outlook-t, és:

Set myCopiedItem = Snaptar.Items(a) myCopiedItem.Move Mnaptar

Ha mozgatni, akkor "Move" hasonlóan.
Snaptar.Items(a).Move MNaptar
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd