Hey liebe Experten,

ich hab folgendes Problem - und zugegebenermaßen keine Ahnung.

Ich wollte einen Code im Outlook, der neue Kalendereinträge automatisch an ein google-Konto weiterleitet, um die Kalender quasi sync zu halten. Folgenden Code hab ich genutzt, der grundsätzlich auch funktioniert.
 

Mein Problem ist folgendes:

Sobald ich eine Einladung zu einem Meeting erhalte, habe ich keine Möglichkeit mehr der Einladung zu- oder abzusagen, da Outlook denkt, ich wäre der Besprechungsorganisator.

Private WithEvents Items As Outlook.Items

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("name des unterordners")
  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 "abc@domain.com"
    Appt.MeetingStatus = olMeeting
    Appt.Save
    Appt.Send
  End If
End Sub

Hoffe sehr, dass ihr mir helfen könnt! Herzlichen Dank

Erik