ExcelのマクロをOutlookに（本体と/ cc）

Question

MailEnvelopeブックからOutlookに保存してドラフトに保存するセルの範囲。私はRon de Bruinからちょっとしたマクロを微調整しました。それは完璧です。

今、この（私が編集した部分だけ）のようなものです：上記のマクロに：

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 =「M4 M1」を設定したいですこれらは同じアクティブブックからのセルですが、セルを少し微調整してください。このリンクのFor Each Cell In Columns（ "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 ";"