Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
23.04.2024 14:47:39
23.04.2024 14:23:45
Anzeige
Archiv - Navigation
1844to1848
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
Inhaltsverzeichnis

Tabelle als Mail versenden

Tabelle als Mail versenden
25.08.2021 19:00:01
wolfgang
Guten Abend,
ich möchte eine Tabelle per Mail versenden.
Die Tabelle sollte aber nur in Druckansicht versendet werden.
Also ohne meine Button u.s.w. ,
wenn ich die Tabelle sonst ausdrucke und per Fax versenden.
Nur diese Druckansicht.
mfg
wolfgang

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle als Mail versenden
25.08.2021 20:01:08
onur
Dann speichere doch die Seite als PDF und sende sie dann.
AW: Tabelle als Mail versenden
26.08.2021 13:32:29
wolfgang
Hallo Onur,
habe ich durchgeführt.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
"C:\#_Aufträge\#_Auftrag_wo.xlsm.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
jetzt müßte ich die Tabelle.pdf per Outlook versenden.
mfg wolfgang
AW: Tabelle als Mail versenden
26.08.2021 14:45:51
volti
Hallo Wolfgang,
da findest Du im Netz tausende von Beispielen. Zumal wir ja auch nicht wissen, wie Du die Maildaten einpflegen möchtest.
Aber hier trotzdem mal ein einfaches (ungetestetes) Beispiel mit Signatur als Fahrsplan:
Code:

[Cc]

Sub MailSenden() Dim sDateiname As String, sMailtext As String sDateiname = "C:&bsol;#_Aufträge&bsol;#_Auftrag_wo.xlsm.pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDateiname, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False With CreateObject("Outlook.Application").CreateItem(0) .BodyFormat = 2 ' 2=HTML-Format, 3=Richtext .Subject = "Mein Betreff" ' Betreff .To = "AN@Web.de" ' Empfänger .CC = "AuchAn@Web.de" ' Kopie sMailtext = "Hallo," & vbLf & "hier die Datei" & vbLf .GetInspector: ' Signatur holen .htmlbody = Replace(sMailtext, vbLf, "<br>") & .htmlbody .Display .Attachments.Add sDateiname 'Anlage dran End With End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige
Hallo Volti, danke für das Beispiel -)
27.08.2021 10:03:50
wolfgang
Hallo Onur habe .... -)
26.08.2021 15:07:57
wolfgang
Hallo Onur,
habe im Netz was gefunden und klappt !
mfg wolfgang

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige