Habe ein Makro geschrieben, mit dem eine Exceldatei an einen
E-Mailempänger verschickt werden kann. Funkioniert aber nur mit einem Empfänger. Was fehlt noch ?
Müßte Datei ingesamt an 3 Empfänger gleichzeitig verschicken
können. Code anbei....
zB: manfred Kurz
Maier Gerhard
Huber Klaus
Alle Namen befinden sich im globalen Adressbuch.
ub senden()
On Error GoTo ErrorHandler
ActiveWorkbook.SendMail Recipients:="Manfred Kurz", Subject:="Zustellmeldung", returnreceipt:=True
If Application.Workbooks.Count > 1 Then
ActiveWorkbook.Close SaveChanges:=False
Else
Application.DisplayAlerts = False
Application.Quit
End If
ErrorHandler:
Resume Next
End Sub