Hallo Kollegen
Ich suche einen VBA Code, welcher mir aus einer Excel Tabelle eine Termin ausliest und diesen als Besprechungsanfrage an eine Teilnemer sendet.
Gefunden habe ich diesen Code:
Sub Excel_Control_Termin_nach_Outlook()
'E 2000
'Dim OutApp As Outlook.Application
Dim OutApp As Object, apptOutApp As Object
FreieZeile = (Worksheets(„IOE_Liste“).Cells(Rows.Count, 1).End(xlUp).Row) + 1
'Hier beginnen die Termine
'Range(„A2“).Select
'Do Until ActiveCell.Value = „“
Set OutApp = CreateObject(„Outlook.Application“)
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
'Datum und Uhrzeit
'Hier werden zum aktuellen Tag 7 Tage addiert
'.Start = Format(Now()+7, „dd.mm.yyyy“) & " 08:00"
'Alternativ werden die Termine aus der Zelle genommen
.Display
.Importance = olImportanceHigh
.MeetingStatus = olMeeting
.OptionalAttendees = „[email protected]“
.Start = Format(Cells(FreieZeile - 1, 7).Value, „dd.mm.yyyy“) & " 08:00"
'Dauer. Angabe ist jeweils in ganzen Minuten zu setzen
'Termininfo
.Subject = Sheets(„Mailbetreff“).Range(„A3“).Value 'Betreff
'oder der Betreff steht in der Spalte rechts von den Terminen
'.Subject = ActiveCell.Offset(0,1)
'Zusätzlicher Text
.Body = „“
'ort
.Location = „Büro“
.Duration = „5“
'Erinnerung
.ReminderMinutesBeforeStart = 10
'mit Sound 
.ReminderPlaySound = True
'Erinnerung wiederholen
.ReminderSet = True
'Termin speichern
.Save
SendKeys „%S“
End With
'Nächste Zelle auswählen
'ActiveCell.Offset(1, 0).Select
'Variablen leeren,… sonst „kotzt“ Outlook irgendwann mal
Set apptOutApp = Nothing
Set OutApp = Nothing
'MsgBox „Termine an Outlook übertragen!“
End Sub
Dieser speichert den Termin wohl bei mir ab, sendet ihn aber nicht weiter.
Schön wäre es noch, wenn ich das Ganze aus einem Team- Mail Account machen könnte.
Mit freundlichen Grüssen
Walti