Excel Tabelle mit Text per mail versenden

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

Beliebteste Forumthreads (12 Monate)

Excel Tabelle mit Text per mail versenden

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

326 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel Tabelle mit Text per mail versenden

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

326 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread