使用宏和所有电子邮件发送工作簿

Question

I have a workbook that I am trying to email with macros. This way the recipient will also be able to use the macros that are included with the workbook. This will make office life easier for my company. I have tried setting the saved file name to .xlsm, but that causes an error.

This is my code (which is adapted from sources online)

Sub MailGo()
 'Variable declaration
Dim oApp As Object, _
oMail As Object, _
WB As Workbook, _
FileName As String, MailSub As String, MailTxt As String

 'Turns off screen updating
Application.ScreenUpdating = False

 'Makes a copy of the active sheet and save it to
 'a temporary file
ActiveSheet.Copy
Set WB = ActiveWorkbook
FileName = "Text.xls"
On Error Resume Next
Kill "C:\" & FileName
On Error GoTo 0
WB.SaveAs FileName:="C:\Users\Public\Documents" & FileName

 'Creates and shows the outlook mail item
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
With oMail
    .To = "wesley.x.sherow@us.tel.com"
    .Cc = ""
    .Bcc = ""
    .Subject = "LotInput"
    .Body = "LotInput"
    .Attachments.Add WB.FullName
    .Display
    .send
End With

 'Deletes the temporary file
WB.ChangeFileAccess Mode:=xlReadOnly
Kill WB.FullName
WB.Close SaveChanges:=False

 'Restores screen updating and release Outlook
Application.ScreenUpdating = True
Set oMail = Nothing
Set oApp = Nothing
End Sub

Answer 1

您还需要在.SaveAs行中包含此参数。

FileFormat:=xlOpenXMLWorkbookMacroEnabled