Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

pdf via mail, fehler im Code
#1
Hi Leute,

folgender Code um die gesamte Datei per Mail zu versenden. 

Code:
Private Sub CommandButton8_Click()

   Dim OutApp As Object
   Dim strEmail As Object
   Dim dateiname As String
   Dim strPDf As String
   
   
   
   Sheets("XXXXXXXXXX").Shapes("CommandButton1").Delete

   dateiname = TextBox1.Text
       
   Range("F3").Select
   Selection.Clear
       
                 
       
       
   ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       "\\XXXXXXXXXX\pdf\" & dateiname, Quality:= _
       xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
       OpenAfterPublish:=False
       
       strPDf = ThisWorkbook.Path & dateiname
       
       Set OutApp = CreateObject("Outlook.Application")
       
       
       Set strEmail = OutApp.CreateItemfromTemplate("XXXXXXX\01_final\mail Vorlage.msg")
       
       With Nachricht
               .To = ""
               '.Subject = ""
               '.Body = ""
               .Cc = ""
               .Attachments.Add strPDf
               .Display
       
       End With
       Set OutApp = Nothing
       Set Nachricht = Nothing
       
       

ActiveWorkbook.Close False
ich vermute stark das der Fehler bei strPDF liegt. kann mir jemand vllt weiterhelfen, ich mir sicher, dass der Code kurz vorm funktionieren ist. Danke!
Antworten Top
#2
Hallo,

versuche es mal so

Code:
strPDf = ThisWorkbook.Path & "\" & dateiname
Gruß Stefan
Win 10 / Office 2016
[-] Folgende(r) 1 Nutzer sagt Danke an Steffl für diesen Beitrag:
  • elamigo
Antworten Top
#3
kommt leider


Angehängte Dateien Thumbnail(s)
   
Antworten Top
#4
Hallo,

und in welcher Codezeile?
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#5
kann leider nicht debuggen, ich hab den fehler gefunden. Es war noch "with Nachricht" drin es muss natürlich "with strPDF" sein
allerdings habe ich nun das.
debugger sagt diesmal " .Attachments.Add strPDf" hier ist der Fehler


Angehängte Dateien Thumbnail(s)
   
Antworten Top
#6
Hallo,

(16.04.2019, 12:10)elamigo schrieb: Es war noch "with Nachricht" drin es muss natürlich "with strPDF" sein

Nein eher strEmail doch noch eine Änderung meines Vorschlags

Code:
strPDf = "\\XXXXXXXXXX\pdf\" & dateiname
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#7
ups ja meinte strMail 

immer noch sagt er der Pfad ist nicht ganz richtig  Huh Huh 
zu mindest sagt das die Fehlermeldung, der debugger zeigt wieder ".Attachments.Add strPDf" an. der vollständigkeit halber hier der aktuelle Code. 

Code:
Private Sub CommandButton8_Click()

   Dim OutApp As Object
   Dim strEmail As Object
   Dim dateiname As String
   Dim strPDf As String
   
   
   
   
   
   
   'Sheets("MXXXXX").Shapes("CommandButton1").Delete

   dateiname = TextBox1.Text
       
   Range("F3").Select
   Selection.Clear
       
                 
       
       
   ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       "\\XXXXX\pdf\" & dateiname, Quality:= _
       xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
       OpenAfterPublish:=False
       
      strPDf = "\\XXX\pdf\" & dateiname
     
       Set OutApp = CreateObject("Outlook.Application")
       
       
       Set strEmail = OutApp.CreateItemfromTemplate("\\XXXXXX.msg")
       
       With strEmail
               .To = ""
               '.Subject = ""
               '.Body = ""
               .Cc = ""
               .Attachments.Add strPDf
               .Display
       
       End With
       Set OutApp = Nothing
       Set Nachricht = Nothing
       
       

ActiveWorkbook.Close False

End Sub

woooo liegt nur der kleine fehler
Antworten Top
#8
Hallo,

was mir jetzt so aufgefallen ist

  ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      "\\XXXXX\pdf\" & dateiname, Quality:= _
      xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
     
     strPDf = "\\XXX\pdf\" & dateiname
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#9
Die Anzahl der X repräsentiert leider nicht die Ordnerzeichenzahl, sonder eine von mir willkürlich gedrückte X Folge  :19: 
also daran wird es nicht liegen... ich verzweifel gerade echt an dem Pfad für den Anhang oh man....  Huh
Antworten Top
#10
Hallo,

setz dir mal einen Haltepunkt bei With strEmail und schau, welchen Inhalt die Variable strPDf hat.
Gruß Stefan
Win 10 / Office 2016
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste