Exceldatei als Email an Verteiler

Hallo,
ich hatte schon mal diese Frage gestellt, aber der Beitrag ist in den Archiv gewandert und dort kann ich nicht antworten. Also hier noch einmal mein Problem:
Ich möchte eine Exceldatei aus Excel heraus per Email an einen vordefinierten Verteiler senden. bavariabob hat mir mit nachfolgenden Code schon soweit geholfen.


Sub Mail()
ActiveWorkbook.SendMail Recipients:=Array("jemand@gmx.de", "nochjemand@gmx.de"), Subject:=Range("A1").value & "Hallo anbei die aktuellen Daten"
End Sub

Was jetzt noch fehlt ist, einen vordefinierten Text im Nachrichtenfeld ala "Hallo, anbei der gewünschte Tagesumsatzt für den xxxxxxx". Wäre es auch möglich den Wert für xxxxx aus einer Zelle in der Datei zu übernehmen?
Besten Dank im Voraus für Eure Hilfe.
Gruß
J. Freitag

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Heino,
vielen Dank für den Hinweis. Sie Seite ist sehr aufschlußreich. Ich habe mir daraus folgenden Code für meine Bedürfnisse zusammengestellt.


Sub Excel_Workbook_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ActiveWorkbook.FullName
InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "J.Freitag@freitag.com"
.Subject = "Ästhetik " & ActiveSheet.Range("A1")
.attachments.Add AWS
.Body = "Hallo," & vbCrLf & vbCrLf & "anbei der Tagesumsatz für die Ästhetik Produkte." & vbCrLf & vbCrLf
.ReadReceiptRequested = False
.send
End With
End Sub

Wie kann ich mehrere Email-Empfänger eingeben? Läßt sich auch das CC-Feld ansteuern? Läßt sich die Standardsignatur anhängen?
vielen Dank im Voraus.
Gruß
J. Freitag

Sub Excel_Workbook_via_Outlook_Senden() Dim Nachricht As Object, OutApp As Object Set OutApp = CreateObject("Outlook.Application") Dim AWS As String 'Aktive Arbeitsmappe wird als Mail gesendet AWS = ActiveWorkbook.FullName InitializeOutlook = True Set Nachricht = OutApp.CreateItem(0) With Nachricht .To = "J.Freitag@freitag.com;J.Freitag@freitag.com" .CC = "J.Freitag@freitag.com" .BCC = "" .Subject = "Ästhetik " & ActiveSheet.Range("A1") .attachments.Add AWS .Body = "Hallo," & vbCrLf & vbCrLf & "anbei der Tagesumsatz für die Ästhetik Produkte." & vbCrLf & vbCrLf .ReadReceiptRequested = False .send End With End Sub

Beliebteste Forumthreads (12 Monate)

Exceldatei als Email an Verteiler

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

237 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Exceldatei als Email an Verteiler

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

237 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread