vba - 在 Outlook 邮件中添加多个抄送

Question

我有这行代码，我尝试在 Outlook 邮件中添加多个抄送。但它只返回 ; .我在 MSDN 找到了这个样本.

Dim ccMail as String
Dim ccRow as Long
Dim objMail as Object
ccRow = Cells(Rows.count, 16).End(xlUp).Row

With objMail
        .Subject = Sheet1.TextBox1.Value
        For k = 4 To ccRow
            ccMail = ccMail & ";" & Cells(k, 1).Value
        Next k
        .cc = ccMail
end with

所有 CC 收件人都可以在 P 列中找到。
有什么帮助吗？谢谢。

Answer 1

你用过With objMail但没有为 Cells(k, 1).Value 指定工作表.这很可能导致错误。

另外，我想你想引用 ws.Cells(k, 16)相反，因为你想要的是 P 列。