Hallo zusammen,
ich würde gerne aus Excel Termine an mehrer Mail Adressen senden. Leider bin n ich eine absolute VBA Niete.
Ich verwende folgenden Code im den Termin in meinem Kalender einzutragen.
Wo muss ich etwas ändern um den Termin an mehrere Mail Adressen zu versenden?
Mit .recipients.add hab ich es versucht. Das klappt irgendwie aber nicht. Hätte es vor dem Punkt "save" eingefügt.
Danke für eure Hilfe.
Grüße
gringo
Public Function lvOutlook(outDate As String, outDauer As Long, outSubject As String, outBody As String, outlocation As String) As Boolean
'Hier beginnen die Termine
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
'Datum und Uhrzeit - als Start-Uhrzeit 00:00
.Start = Format(outDate, "dd.mm.yyyy") & " 00:00"
'Termin
.Subject = outSubject
'oder der Betreff steht in der Spalte rechts von den Terminen
.Location = outlocation ' 'Ort
.Duration = outDauer ' 1 Std. = "60" Dauer in Minuten
'Erinnerung setzen in Outlook (hier inaktiv)
'
.ReminderPlaySound = True
'Erinnerung wiederholen
.ReminderSet = True
'Termin speichern
.Save
End With
Set apptOutApp = Nothing
Set OutApp = Nothing
lvOutlook = True
MsgBox "Termin an Outlook übertragen."
Exit Function
ErrOutLook:
Set apptOutApp = Nothing
Set OutApp = Nothing
lvOutlook = False
MsgBox "Termin konnte in Outlook nicht eingetragen werden. Fehler:" & Err.Description
End Function |