Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1436to1440
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 Pdf erzeugen und als Email-Anhang in Outlook

Makro Pdf erzeugen und als Email-Anhang in Outlook
24.07.2015 16:03:44
Sebastian
Hallo zusammen,
ich habe ja nun schon mal mein Problem geschildert. Nun versuche ich es einfach nochmal. Vielleicht kann mir ja jemand helfen.
Ich möchte ein Makro schreiben, welches ermöglicht, das aktive Arbeitsblatt als Pdf zu drucken und gleichzeitig als Email-Anhang in Outlook bereitstellt. Nun bin ich soweit gekommen, dass zwar die Pdf mit dem entsprechenden Namen erstellt wird, jedoch tut sich nix mehr in Hinblick auf Outlook. Ich möchte gerne den Empfäger aus einer Zelle beziehen, sowie CC einsetzen. Der Betreff soll den Namen der Datei haben.
Optimal wäre noch als "Body" eine Art Anrede, is aber kein muß.
Im Debuggen-Modus werde ich auf den Fehler in ".Attachments.Add pdfName" hingewiesen. Leider weiß ich hier nicht weiter.
Viele Dank für eure Hilfe.
Gruß, Sebastian
Aktuell bin ich soweit:
Sub AlsPDFSpeichernundSenden()
Dim pdfName As String
Dim pdfOpenAfterPublish As Boolean
Dim olApp As Object
Rem Rückfragen, ob Datei nach dem Erstellen geöffnet werden soll
If MsgBox("Soll die PDF-Datei nach dem Erstellen angezeigt werden?", vbYesNo, "PDF anzeigen?") = _
vbYes Then pdfOpenAfterPublish = True
Rem Pfad und Name der PDF-Datei
pdfName = Range("H2") & "_" & Range("Y3") & "_" & Range("Y2") & ".pdf"
Rem PDF-Datei erstellen. Funktioniert nur in Excel 2007 oder höher, nicht in Excel 2003 oder ä _
lter
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False,  _
IgnorePrintAreas:=False, _
OpenAfterPublish:=IIf(pdfOpenAfterPublish, True, False)
Rem Email erstellen
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.TO = Range("AI2").Value
.CC = "max.mustermann@musterfirma.de" & "marie.mustermann@musterfirma.de"
.Subject = "Name der Datei?"
.htmlBody = "Sehr geehrte Damen und Herren,anbei mein Tagesnachweis zur weiteren  _
Verwendung."
.Attachments.Add pdfName
.Display
End With
Rem Boolean-Variable "pdfOpenAfterPublish" zurücksetzen
pdfOpenAfterPublish = False
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
  • 24.07.2015 23:32:54
    Raphael
Anzeige
hmm..
24.07.2015 23:32:54
Raphael
Hallo Sebastian,
da er dir einen Fehler im Attachments.Add anzeigt würde ich davon ausgehen, dass der Dateipfad nicht korrekt ist. Wahrscheinlich steht in den Zellen H2 etc nur wie die Datei heisst, aber keine Pfadbezeichnung wie C:\Users\Pfad\XXXX.pdf

.Subject = Range("H2") & "_" & Range("Y3") & "_" & Range("Y2") & ".pdf"
.Body = "Sehr geehrte Damen und Herren
An und für sich hast du ja schon alles soweit ich das sehe.
Gruess
Raphael
Anzeige

318 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige