请求开发Excel宏：固化Windows ID并一键发送至指定邮箱

嘿皮埃尔，这个需求完全可以通过Excel的VBA宏来实现，下面是一步步的具体操作方法，销售团队只要点击按钮就能完成你要的两个操作：固化填写人的Windows ID，同时自动把文件发送到指定邮箱。

第一步：启用「开发工具」选项卡（如果没显示） #

• 打开Excel，点击左上角「文件」→「选项」→「自定义功能区」
• 在右侧的主选项卡列表里勾选「开发工具」，点击确定，这样顶部菜单栏就会出现「开发工具」选项卡了

第二步：添加按钮并编写VBA代码 #

• 切换到「开发工具」选项卡，点击「插入」，选择「表单控件」里的「按钮（窗体控件）」
• 在工作表的合适位置拖动鼠标画出按钮，弹出「指定宏」窗口时，点击「新建」，会自动打开VBA编辑器
• 把编辑器里的默认代码替换成下面这段：

Sub 固化用户名并发送邮件()
    Dim userNameCell As Range
    Dim userName As String
    Dim outlookApp As Object
    Dim outlookMail As Object
    
    ' --- 1. 固化用户名 ---
    ' 请根据实际情况修改：存放=username()的单元格地址和工作表名称
    Set userNameCell = ThisWorkbook.Sheets("销售表单").Range("B2")
    
    ' 获取当前公式计算出的用户名，替换为文本值固化
    userName = userNameCell.Value
    userNameCell.Value = userName
    
    ' --- 2. 自动发送邮件 ---
    ' 创建Outlook对象（需确保电脑已安装Outlook）
    Set outlookApp = CreateObject("Outlook.Application")
    Set outlookMail = outlookApp.CreateItem(0)
    
    On Error Resume Next ' 捕获发送过程中的可能错误
    With outlookMail
        .To = "your-target-email@example.com" ' 替换为指定的接收邮箱
        .Subject = "销售提交文件 - 填写人ID：" & userName
        .Body = "您好，附件是销售团队提交的表单，填写人Windows ID：" & userName
        .Attachments.Add ThisWorkbook.FullName ' 附加当前Excel文件
        .Send ' 直接发送；若要先让用户确认邮件，改为 .Display
    End With
    On Error GoTo 0
    
    ' 释放对象资源
    Set outlookMail = Nothing
    Set outlookApp = Nothing
    
    ' 提示操作完成
    MsgBox "用户名已固化，文件已成功发送！", vbInformation
End Sub

代码关键修改点 #

• 单元格与工作表：把Sheets("销售表单").Range("B2")改成你实际存放=username()的工作表名称和单元格地址（比如你的用户名在Sheet1的A1，就改成Sheets("Sheet1").Range("A1")）
• 目标邮箱：把.To后面的邮箱地址替换成你指定的接收邮箱
• 邮件发送方式：如果希望销售点击按钮后先看到邮件内容再发送，把.Send改成.Display

第三步：设置按钮名称 #

• 回到Excel界面，右键点击刚才添加的按钮，选择「编辑文字」，改成比如「提交表单」这样清晰的名称

注意事项 #

• 销售团队打开文件时，Excel会弹出宏安全提示，需要点击「启用内容」才能使用按钮功能
• 这个方案依赖Microsoft Outlook，如果团队成员使用其他邮件客户端，需要调整邮件发送的代码逻辑
• 请把文件保存为**Excel 启用宏的工作簿（.xlsm）**格式，否则宏代码会丢失

内容的提问来源于stack exchange，提问作者Car Hibou