pdf via mail, fehler im Code

[elamigo]

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!

[Steffl]

Hallo,

versuche es mal so

Code:

strPDf = ThisWorkbook.Path & "\" & dateiname

[elamigo]

kommt leider

[Steffl]

Hallo,

und in welcher Codezeile?

[elamigo]

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

[Steffl]

Hallo,

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

[elamigo]

ups ja meinte strMail 

immer noch sagt er der Pfad ist nicht ganz richtig   
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

[Steffl]

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

[elamigo]

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

[Steffl]

Hallo,

setz dir mal einen Haltepunkt bei With strEmail und schau, welchen Inhalt die Variable strPDf hat.