Submit button to save file as and attach to email will not work!

[crossfire729]

I have successfully created a macro that upon clicking a submit button the excel file attaches to an email. It includes the To: email address and subject name based on cell content. I can not figure out how to also change the name of the file upon attaching.

Sub Submit()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.to = "email address"
.CC = ""
.BCC = ""
.Subject = "Contract Number_" & Sheets(1).Range("c13").Value
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Display 'or use .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[John_w]

Welcome to MrExcel.

Call the workbook's SaveCopyAs method to save the workbook with the required file name and attach that file. See if you can incorporate some of the code at http://www.mrexcel.com/forum/excel-...-file-name-via-visual-basic-applications.html which does a similar thing.