将单元格值传递给 .To 和 .CC答案

【问题标题】：Pass cell value to .To and .CC将单元格值传递给 .To 和 .CC
【发布时间】：2019-01-09 12:32:49
【问题描述】：

我将工作簿中的一系列单元格发送到 Outlook。

我对来自 Ron de Bruin http://www.rondebruin.nl/win/s1/outlook/bmail3.htm 的以下宏稍作调整。

现在是这样（只是我编辑的部分）：

With Sendrng

    .Parent.Select
    Set rng = ActiveCell
    .Select
    ActiveWorkbook.EnvelopeVisible = True

    With .Parent.MailEnvelope

        With .Item
            .To = ""
            .CC = ""
            .Subject = "XXX"
            '.Attachments.Add ("C:\test.txt")
            .Display
            .Save
            .Close olPromtForSave
        End With

    End With

我想设置 .To = "K1" 和 .CC = "M1:M4"。这些是来自同一个活动工作簿的单元格。对此链接中的 cell.Value 和 For Each cell In Columns("K") 进行一些调整不起作用http://www.rondebruin.nl/win/s1/outlook/bmail5.htm。

【问题讨论】：

标签： excel vba outlook

【解决方案1】：

试试这个：

.To = Range("K1")
For each cel in Range("M1:M4")
    Dim sCC as String
    sCC = sCC & ";" & cel.Value2
Next
.CC = Mid(sCC,2) 'to cut off initial ";"

【讨论】：

抱歉，在完成最后一条评论之前按了 entedr。无论如何，Out look 没有读到，这一次甚至没有创建电子邮件，我激活了 Outlook 对象库。
我担心你不会得到更好的答案...检查 sCC 里面的内容以及错误发生的位置
@AndersonPimentel - 您也不能在 Outlook 中使用 MailEnvelope。如果您通过 Outlook 对象发送邮件，则语法会有所不同。仔细看看 Ron de Bruin 的东西，看看语法上的区别。
@AndersonPimentel 看看这个stackoverflow.com/a/38303646/4539709