Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro als PDF

Forumthread: Makro als PDF

Makro als PDF
jarnig
Hallo!
Ich habe eine Excelldatei mit mehreren Tabellen. Mit unten stehendem Makro übernehme ich eine _ Tabelle (Spielbericht) automatisch ins Outlook. Wie kann ich diese Tabelle als PDF-Datei ins Outlook stellen.

Sub MailSpielbericht()
Sheets("Spielbericht").Select
Sheets("Spielbericht").Copy
Application.Dialogs(xlDialogSendMail).Show
End Sub

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro als PDF
05.04.2010 16:40:35
Hajo_Zi
Hallo Jamig,
speichere doch die Tabelle als PDF und hänge die Datei an.

AW: Makro als PDF
05.04.2010 17:40:14
jarnig
Das kann ich schon, möchte aber nicht. Ich möchte diese Datei direkt (wie mit dem Makro oben) ins Outlook stellen.
lg phil
Anzeige
AW: Makro als PDF
05.04.2010 20:23:57
Jochen
Hallo,
ich glaube du suchst das hier:
Sub sendMail()
Dim mePDFD As String
Dim MyOutApp As Object, MyMessage As Object
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\testPDF.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
mePDFD = ThisWorkbook.Path & "\testPDF.pdf"
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = "Meine E_mail Adresse"
.Subject = "hier ist die Test PDF Datei" 'Betreffzeile
.body = "geht doch!"
.Attachments.Add mePDFD
.Display
'.Send
Kill mePDFD
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub
Ich gehe davon aus, dass du das Microsoft "Save As PDF" Plugin installiert hast.
Gruß
Martin
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige