Excel VB开发者首次尝试Outlook：创建表单自动填充邮件正文问询

嘿，作为Excel VBA老手第一次碰Outlook开发完全没难度！针对你负责的大型公司手机更换请求场景，咱们一步步来搞定这个自动填数据发邮件的需求，彻底告别手动填写的麻烦。

第一步：先搞个数据输入表单（用你熟悉的Excel就行） #

咱们直接在Excel里创建用户窗体作为输入界面，操作超顺手：

1. 打开Excel，切换到「开发工具」选项卡（如果没显示，去文件-选项-自定义功能区勾选它）
2. 点击「插入」，选择「用户窗体」，然后拖放这些控件：
   • 4个文本框：分别用来填终端用户邮箱、物流单号、新手机号、设备型号（记得给控件改个好认的名字，比如txtUserEmail、txtTrackingNo）
   • 1个命令按钮：命名为btnSendEmail，显示文字改成「生成并发送邮件」

第二步：核心VBA代码编写 #

首先得给VBA加Outlook的引用，不然代码不认Outlook对象：

• 打开VBA编辑器（Alt+F11），点击「工具」-「引用」，找到并勾选「Microsoft Outlook XX.X Object Library」（XX.X是你电脑上Outlook的版本，比如2019就是16.0）

然后双击刚才的用户窗体，粘贴下面的代码：

Private Sub btnSendEmail_Click()
    ' 声明Outlook相关对象
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    
    ' 先检查必填字段有没有空的
    If txtUserEmail.Value = "" Or txtTrackingNo.Value = "" Or txtNewPhone.Value = "" Or txtDeviceModel.Value = "" Then
        MsgBox "所有字段都要填哦！", vbExclamation, "提示"
        Exit Sub
    End If
    
    ' 初始化Outlook应用
    Set olApp = New Outlook.Application
    Set olMail = olApp.CreateItem(olMailItem)
    
    ' 拼接邮件正文，你可以根据实际操作步骤随便改内容
    Dim mailBody As String
    mailBody = "亲爱的用户：" & vbCrLf & vbCrLf
    mailBody = mailBody & "你的手机更换请求已处理完成，物流及设备信息如下：" & vbCrLf
    mailBody = mailBody & "- 物流单号：*" & txtTrackingNo.Value & "*" & vbCrLf
    mailBody = mailBody & "- 新手机号：*" & txtNewPhone.Value & "*" & vbCrLf
    mailBody = mailBody & "- 设备型号：*" & txtDeviceModel.Value & "*" & vbCrLf & vbCrLf
    mailBody = mailBody & "请按照以下步骤完成激活与设置：" & vbCrLf
    mailBody = mailBody & "1. 收到设备后先检查包装完好性，确认设备型号与上述信息一致" & vbCrLf
    mailBody = mailBody & "2. 插入SIM卡，长按电源键开机" & vbCrLf
    mailBody = mailBody & "3. 跟随屏幕提示完成语言、WiFi连接等基础配置" & vbCrLf
    mailBody = mailBody & "4. 登录公司专属账号完成设备激活，有问题随时联系IT支持：it-support@company.com" & vbCrLf & vbCrLf
    mailBody = mailBody & "感谢你的配合！" & vbCrLf
    mailBody = mailBody & "IT服务团队"
    
    ' 配置邮件各项参数
    With olMail
        .To = txtUserEmail.Value
        .Subject = "【手机更换通知】新设备已发出，请查收激活指引"
        .Body = mailBody ' 要是想搞更美观的HTML格式邮件，就换成.HTMLBody然后写HTML代码
        '.Display ' 如果你想先预览邮件再发送，就把下面的.Send换成这个
        .Send ' 直接发送邮件
    End With
    
    ' 释放对象，避免内存占用
    Set olMail = Nothing
    Set olApp = Nothing
    
    MsgBox "邮件发送成功！", vbInformation, "搞定啦"
    ' 清空表单，方便下一次输入
    txtUserEmail.Value = ""
    txtTrackingNo.Value = ""
    txtNewPhone.Value = ""
    txtDeviceModel.Value = ""
End Sub

第三步：测试和小优化 #

• 先把.Send改成.Display测试，看看邮件内容里的字段是不是都正确填充了，步骤有没有错
• 如果需要加更多信息（比如用户姓名、预计送达时间），直接在表单加个文本框，然后在邮件正文里插入对应的变量就行
• 要是后续经常改操作步骤，建议把邮件模板存在Excel工作表的单元格里，代码里直接读取单元格内容当正文，这样不用每次改代码

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