Tabelle als Mail versenden

Forumthread: 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

AW: Tabelle als Mail versenden

25.08.2021 20:01:08

onur
AW: Tabelle als Mail versenden

26.08.2021 13:32:29

wolfgang
AW: Tabelle als Mail versenden

26.08.2021 14:45:51

volti
Hallo Volti, danke für das Beispiel -)

27.08.2021 10:03:50

wolfgang
Hallo Onur habe .... -)

26.08.2021 15:07:57

wolfgang

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

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Tabelle als Mail versenden

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread