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
|