Hallo,
ja, das stimmt. habe ich geändert.
Es wird nun die PDF Datei abgespeichert. Ich habe es so umgeschrieben dass anstatt:
sPdfDateiB25 = "C:\tmp\2016\" & activesheet.Range("B25") & ".PDF "
-----> nun steht:
sPdfDateiB25 = "C:\tmp\2016\" & activesheet.Range("B25") & ""
Da das Wort "PDF" immer zusätzlich im Dateinamen ausgegeben wurde. Außerdem entfernte ich zwecks Übersichtlichkeit noch aus dem Script das "B25" aus dem "sPDFDatei" String, da eh nur eine PDF Datei angefügt werden soll.
Aber nach wie vor findet das Script nicht die Datei zum anfügen an die Email!?
Debuggen an der Stelle des Scripts:
OutMail.Attachments.Add sPdfDatei
Meldung:
"Datei konnte nicht gefunden werden. Überprüfen Sie den Pfad und den Dateinamen."
Anscheinend versteht das Script an dieser Stelle nicht, wo die Datei mit welchem namen liegt!?
Hier nochmals das aktuelle komplette Script:
Dim sBlatt As String
Dim sPdfDatei As String
Dim OutApp As Object
Dim OutMail As Object
' auf dieses Tabellenblatt zugreifen, um E-Mail, Betreff und Inhalt auszulesen
sBlatt = "Meldung"
' unter welchem Namen soll das PDF-Dateien abgespeichert werden?
sPdfDatei = "C:\tmp\2016\" & ActiveSheet.Range("B25") & ""
' speichert das aktuelle Blatt (=ActiveSheet) als PDF
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sPdfDatei, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
' Bezug zu Outlook herstellen...
Set OutApp = CreateObject("Outlook.Application")
' ...damit wir eine neue E-Mail erzeugen können
Set OutMail = OutApp.CreateItem(0)
' Werte den Eigenschaften zuweisen...
OutMail.To = Sheets(sBlatt).Range("B16")
OutMail.CC = ""
OutMail.BCC = ""
OutMail.Subject = Sheets(sBlatt).Range("B25")
OutMail.Body = Sheets(sBlatt).Range("B27")
' Anhang hinzufügen:
OutMail.Attachments.Add sPdfDatei
' ...und abschicken
OutMail.display
' Objekte sauber auflösen
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Was muss ich an der Stelle eintragen, dass die Datei gefunden und angefügt wird!?
Danke & Gruss,
Jürgen
|