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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige