ich suche eine Möglichkeit aus einem Excel-Sheet termine in mein Outlook zu übertragen und diese dann auch von dort aus an andere Personen zu verschicken.
Ist dies möglich?
Und wenn ja, wie?
Danke
für die Hilfe(n)
Greetz
Thorsten
Sub TermineVonExcelNachOutlookÜbernehmen()
Dim objOutlook As Outlook.Application
Dim apptOutlook As Outlook.AppointmentItem
Set objOutlook = CreateObject("Outlook.Application")
Range("C12").Select
Do Until ActiveCell.Value = ""
Set apptOutlook = objOutlook.CreateItem(olAppointmentItem)
With apptOutlook
.Start = ActiveCell.Value
.Subject = ActiveCell.Offset(0, 1).Value
.Location = ActiveCell.Offset(0, 2).Value
.Duration = ActiveCell.Offset(0, 3).Value
.Body = ActiveCell.Offset(0, 4).Value
.RequiredAttendees = ActiveCell.Offset(0, 5).Value
.ReminderMinutesBeforeStart = 60
.ReminderPlaySound = True
.ReminderSet = True
.Save
End With
ActiveCell.Offset(1, 0).Select
Loop
MsgBox "Termine an Outlook übertragen!"
Set apptOutlook = Nothing
Set objOutlook = Nothing
End Sub