Отправить активную книгу по электронной почте, но сменив имя

Question

Итак, на данный момент у меня есть рабочая книга, которая отправляется на электронную почту при нажатии кнопки, но я хочу изменить имя файла при отправке по электронной почте, как я могу это сделать?

Сейчас у меня есть этот код, который просто отправляет файл с именем текущей рабочей книги, но я хочу, чтобы он отправлял его с именем пользователя человека, который тоже отправил электронное письмо, добавив к нему Environ("UserName")

With OutMail
   .to = "email1@example.com;email2@example.com"
   .Subject = "Your Answers " & Environ("Username")
   .Body = "Your answers are here"
   .Attachments.Add ActiveWorkbook.Name
   .Send
End With

Answer 1

Попробуйте этот подход, пожалуйста. Вы должны изменить имя книги, прежде чем прикреплять ее ...

Dim fName As String
fName = ActiveWorkbook.Path & "\" & Environ("Username")
ActiveWorkbook.SaveAs fileName:=fName, FileFormat:=xlWorkbookDefault

With OutMail
      .to = "email1@example.com;email2@example.com"
      .Subject = "Your Answers " & Environ("Username")
      .Body = "Your answers are here"
      .Attachments.Add ActiveWorkbook.Name
      .Send
End With