Thema Datum  Von Nutzer Rating
Antwort
21.01.2016 13:31:30 kaba
NotSolved
21.01.2016 13:34:54 Gast10393
NotSolved
22.01.2016 11:48:38 kaba
NotSolved
22.01.2016 12:46:33 Gast30697
NotSolved
22.01.2016 14:14:44 kaba
NotSolved
22.01.2016 14:44:59 Gast20213
NotSolved
22.01.2016 16:34:42 Gast82231
NotSolved
Blau Tabellenblatt als PDF per Email mit Passwortschutz
 23.01.2016 11:47:58 kaba
NotSolved
23.01.2016 16:24:25 Gast91091
*****
Solved
23.01.2016 16:51:20 kaba
NotSolved

Ansicht des Beitrags:
Von:
kaba		 Datum:
23.01.2016 11:47:58		 Views:
863		 Rating:
     
Antwort:
  Ja
Thema:
Tabellenblatt als PDF per Email mit Passwortschutz

Hallo,

ja, das stimmt. habe ich geändert.

Es wird nun die PDF Datei abgespeichert. Ich habe es so umgeschrieben dass anstatt:

?
1
sPdfDateiB25 = "C:\tmp\2016\" & activesheet.Range("B25") & ".PDF "

-----> nun steht:

?
1
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:

?
1
2
3
4
5
6
7
OutMail.Attachments.Add sPdfDatei
 
Meldung:
<strong>"Datei konnte nicht gefunden werden. Überprüfen Sie den Pfad und den Dateinamen."</strong>
Anscheinend versteht das Script an dieser Stelle nicht, wo die Datei mit welchem namen liegt!?
 
Hier nochmals das aktuelle komplette Script:
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
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 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.01.2016 13:31:30 kaba
NotSolved
21.01.2016 13:34:54 Gast10393
NotSolved
22.01.2016 11:48:38 kaba
NotSolved
22.01.2016 12:46:33 Gast30697
NotSolved
22.01.2016 14:14:44 kaba
NotSolved
22.01.2016 14:44:59 Gast20213
NotSolved
22.01.2016 16:34:42 Gast82231
NotSolved
Blau Tabellenblatt als PDF per Email mit Passwortschutz
 23.01.2016 11:47:58 kaba
NotSolved
23.01.2016 16:24:25 Gast91091
*****
Solved
23.01.2016 16:51:20 kaba
NotSolved