Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1148to1152
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

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

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

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige