Question

我将一系列单元格从工作簿发送到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 Forumns（“K”）中的每个单元格调整此链接不起作用http://www.rondebruin.nl/win/s1/outlook/bmail5.htm。

Answer 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 ";"

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

1 个答案: