Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1844to1848
1844to1848
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle als Mail versenden

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

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
Anzeige
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:\#_Aufträge\#_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
;

Forumthreads zu verwandten Themen

Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
PDF-File als neues Tabellenblatt
StefanS

Hallo,
meine Vorgesetzten treiben mich noch in den Wahnsinn!!!!
Besteht generell die Möglichkeit per Hyperlink auf eine Pdf-Datei (z.B. in Sheet("Register_1")),
diese als neues Tabellenblatt (z.B. Sheet("Datenblatt")) einzufügen? Habe keine Ahnung, ob so etwas überhaupt mit Excel mö...
18.05.2009 15:42:00
Thread-ID: 1075923
3 Beiträge
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
30.09.2009 19:49:14
Thread-ID: 1106503
2 Beiträge
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
01.10.2009 08:01:37
Thread-ID: 1106504
2 Beiträge
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
Anzeige
tabelle per makro als pdf drucken ohne abfrage
Jens

hi leute
hab mal ne frage
ist es möglich die speicher abfrage vom pdf drucker zu umgehen?
ich möchte einen festen ordner vorgeben und die datei soll auch bei jedem druck überschrieben werden ohne nachfrage.
vielen dank im voraus
23.11.2009 08:59:36
Thread-ID: 1119332
3 Beiträge
Tabellenblatt als pdf und speichern
Horst

Hallo,
ich möchte über VBA ein Tabellenblatt als pdf speichern.
Momentan kann ich dank dem Makrorecorder ein pdf Dokument mit der BroadGun PDF Machine erstellen,
Acrobat Reader startet und zeigt das Dokument an.
Mein Wunsch wäre jedoch , dass das PDF Dokument auch gleich mit e...
27.11.2009 15:18:04
Thread-ID: 1120555
3 Beiträge
mit PDF Creator ein Tabellenblatt als pdf abspeich | Herbers Excel-Forum
Horst
Hallo
ich will ein Tabellenblatt als pdf abspeichern.
Dank diesem Forum habe ich einen Code gefunden, welcher jedoch bei mir nicht richtig funktioniert.
Wenn ich bei Break (siehe Code) stoppe, ist der PDFCreator geöffnet, das umzuwandelne Tabellenblatt
ist eingetragen und der Status...
14.01.2010 16:16:29
Thread-ID: 1129991
6 Beiträge
Tabellenblatt als PDF und als E-Mail senden VBA
andreas

Hallo zusammen,
knifflige Aufgabe, habe eine Anwendung mit mehreren Tabellenblättern.
Jetzt will ich nach betätigen des CommandButton1 Tabellenblatt1 als PDF generieren, der Name des PDF soll sich aus Wert Zelle A1&B1 zusammensetzen, zur PDF Erzeugung habe ich PDF Creator als Druck...
09.06.2010 14:37:06
Thread-ID: 1161083
6 Beiträge
Mehrere Tabellenblätter als mehrere PDF
Thomas

Hallo,
ich habe ein Excel mit x verschiedenen Tabellenblättern, die als Name des Tabellenblattes jeweils den Namen des zu erzeugenden PDF tragen.
Jedes Tabellenblatt über "speichern unter - als PDF nur aktives Blatt" und dann den Namen zu vergeben ist bei fast 400 Tabellenblättern in 3...
11.06.2011 07:20:38
Thread-ID: 1218071
6 Beiträge
Anzeige
Sheet als PDF und versenden
Jockel

Hallo ,
ich möchte per VBA aus einem Sheet ein PDF file machen und dieses dann per mail versenden. Dazu habe ich im Netz zwei Beispiele gefunden. Nachher will ich auf EINEN Button klicken und die Mail soll mit dem fertigen PDF da sein. Ob das PDF zuerst noch zwischengespeichert und dann ins...
27.07.2011 09:55:45
Thread-ID: 1223809
14 Beiträge
Tabellenbereich als Email versenden
Annette

Hallo,
ich benutze folgendes Makro um eine Email zu versenden: Sub Mail_senden() Dim olApp As Object Set olApp = CreateObject("Outlook.Application") With olApp.CreateItem(0) 'Empfänger .Recipients.Add "empfaenger@provider.de" 'Betreff .Subject = "Test-Mail" 'Nachricht .Body = "Das ist eine...
09.08.2011 06:26:39
Thread-ID: 1225317
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige