Hallo Excel-Spezialisten…
wenn ich in Excel über unten stehenden Code eine Mail automatisiert versende, wird automatisch folgender Text generiert:
Die beigefügte Datei hat einen Verteiler. Wenn Sie die Bearbeitung der Datei beendet haben, wählen Sie aus dem Microsoft Excel-Menü Datei den Befehl Senden, um die Datei an den Absender zurückzuschicken.
Wie kann man diesen unterdrücken?
Vielen Dank schon mal…
Uli
Der Code:
Sub sende6()
Dim adr_vorges
adr_vorges = Worksheets(„Tabelle1“).Range(„a1“)
Workbooks(„versandtest.xls“).HasRoutingSlip = True
With Workbooks(„versandtest.xls“).RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array(adr_vorges)
.Subject = „REISEKO!!“
.Message = „TEST“
End With
Workbooks(„versandtest.xls“).Route
End Sub