Das Archiv des Excel-Forums

Excel Tabelle mit Text per mail versenden

Bild

Betrifft: Excel Tabelle mit Text per mail versenden
von: Dominik

Geschrieben am: 30.09.2003 11:25:12

Ich habe mir ein kleines Makro gebastelt mit welchem ich Tabellen aus einer Arbeitsmappe an verschiedene Leute verschicken kann, das funktioniert auch sehr gut, aber ich möchte in die Emails auch noch einen kleinen Text a la:

"Hier die Aktuelle Tabelle

MFG etc..."

hinzufügen,
bin für jede Hilfe dankbar

So sieht das bis jetzt bei mir aus


Sub Einzeldateien_erstellen()
Sheets("Tabelle 1").Select
Sheets("Tabelle 1").Copy
ActiveWorkbook.SendMail "emailadresse 1", "Betreff 1"
ActiveWorkbook.Close Savechanges:=False
Sheets("Tabelle 2").Select
Sheets("Tabelle 2").Copy
ActiveWorkbook.SendMail "emailadresse 2", "Betreff 2"
ActiveWorkbook.Close Savechanges:=False
End Sub

Bild


Betrifft: AW: Excel Tabelle mit Text per mail versenden
von: Dominik Happ
Geschrieben am: 01.10.2003 10:02:16

So hab ich das Problem jetzt gelößt


Sub Einzeldateien_versenden()
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy
ActiveWorkbook.SaveAs "C:\tabelle1.xls"
ActiveWorkbook.Close Savechanges:=False
' Erstellt eine neue E-Mail und zeigt diese.
Const Empfänger = "Herr Mustermann"
Const Betreff = "Betreff"
Dim mText As Variant
Dim outlNameSpace As Object 'As Outlook.NameSpace
Dim outlMailItem As Object 'As MailItem 'As Object
Dim outlObj As Object 'As Outlook.Application
mText = "Sehr geehrter Herr ..." & vbCrLf & vbCrLf & "Anbei erhalten sie das Formular ..." & vbCrLf & vbCrLf & "Vorname Nachname"
If mText <> "" Then
Set outlObj = CreateObject("outlook.Application")
' Neues E-Mail-Objekt erzeugen
Set outlMailItem = outlObj.CreateItem(olMailItem)
With outlMailItem
' Eigenschaften des Objekts festlegen
' E-mail Adresse
.Recipients.Add "mail@domain.de"
.attachments.Add "C:\tabelle1.xls"
.Subject = Betreff
' Body-Text
.Body = mText
.Display
.Send
End With
End If
Set outlObj = Nothing
Set outlNameSpace = Nothing
Kill "C:\Tabelle1.xls"
End Sub



Bild


Betrifft: AW: Excel Tabelle mit Text per mail versenden
von: Dominik Happ
Geschrieben am: 01.10.2003 10:02:42

So hab ich das Problem jetzt gelößt


Sub Einzeldateien_versenden()
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy
ActiveWorkbook.SaveAs "C:\tabelle1.xls"
ActiveWorkbook.Close Savechanges:=False
' Erstellt eine neue E-Mail und zeigt diese.
Const Empfänger = "Herr Mustermann"
Const Betreff = "Betreff"
Dim mText As Variant
Dim outlNameSpace As Object 'As Outlook.NameSpace
Dim outlMailItem As Object 'As MailItem 'As Object
Dim outlObj As Object 'As Outlook.Application
mText = "Sehr geehrter Herr ..." & vbCrLf & vbCrLf & "Anbei erhalten sie das Formular ..." & vbCrLf & vbCrLf & "Vorname Nachname"
If mText <> "" Then
Set outlObj = CreateObject("outlook.Application")
' Neues E-Mail-Objekt erzeugen
Set outlMailItem = outlObj.CreateItem(olMailItem)
With outlMailItem
' Eigenschaften des Objekts festlegen
' E-mail Adresse
.Recipients.Add "mail@domain.de"
.attachments.Add "C:\tabelle1.xls"
.Subject = Betreff
' Body-Text
.Body = mText
.Display
.Send
End With
End If
Set outlObj = Nothing
Set outlNameSpace = Nothing
Kill "C:\Tabelle1.xls"
End Sub



 Bild

Excel-Beispiele zum Thema " Excel Tabelle mit Text per mail versenden "

Suche über mehrere Tabellen download Benennen von Tabellenblättern mit Monatsnamen download
Druckseitenlinien im Tabellenblatt download Tabellenblattnamen in ein Listenfeld einlesen download
Suchbegriff über mehrere Tabellenblätter suchen. download Tabellenblätter benennen download
Tabellenblatt auswählen download Zustand von Tabellenblatt-Checkboxes ermitteln download
Tabellenblattnamen der VBE-Projekte ändern download Tabellenblattnamen nach Datum download
Gefilterte Daten in neues Tabellenblatt übertragen download Zeichentabelle StandBy download
Wochentage Mo - Fr in Tabelle eintragen download Mehrmals vorkommende Werte in neues Tabellenblatt download
Kommentare in geschützte Tabellen einfügen download Tabellen vergleichen download
Grafiken im Tabellenblatt ordnen download Einzelnes Tabellenblatt speichern download
Tabellenblattnamen in eine ListBox einlesen download Tabellenblätter in umgekehrter Reihenfolge drucken download
Anwendername in Tabellenblatt eintragen download Arbeitszeittabelle und SVERWEIS-Formel download
Druck aus mehreren Tabellenblättern auf eine Druckseite download Daten von Tabelle1 auf Tabelle2 übertragen download
Zwei Tabellen wechselseitig ändern download Wert in Tabelle suchen und in UserForm ausgeben download
Tabellen hinzufügen und sortieren download Tabellenvergleich und Übernahme der Doppel download
Fußballtabelle aktualisieren download Termine in Jahrestabelle eintragen download
Tabellencode nach Kopieren des Blattes löschen download Tabellenblatt in UserForm download
Nach Eingabe Werte aus Tabellen Übernehmen download Errechnung von Schulnoten anhand einer Punktetabelle download
Fußballergebnisse in Tabelle eintragen und zu HTML konvertieren download Tabelle vor der Bearbeitung schützen download
Geburtstage eines vorzugebenden Monats in neue Tabelle download Dateinamen in Tabelle einlesen download
Übernahme von Werten mit "x" in eine zweite Tabelle download Letztes Speicherdatum in die Fußzeile aller Tabellenblätter download
Ausgewählte Tabellenblätter als eigene Arbeitsmappen speichern download Den selben Bereichsnamen in mehreren Tabellenblättern download
Textdatei in Tabellenblatt importieren download Tabellen hinzufügen und mit Namen aus einer Liste belegen download
Einzelnes Tabellenblatt unter Tagesdatum speichern download Dateien einer Ordnerliste in einer Tabelle zusammenstellen download
Tabellen für die Werktage eines Monats erstellen download Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download
Tabellenblattbereich als Email versenden download Daten in jeweils einer Spalte zweier Tabellen vergleichen download
Arbeitsmappe als Email versenden download Arbeitsmappe zeitgesteuert per Email an einen Verteiler versenden download
Aus Excel heraus eine Email ohne Arbeitsmappenanlage versenden download Eine Tabelle periodisch mit dem Standard-Emailprogramm versenden download
Inhalt einer Tabelle periodisch mit Outlook versenden download Excel-Zellinhalte in Worddokument einlesen um per Email versenden download
Inhalt von Zelle A1 mit Outlook versenden download In Abhängigkeit von einem Formelwert Mail mit Outlook versenden download
Beim Öffnen der Arbeitsmappe Email versenden download Ausgewählten Bereich als interaktive Tabelle versenden download
Nachricht versenden und zur Nachverfolgung kennzeichnen download Mehrfachauswahl per Outlook versenden download
Arbeitsblatt an variable Email-Adresse per Outlook versenden download Arbeitsmappen gem. Liste an Email-Adressen versenden download