NEUER VERSUCH:

Hallo zusammen,

ich benötige leider dringend eure Hilfe:

Ich habe folgenden Code, damit ich eine ausgefüllte Excel-Datei per Makro als Excel und PDF automatisch in einem frei gewähltem Order speichere. Das klappt soweit auch sehr gut.

Sub Speichern_unter_mit_Dateinamen()
Dim Dateiname As String
Dateiname = Range("$D$7").Value & " " & Range("$F$4").Value & ".xls" 'Als Excel
Application.Dialogs(xlDialogSaveAs).Show Dateiname 'Als Excel

With ActiveSheet.PageSetup.PrintArea = "A2:V252"
End With

With ActiveSheet.PageSetup
     .Zoom = 45 'Zoomfaktor 85%
     .FitToPagesWide = 1 '1 Seite breit
     .FitToPagesTall = 1 '1 Seite hoch
 End With
 

newName = Range("$B$7").Value & " " & Range("$A$4").Value & ".pdf" 'PDF
fileSaveName = Application.GetSaveAsFilename(InitialFileName:=newName, fileFilter:="PDF (*.pdf), *.pdf") 'PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileSaveName 'PDF

End Sub

Jetzt will ich die generierte PDF-Datei zudem per Outlook versenden. Hierbei läuft aktuell alles schief :(

Wie schaffe ich es, dass die zuvor generierte PDF bei Outlook eingefügt wird? Die Dateien werden nicht immer am gleichen Speicherort abgelegt, sodass der oben genannte Code auch neu ausgeführt werden kann und die Datei dann in Outlook eingefügt wird.

Der Code der bis jetzt am nächsten ans Ergebnis ran kam war nachfolgender:

Quelle:https://www.dfinvesting.com/makros.php?81#81

Sub pdf_per_mail()
    Dim pdf As String
    pdf = pdf_erstellen
    Call permail(pdf)
    Kill (pdf) 'pdf wieder löschen
End Sub


Function pdf_erstellen()
    Dim pdf As String
    Dim sep As String
    sep = Application.PathSeparator
    pdf = ThisWorkbook.Path & sep & ThisWorkbook.Name & "_" & Date & Format(Time, "hhmm") & ".pdf" 'Speicherpfad
    
    On Error Resume Next
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    On Error GoTo 0
    
    pdf_erstellen = pdf
End Function
            
Sub permail(ByVal pdf As String)
Dim objOutlook As Object
Dim objMail As Object
Dim myAttachments

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
Set myAttachments = objMail.Attachments

With objMail
    .To = "office@dfinvesting.com"
    .Subject = "Excelpedia + youtube"
    .Body = "Sehr geehrte Damen und Herren, " & vbNewLine _
        & vbNewLine _
        & "Danke für das Video zum automatischen Versenden von mails." & vbNewLine _
        & "lg"
        
    myAttachments.Add pdf 'Anhang

        'Nachricht zur Kontrolle anzeigen
    .Display

        'Oder direkt senden
        '.Send
End With
End Sub

Könnt ihr mir weiterhelfen/Tipps geben, wie ich das Problem am einfachsten lösen kann?

Ich bin leider neu auf dem VBA-Gebiet und sehe aktuell den Wald vor lauter Bäumen nicht mehr :/