Arbeitsmappe mit Makros und allen per E-Mail versenden

Question

Ich habe eine Arbeitsmappe, die ich mit Makros per E-Mail versenden möchte. Auf diese Weise kann der Empfänger auch die Makros verwenden, die in der Arbeitsmappe enthalten sind. Das erleichtert meinem Unternehmen das Büroleben. Ich habe versucht, den gespeicherten Dateinamen auf .xlsm einzustellen, aber das verursacht einen Fehler.

Dies ist mein Code (die online von Quellen angepasst ist)

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

Sie auch dieses Argument sind in Ihrer .SaveAs Linie müssen.