Aktive Tabelle als email
19.02.2003 10:10:29
Klaus Kunkler
in der Recherche habe ich folgenden Code gefunden:
Sub email()
Set olApp = CreateObject("Outlook.Application")
Set myMail = olApp.CreateItem(olMailItem)
With myMail
.Recipients.Add "klaus.kunkler.amt37@stadt-frankfurt.de"
.Subject = "Dienstfahrzeuge"
.Body = "anbei der aktuelle Stand"
.Attachments.Add ThisWorkbook.Path & "\email_versenden.xls"
.DeleteAfterSubmit = True
.Send
End With
Das Problem ist die Einfügung der aktuellen Tabelle, die gesendet werden soll. Verschiedene Versuche mit änderung des attachments ergaben immer nur Fehler. Versendet werden soll nur die aktuelle Datei, nicht irgendeine mit Pfadangabe.
Vielen Dank
Klaus
End Sub
Anzeige