如何用VBA将Excel多个单元格内容插入Outlook邮件主题

• 代码主题赋值失败的核心是对象引用错误：With olemail 代码块内带.前缀的.Range会被识别为Outlook邮件对象的属性，但Outlook邮件对象本身不存在Range方法，你实际需要调用的是Excel工作表的单元格范围，二者对象归属不匹配。

Sub SendEmailFleet()
    '
    ' SendEmailFleet Macro
    '
    Dim olapp As Outlook.Application
    Dim olemail As Outlook.MailItem
    Dim olinsp As Outlook.Inspector
    Dim wddoc As Word.Document
    ' 提前绑定工作表对象，避免引用混乱
    Dim ws As Worksheet
    Set ws = Sheet1
    
    Set olapp = New Outlook.Application
    Set olemail = olapp.CreateItem(olMailItem)
    
    With olemail
        .BodyFormat = olFormatRichText
        .Display
        
        .To = "example@example.com"
        ' 修复点：明确指定工作表调用Range，取Text属性获取单元格文本内容
        .Subject = "Salgsmail" & " " & ws.Range("C25:D25").Text & " " & ws.Range("C23:D23").Text
        
        Set olinsp = .GetInspector
        Set wddoc = olinsp.WordEditor
        
        wddoc.Range.InsertBefore "     "
            
        ws.Activate
        ws.Range("A1").CurrentRegion.Copy
        
        wddoc.Range(3, 3).Paste
        
    End With
    ' 释放对象内存，避免后台残留Office进程
    Set wddoc = Nothing
    Set olinsp = Nothing
    Set olemail = Nothing
    Set olapp = Nothing
    Set ws = Nothing
End Sub

• 如果C25:D25、C23:D23为非合并的多单元格范围，直接调用Range.Text会返回空值，建议修改为逐单元格拼接，示例：ws.Range("C25").Text & ws.Range("D25").Text
• 运行代码前需要确认已在VBA编辑器的「工具-引用」中勾选了「Microsoft Outlook xx.x Object Library」和「Microsoft Word xx.x Object Library」，否则会报“用户定义类型未定义”错误

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