Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

VBA Outlook Kalender eines snderen Benutzers aus excel heraus öffnen





Frage

Hallo Ich und ein Kollege versuchen verzweifelt einen Button in Excel folgende Funtkion zuzuweisen: In Outlook den Kalender eines anderen festgelegten Benutzers zu öffnen (kalender freigabe liegt vor) --> Neuen Termin anhand der in Excel angegebenen Daten zu erstellen. Einen Termin in Outllok erstellt Excel bereits auf Knopfdruck anhand der Daten nur nicht in dem gewünschten Kalender sondern im eigenen. Kann uns einer helfen?? Hier der bisherige Code: Private Sub outlook_Click() 'E 2000 ' Für Excel 200 'Dim OutApp As Outlook.Application ' Diese Beiden Wieder ein nehmen Dim TerminText As String Dim OutApp As Object, apptOutApp As Object Dim Spalte, SpalteN As Variant Dim b, i, x As Integer TerminText = [A4] 'Hier beginnen die Termine Range("A2").Select For i = 2 To 32 'Die Schleife müsste evtl angepasst werden (Derzeit waagerecht Ab B2) Set OutApp = CreateObject("Outlook.Application") Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem) With apptOutApp .Start = Format(ActiveCell.Offset(0, 1).Value, "dd.mm.yyyy") & " 08:00" 'Termininfo .Subject = ActiveCell.Offset(0, 0).Value .body = ActiveCell.Offset(0, 8).Value 'Zusätzlicher Text (der der Im Termin stehen soll) .Location = ActiveCell.Offset(0, 9).Value 'ort .Duration = "5" .ReminderMinutesBeforeStart = 10 .ReminderPlaySound = True 'Erinnerung wiederholen .ReminderSet = True 'Termin speichern .Save End With ActiveCell.Offset(0, 1).Select 'Nächste Zelle auswählen Set apptOutApp = Nothing 'Variablen leeren!!! Set OutApp = Nothing Next i MsgBox "Termine an Outlook übertragen!" End Sub

Antwort von