PDF to Outlook

I think this is a reason:

Formula:

' Create Outlook

    If FileName <> "" Then

        RDB_Mail_PDF_Outlook FileNamePDF:=FileName, _     ' here you putting FileName to attached, as parameter

but here in RDB_Mail_PDF_Outlook function:

   .Attachments.Add PathName & "\" & cl.Value & ".pdf"

you try to attached file from cl.Value not FileName
but I can be wrong.

Hey Kokosek,

I think because I have -

FileName = cl.Value & ".pdf"

this should work, however I did change it to include PathName, and also put it in the same format as in RDB_Mail_PDF_Outlook however this didn't work either

If you have any other ideas I'm all ears.

Thanks,

1. Did you check that file is successfully saved in:

PathName = ThisWorkbook.Path & "\" & MonthName(Month(Date))

2. Change this:

 .Attachments.Add PathName & "\" & cl.Value & ".pdf"

into this:

 .Attachments.Add FileNamePDF

if you pass parameter use it
3. add

Debug.Print FileName

Debug.Print FileNamePDF

in both macros and check that everything is correct with path and name of file.

EDIT: sorted FileName has not contains path.
Check attached file.

You welcome.
Thanks for rep.