基于ComboBox6值控制VBA邮件strbody内容显示的求助

核心思路是用Select Case语句判断ComboBox6的选中值，分情况拼接邮件正文，替代硬编码拼接，逻辑清晰，新手易上手。

修改后的完整代码示例 #

Sub GenerateOutlookEmail()
    Dim olApp As Object
    Dim olMail As Object
    Dim strbody As String
    
    ' 初始化Outlook对象
    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0)
    
    ' 替换成你原来的邮件基础正文内容
    strbody = "您好：" & vbNewLine & vbNewLine & _
              "这是邮件的固定开头部分" & vbNewLine & vbNewLine
    
    ' 根据ComboBox6的选中值动态拼接正文
    Select Case ComboBox6.Value
        Case "1"
            ' 选中1时，跳过指定两行，直接拼接结尾内容
            strbody = strbody & "邮件结尾内容"
        Case "2"
            ' 选中2时，保留第一行，跳过第二行
            strbody = strbody & " [" & ComboBox6.Value & "] " & TextBox9.Value & vbNewLine & _
                      "邮件结尾内容"
        Case "3"
            ' 选中3时，保留所有指定行
            strbody = strbody & " [" & ComboBox6.Value & "] " & TextBox9.Value & vbNewLine & _
                      " [" & ComboBox7.Value & "] " & TextBox10.Value & vbNewLine & _
                      "邮件结尾内容"
    End Select
    
    ' 配置邮件参数（替换成你的实际信息）
    With olMail
        .To = "recipient@example.com"
        .Subject = "自定义邮件主题"
        .Body = strbody
        .Display ' 如需直接发送，替换为.Send
    End With
    
    ' 释放对象，避免内存占用
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

关键说明 #

• 把邮件内容拆成固定基础部分和动态控制部分，方便后续修改
• Select Case精准对应ComboBox6的三个选项，逻辑一目了然
• vbNewLine用于添加换行，保证邮件格式整洁
• 你只需要把代码里的固定开头部分、邮件结尾内容、收件人、主题替换成自己的实际内容即可

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