Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excel Tabelle mit Text per mail versenden

Excel Tabelle mit Text per mail versenden
30.09.2003 11:25:12
Dominik
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Tabelle mit Text per mail versenden
01.10.2003 10:02:16
Dominik Happ
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

Anzeige
AW: Excel Tabelle mit Text per mail versenden
01.10.2003 10:02:42
Dominik Happ
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

Anzeige

326 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige