请求翻译并改写当前活动工作表的Save and Email VBA代码需求

没问题，我帮你补全并优化这段VBA代码，实现保存当前活动工作表并自动发送邮件的功能，同时加入了错误处理来提升稳定性：

Sub Mail_ActiveSheet()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim tempFilePath As String
    Dim tempFileName As String
    Dim ws As Worksheet
    
    ' 定义当前活动工作表
    Set ws = ActiveSheet
    
    ' 创建临时文件路径和名称（避免覆盖现有文件）
    tempFilePath = Environ$("TEMP") & "\"
    tempFileName = ws.Name & " " & Format(Now(), "yyyy-mm-dd hh-mm-ss") & ".xlsx"
    
    On Error GoTo Cleanup ' 错误处理
    
    ' 复制活动工作表到新工作簿
    ws.Copy
    ' 保存新工作簿为临时文件
    ActiveWorkbook.SaveAs Filename:=tempFilePath & tempFileName, FileFormat:=xlOpenXMLWorkbook
    ActiveWorkbook.Close SaveChanges:=False
    
    ' 初始化Outlook对象
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    ' 设置邮件内容
    With OutMail
        .To = "recipient@example.com" ' 替换为收件人邮箱
        .CC = "cc@example.com" ' 可选：抄送邮箱
        .BCC = "bcc@example.com" ' 可选：密送邮箱
        .Subject = "当前活动工作表：" & ws.Name ' 邮件主题
        .Body = "您好，附件是最新的活动工作表文件，请查收。" ' 邮件正文
        .Attachments.Add tempFilePath & tempFileName ' 添加附件
        .Send ' 直接发送，若要先显示邮件窗口可改为.Display
    End With
    
    MsgBox "邮件已成功发送！", vbInformation
    
Cleanup:
    ' 清理对象和临时文件
    Set OutMail = Nothing
    Set OutApp = Nothing
    Kill tempFilePath & tempFileName ' 删除临时文件
    On Error GoTo 0
End Sub

代码关键说明： #

• 临时文件机制：把活动工作表复制到全新工作簿再保存到系统临时文件夹，不会修改原文件，发送完成后自动删除临时文件，避免冗余文件残留。
• 兼容性优化：采用Outlook后期绑定方式，无需提前手动引用Outlook库，在不同Excel版本中都能正常运行。
• 错误防护：通过On Error GoTo Cleanup确保哪怕代码运行中出问题，也能及时清理占用的Outlook对象和临时文件，不会导致资源泄漏。
• 自定义选项：你可以根据实际需求修改收件人、抄送/密送地址、邮件主题和正文；如果想要发送前预览邮件内容，把.Send替换成.Display即可。

使用注意事项： #

• 运行代码前请确保Outlook已经打开并正常登录账号。
• 若需要兼容Excel 2003及更早版本，可把FileFormat:=xlOpenXMLWorkbook改为FileFormat:=xlExcel8（对应xls格式）。

内容的提问来源于stack exchange，提问作者Brian Davies