Excelのマクロについて教えてください。

マクロを実行するとOutlookメールを送信できます。
コードはマクロの一部のコードです。
Toをセル値「V1」
CCををセル値「X1」
BCCををセル値「Z1」
に設定したメールアドレスでメールを送信できるようにしております。
この設定のCCとBCCを複数設定する方法を教えてください。
CCををセル値「X1」「X2」「X3」
BCCををセル値「Z1」から「Z12」
としたいです。
例えば
CCをを("X1:X3")と設定するとエラーが出て上手くマクロを実行できませんでした。
現状のコード
'宛先
add = .Range("V1").Value
add = Mid(add, InStr(add, ":") + 1, Len(add) - InStr(add, ":"))
omail.To = add
add = .Range("X1").Value
add = Mid(add, InStr(add, ":") + 1, Len(add) - InStr(add, ":"))
omail.CC = add
add = .Range("Z1").Value
add = Mid(add, InStr(add, ":") + 1, Len(add) - InStr(add, ":"))
omail.BCC = add
以上となります。
よろしくお願いいたします。

質問者からの補足コメント

• 

  何時も回答ありがとうございます。
  上手くできました。
  今回の質問とは別の
  https://oshiete.goo.ne.jp/qa/14041085.html
  この回答を頂く事は可能でしょうか。
  よろしくお願いいたします。

  No.1の回答に寄せられた補足コメントです。 補足日時：2025/02/21 14:21

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2025/02/21 14:14

＞CCををセル値「X1」「X2」「X3」

Add = WorksheetFunction.TextJoin("; ", 1, .Range("X1:X3"))
omail.CC = Add

この回答へのお礼

回答ありがとうございます。
上手くできました。
何時もありがとうございます。
感謝いたします。

お礼日時：2025/02/21 14:22