VBA Excelファイルの2つのセル分を参照して転記したい

Question

outlookでのメール送信マクロを作成中でして、Ccを2アドレス分入力する場合のコードの記載方法についてエラーが出てしまいました。

具体的には、
参照元のxismファイルには入力したいアドレスがそれぞれA3、A4セルに記載してあるのですが、
下記のコードを入力したところ、「型が一致しません」というエラーが出てしまいました。

この場合、どのようにコードを記載すればoutlookに正常にアドレスが転記されるのでしょうか？

With outlookMail
        .To = ws.Range("A2").Value
        .Cc = ws.Range(Cells(3, 1), Cells(4, 1)).Value
        .Subject = ws.Range("A5").Value
        .Body = ws.Range("A6").Value
    End With

あるいは、1つのセル内に複数のアドレスを記載する形でも、送りたい2つのアドレスに正常にメールは送れるのでしょうか…？

Answer 1

複数アドレスを指定する場合は、;を区切り文字にして連結すればいいでしょう。

        .Cc = ws.Cells(3, 1) & ";" & ws.Cells(4, 1)).Value

Comments

[cherishlieben]

ご回答いただきありがとうございました。
先ほど質問編集し、コード等追記いたしましたので、
よろしければ最後ご回答いただけましたら幸いです。

[hatena19]

質問、編集が反映されていないようですが。もう一度、編集してみてください。

コード例を提示してありますが、それではダメでしたか？

[hatena19]

あっ、別に新規質問をしたのですね。
https://teratail.com/questions/373379
新規に質問しなくても質問は後から編集できますので、今後はそうしてください。

Answer 2

複数のアドレスをセミコロンでつないでセットすればいけたはず。

Comments

[jinoji]

WorksheetFunction.TextJoin(";", True, ws.Range("A3:A4"))
とか