Send file from excel via outlook and change file name via vba

[RKay4]

I see your posts and wondering if you can help with a simple VBA code. I have the code to send the email from excel and include as attachment, but I want to change the attachment name to be .fullname plus add a cell value to the end of the full name.
This is what I have.

.attachments.Add ActiveWorkbook.FullName & "_" & Range("k1").Value & ".xlsm"

With .fullname by itself it works fine. when I add anything else to try to get the name to change, no attachment.

 

[John_w]

Welcome to Mr Excel forums.

With .fullname by itself it works fine. when I add anything else to try to get the name to change, no attachment.

Because the file must exist in order for it to be attached. Use SaveCopyAs to save a copy of the workbook which includes the K1 cell value in the file name:

    Dim workbookCopyFullName As String
    workbookCopyFullName = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 5) & "_" & Range("K1").Value & ".xlsm"
    ThisWorkbook.SaveCopyAs workbookCopyFullName

and attach this file:

        .Attachments.Add workbookCopyFullName

     'If necessary, delete the copy
     Kill workbookCopyFullName

 

[RKay4]

Holy crap....so close yet so far....
works perfect....simple. Thanks!