Excelmacros到Outlook（正文和/ cc）

我试图MailEnvelope从工作簿到Outlook的一系列单元格，并保存到草稿。 我已经调整了Ron de Bruin http://www.rondebruin.nl/win/s1/outlook/bmail3.htm中的一些macros，这非常完美。

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

 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 

我只是想将上面的macros设置为.to =“K1”和.cc =“M1：M4”，这些是来自同一个活动工作簿的单元格，然而对单元格进行了一些调整.Value和for For Each单元格In这个链接的列（“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 ";"