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