将单元格值传递给.To和.CC-Java 学习之路

我将一系列单元格从工作簿发送到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调整一点，并且对于来自此链接的列中的每个单元格（"K"）不起作用http://www.rondebruin.nl/win/s1/outlook/bmail5.htm .

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

回复于 2024-04-28T11:34:41+08:00

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

1 回答

相关问题