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!
Hallo,
versuche es mal so
Code:
strPDf = ThisWorkbook.Path & "\" & dateiname
Hallo,
und in welcher Codezeile?
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
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
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
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
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....
Hallo,
setz dir mal einen Haltepunkt bei With strEmail und schau, welchen Inhalt die Variable strPDf hat.