Supportnet / Forum / Tabellenkalkulation
Excel Workbook via E-Mail verschicken
Frage
Hallo,
habe folgendes Macro geschrieben und versuche das Workbook an mehrer Recipients zu verschicken, was leider nicht funktioniert. Outlook 2003 kann die Empfänger nicht finden und kann somit keine Mail verfassen.
Sub Button3_Click()
With ThisWorkbook
.HasRoutingSlip = True
With .RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("thomas.knuepfer@ups-scs.com", "sandra.joseph@ups-scs.com", "abyrne@ups-scs.com")
.Subject = "FGV - DELETE FILES"
.Message = "Dear Helpdesk, pls find attached list of files which has to be deleted in FGV. Thanks."
.ReturnWhenDone = True
End With
.Route
End With
MsgBox ("FGV Delete Files.XLS sent!")
End Sub
Oulook Error Message:
"Microsoft Outlook does not recognize "..... ;......;....."
Antwort 1 von fedjo
Hallo,
ich hätte dazu noch ein paar Fragen.
Ist es immer das gleiche Tabellenblatt oder Arbeitsmappe?
Sind es immer die gleichen Empfänger?
Es gibt auch die Möglichkeit die Tabelle ohne Makro versenden.
Senden an: Mailempfänger
Senden an: Mailempfänger als Anlage
Gruß
fedjo
ich hätte dazu noch ein paar Fragen.
Ist es immer das gleiche Tabellenblatt oder Arbeitsmappe?
Sind es immer die gleichen Empfänger?
Es gibt auch die Möglichkeit die Tabelle ohne Makro versenden.
Senden an: Mailempfänger
Senden an: Mailempfänger als Anlage
Gruß
fedjo
Antwort 2 von txknuepfer
Hallo Fedjo,
hier die Antwort zu deinen Fragen:
1. immer das gleiche Datenblatt
2. immer die gleichen Empfänger
Warum Makro, damit meine MA nur einen Knopf drücken müssen, danke.
Wenn du mir hier helfen kannst wäre super.
MFg
Thomas
hier die Antwort zu deinen Fragen:
1. immer das gleiche Datenblatt
2. immer die gleichen Empfänger
Warum Makro, damit meine MA nur einen Knopf drücken müssen, danke.
Wenn du mir hier helfen kannst wäre super.
MFg
Thomas
Antwort 3 von fedjo
Hallo,
bei gleichen Datenblatt und Empänger ist es ohne Makro einfacher.
Datei, Senden an Mailempänger (als Anlage)
Mailempänger einfügen und speichern,
dann kann man die Tabelle durch drücken des Button Senden verschicken.
Gruß
fedjo
bei gleichen Datenblatt und Empänger ist es ohne Makro einfacher.
Datei, Senden an Mailempänger (als Anlage)
Mailempänger einfügen und speichern,
dann kann man die Tabelle durch drücken des Button Senden verschicken.
Gruß
fedjo
Antwort 4 von txknuepfer
Hallo Fedjo,
danke, kann ich hier die Kopfzeile auch sperren oder ausblenden, damit der USer nicht darin rumwerkeln kann?.
MFg
Thomas
danke, kann ich hier die Kopfzeile auch sperren oder ausblenden, damit der USer nicht darin rumwerkeln kann?.
MFg
Thomas
Antwort 5 von txknuepfer
Hallo Fedjo,
das Workbook ist PROTECTED un Excel verlangt dies zu entfernen, anderfalls kann es die Daten nicht schicken.
MFg
Thomas
das Workbook ist PROTECTED un Excel verlangt dies zu entfernen, anderfalls kann es die Daten nicht schicken.
MFg
Thomas
Antwort 6 von fedjo
Hallo,
nach dem versenden wird die Kopfzeile ausgeblentet und nach dem öffnen der Datei ist sie wieder vorhanden.
Einfach mal testen.
Gruß
fedjo
nach dem versenden wird die Kopfzeile ausgeblentet und nach dem öffnen der Datei ist sie wieder vorhanden.
Einfach mal testen.
Gruß
fedjo
Antwort 7 von ferändäner
Zitat:
.HasRoutingSlip = True
sehr lasziv..;-)).HasRoutingSlip = True
Antwort 8 von fedjo
Hallo txknuepfer,
ich noch eine ander Variante zum Email gefunden.
Gruß
fedjo
Manchmal möchte man nicht die gesamte Arbeitsmappe,
sondern nur eine Tabelle versenden.
Dieses Beispiel demonstriert, wie einfach es ist.
Die Routine kopiert Tabelle1 in eine neue Arbeitsmappe,
versendet diese und schließt sie anschließend ohne Speicherung:
Sub Blatt_senden()
Sheets("Tabelle1").Copy
ActiveWorkbook.SendMail "empfaenger@provider.de", "Betreffzeile"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
ich noch eine ander Variante zum Email gefunden.
Gruß
fedjo
Manchmal möchte man nicht die gesamte Arbeitsmappe,
sondern nur eine Tabelle versenden.
Dieses Beispiel demonstriert, wie einfach es ist.
Die Routine kopiert Tabelle1 in eine neue Arbeitsmappe,
versendet diese und schließt sie anschließend ohne Speicherung:
Sub Blatt_senden()
Sheets("Tabelle1").Copy
ActiveWorkbook.SendMail "empfaenger@provider.de", "Betreffzeile"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub