从Excel中的命名范围获取值到Outlook电子邮件中

chhkpiq4 于 2023-11-20 发布在其他

关注(0)|答案(1)|浏览(80)

我需要将工作簿中命名范围中的值放入Outlook邮件中。
在我的“设置”选项卡上，我为C3到C8单元格设置了一个名为EmailTo的命名区域，每一行都有一个不同的电子邮件地址。
.To = Range("EmailTo")给出错误
对象不支持此方法

Public Sub Outlook()
    
    Dim outlook As Object
    Dim email As Object
    
    Set outlook = CreateObject("Outlook.Application")
    Set email = outlook.CreateItem(olMailItem)
    
    With email
        .To = Range("EmailTo")
        .Display
    End With
    
End Sub

字符串
当有一个单元格被赋予命名范围时，它有效，但当命名范围分布在多个单元格时，它无效。

excel

来源：https://stackoverflow.com/questions/67536652/get-values-from-a-named-range-in-excel-into-an-outlook-email

1条答案

按热度按时间

chy5wohz1#

您应该将命名范围中的电子邮件地址列出为一个用分号分隔的字符串。

Public Sub Outlook()

Dim Outlook As Object
Dim email As Object
Dim strTo As String
Dim i As Long

Set Outlook = CreateObject("Outlook.Application")
Set email = Outlook.CreateItem(olMailItem)

With Range("EmailTo").Cells
  For i = 1 To .Count
    If Not IsEmpty(.Item(i)) Then         'skip empty cells
      strTo = strTo & "; " & Trim$(.Item(i).Value) 'add all e-mail addresses with delimiter
    End If
  Next i
  strTo = Mid(strTo, 3)                   'remove leading semicolon and space
End With

With email
  .To = strTo
  .Display
End With

End Sub

字符串

赞(0）回复(0）举报 2023-11-20

我来回答

从Excel中的命名范围获取值到Outlook电子邮件中

1条答案

相关问题

热门标签

最新问答