Hallo liebes Forum,
ich komme bei meinem Problem nicht weiter. Das folgende Skript liest verschiedene Parameter aus einer Exceltabelle aus und schreibt einen neuen Termineintrag in den in Anhängigkeit der Parameter gewählten Empfänger. Komischerweise klappt das nicht, der Termin wird ausschließlich in meinen eigenen Kalender geschrieben. Weiß jemand Abhilfe? Es handelt sich um einen Exchangeserver, Berechtigungen sind vorhanden.
If Cells(ActiveCell.Row, ActiveCell.Column) „“ Then
Dim ACR, ACC As Integer
ACR = ActiveCell.Row
ACC = ActiveCell.Column
If ACC = 2 Then
Leftt = 1
Empfänger = „[email protected]“
ElseIf ACC = 4 Then
Leftt = 3
Empfänger = „[email protected]“
ElseIf ACC = 6 Then
Leftt = 5
Empfänger = „[email protected]“
Else: Exit Sub
End If
If ACR Mod 7 = 1 Then Topp = 4
If ACR Mod 7 = 5 Then Topp = 1
If (ACC = 2 Or ACC = 4 Or ACC = 6) And (ACR Mod 7 = 1 Or ACR Mod 7 = 5) Then
Dim TerminText As String
Dim OutApp As Object, apptOutApp As Object
Dim Spalte, SpalteN As Variant
Dim b, x As Integer
TerminText = ActiveCell.Value
If (Cells(ActiveCell.Row, ActiveCell.Column + 1) „“) Then
Link = Cells(ActiveCell.Row, ActiveCell.Column + 1).Hyperlinks(1).Address
Else: Link = „“
End If
Set OutApp = CreateObject(„Outlook.Application“)
Set apptOutApp = OutApp.CreateItem(1) ‚olAppointmentItem)
MeetingStatus = olMeeting
With apptOutApp
.Recipients.Add Empfänger‘
Danke für Eure Hilfe