くまおやぢの雑記帳

人生は、やろうと思った瞬間がスタートライン。Excel・Access・ガジェット・スマホ関係のネタを綴っています。あなたの「できる」を応援します。

3秒で完了!VBAで複数宛先メール送信を劇的に簡単化するマクロ|エクセルVBA

Cc、Bccでのメール送信、すごい面倒じゃないですか?

ビジネスの現場で日々奮闘されている皆様、メール送信業務に悩まされていませんか?特に複数の宛先やCc、Bccを使用するとき、いちいち入力してるのはとてもの煩わしいことですよね。そんな悩みを解決する、使えるVBAコードをご紹介します。

 

 

 

時間わずか3秒で複数アドレスをまとめるVBAコードはこちら

別シートから抽出した縦のリストをA列にコピペし、ワンクリックするだけでセルC1へカンマ区切りで一行に集約できます。


Sub メールアドレスカンマ区切り結合()
    Dim MyArray() As Variant, Ad As String
    Dim i As Long, LastCell As Long
    
    ' A列の最終行を取得
    LastCell = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' A列の値を格納する配列の次元を確保
    ReDim MyArray(0 To LastCell - 1)
    
    ' A列の値を配列に読み込み
    For i = 1 To LastCell
        MyArray(i - 1) = Cells(i, 1)
    Next i
    
    ' 配列をカンマ区切りの文字列に結合
    Ad = Join(MyArray, ",")
    
    ' C1セルに結果を出力
    Cells(1, 3) = Ad
End Sub

このコードを使えば、A列に縦に並べたメールアドレスを、C1セルに一行のカンマ区切りで集約できます。

メール送信時の注意点:情報漏洩を防ぐために

VBAでメールのCcに複数の宛先を指定する際は、To、Cc、Bccの使い分けに注意が必要です。特にBccの使用は、メールアドレスの不要な公開を防ぎ、情報漏洩のリスクを大幅に軽減します。

下記リンクではその詳細を解説していますのでご一読を。Bccで送信しないと、メールアドレスが送信者全員に公開されます。情報漏洩だ!誤送信だ!ってクレームを招きかねないので注意が必要です。

 

business-mail.jp

 

このVBAマクロを使えば、エクセルでメールアドレスをカンマ区切りにする作業が驚くほど簡単になります。もはや手作業でメールアドレスを区切る必要はありません。

 

業務効率化のポイント

  • VBAを活用してメールアドレスを複数指定
  • エクセルでメールアドレスをカンマ区切りに自動変換
  • 情報漏洩リスクの低減とミスの防止

このテクニックを習得すれば、メールの送信に費やす時間を大幅に削減できます。その結果、業務効率化間違いなしです。よかったらコピペして使ってみてください!