[ol 2003], afspraken ontvangen per email en opslaan

[Verwijderd]

Hallo,

Ik wil mijn prive agenda van outlook synchroniseren met mijn zakelijke agenda. Het verzenden van alle items per mail lukt me al. Het opslaan van nieuwe en het vervangen van gewijzigde nog niet.

Kan ik hulp krijgen bij de routine die de nieuwe items direct opslaat. De routine om te zoeken naar dubbele of nieuwe items kan ik daarna zelf wel weer schrijven.

De vetgedrukte regel geeft de foutmelding.Ik kom zover:

Sub rcvAppt()
Dim OlApp As New Outlook.Application
Dim olNs As NameSpace
Dim olCalFldr, olInbFldr As MAPIFolder
Dim olApt As AppointmentItem
Dim olMsg As MailItem
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim myAtt As Attachments

Set olNs = OlApp.GetNamespace("MAPI")
Set olCalFldr = olNs.GetDefaultFolder(olFolderCalendar)
Set olInbFldr = olNs.GetDefaultFolder(olFolderInbox)
Set myOlExp = ActiveExplorer
Set myOlSel = myOlExp.Selection
Set myAtt = myOlSel.Item(1).Attachments

For Each olAtt In myAtt
olCalFldr.Items.Add (olAtt)
Next olAtt

Set myAtt = Nothing
Set myOlExp = Nothing
Set myOlSel = Nothing
Set olMsg = Nothing
Set olApt = Nothing
Set olCalFldr = Nothing
Set olInbFldr = Nothing
Set olNs = Nothing
Set OlApp = Nothing

End Sub

[Remco]

En wat voor melding krijg je

[Witte]

Ik mis iets van:

dim olAtt as Attachment

[Verwijderd]

Hallo,

Ik heb de regel 'dim olAtt as Attachment toegevoegd en nog krijg ik de foutmelding fout -2147221233 (8004010f) tijdens uitvoering. Kan het object niet vinden.

Het gaat me om een stukje code dat de attachments van een emailbericht langsgaat en deze opslaat als agenda-items. Deze attachment heb eerder in een ander stukje code gecreerd (op een andere locatie) in een email bericht dmv:
For Each olApt In olCalFldr.Items
olMsg.Attachments.Add olApt
Next olApt

Ik heb gezocht in de objecten bibliotheek maar kan niet het juiste object met bijbehorende syntax vinden om een agenda item toetevoegen.
Het lukt wel om een leeg agenda-item te maken en dan veld voor veld te vullen, maar het lijkt me dat dit ook in 1 maal kan.

Alvast bedankt voor een hint in de goede richting