WCM Forum - Outlook 2010

WCM Forum (http://www.wcm.at/forum/index.php)

- Software (http://www.wcm.at/forum/forumdisplay.php?f=5)

- - Outlook 2010 (http://www.wcm.at/forum/showthread.php?t=242487)

Hallo Leute!

Wer kann mir bei meinem Problem helfen? Und zwar geht es mir dabei, dass ich bei der Arbeit Outlook 2010 nutze mit Exchange. Wenn ich neue Einträge im Kalender erstelle, will ich diese auch automatisch als *.ics-Anhang weiterleiten, damit ich die Termine auch auf meinem iPhone 4 bekomme!

Wie kann ich das machen?

Hab auch schon ein bisschen gegoogelt, aber nicht die richtige Lösung gefunden!

Danke im voraus.

Hab jetzt einen Code gefunden. Der würde auch funktionieren, aber verschickt keinen Anhang mit!!!

Code:

Private WithEvents Items As Outlook.Items

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

End Sub

Private Sub Application_Startup()

  Dim Ns As Outlook.NameSpace

  Dim Folder As Outlook.MAPIFolder

  Set Ns = Application.GetNamespace("MAPI")

  Set Folder = Ns.GetDefaultFolder(olFolderCalendar)

  ' Set Folder = Folder.Folders("Subfolder")

  Set Items = Folder.Items

End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)

  Dim Appt As Outlook.AppointmentItem

  If TypeOf Item Is Outlook.AppointmentItem Then

    Set Appt = Item

    Appt.Recipients.Add "xxxxx@xxxx.com"

    Appt.MeetingStatus = olMeeting

    Appt.Save

    Appt.Send

  End If

End Sub

kann mir keiner hier helfen?????