Excelでメール送信→本文に特定セルの内容を表示したい

Question

Excelでコマンドボタンクリックでメールを起動し
特定のセル(A1)の値をメール本文に挿入したいです。

メール画面を出すところまでは、探したコードでできたのですが
セルの値を挿入する方法がわからず、どのようなコードを入れたらいいのか
教えていただけないでしょうか？

Private Sub ボタン1_Click()

Const HKEY = "HKEY_CLASSES_ROOT\mailto\shell\open\command\"
    Dim Flg   As Boolean
    Dim Arg   As String
    Dim sPath As String
    Dim i     As Long
    Dim b()   As Byte
    Dim tmp, ary
   


    On Error GoTo errHandler

    tmp = Selection.Value
    If IsArray(tmp) Then
        ReDim ary(1 To UBound(tmp))
        For i = 1 To UBound(tmp)
            ary(i) = Join(Application.Index(tmp, i, 0), "")
        Next
        Arg = Join(ary, vbLf)
    Else
        Arg = tmp
    End If
  
    '既定メーラー取得(WinXP)
    With CreateObject("WScript.Shell")
        sPath = .ExpandEnvironmentStrings(.RegRead(HKEY))
    End With
    sPath = Replace$(Replace$(sPath, """%1""", ""), "%1", "")
    Flg = InStr(1, sPath, "thunderbird", vbTextCompare)
  
    If Flg Then
        'thunderbirdだと文字化けしたのでUTFエンコード
        With CreateObject("ScriptControl")
            .Language = "JScript"
            Arg = .CodeObject.encodeURI(Arg)
        End With
    Else
        '簡易的にSJISエンコード
        b = StrConv(Arg, vbFromUnicode)
        Arg = ""
        For i = 0 To UBound(b)
            Arg = Arg & "%" & Right$("0" & Hex$(b(i)), 2)
        Next
    End If
  
    Arg = "mailto:メールアドレス?" & _
          "subject=お知らせ&" & _
          "body=" & Arg

    Shell sPath & Arg

    Exit Sub
errHandler:
    MsgBox Err.Number & ":" & Err.Description
End Sub

Comments

[radames1000]

メーラーは何を使われていますか？Outlookでしょうか。

[techiko]

Outlook、Thunderbirdを使っているので
メーラーを限定したくないのですが難しいでしょうか？

Answer 1

メーラーによってコードが変わってきますので、ボタンを複数作成されるどして、
選べるようにするとよろしいかと思います。
詳細記述は以下リンクが参考になると思います。
Outlookの場合
【エクセルVBA】Outlookでメールを作成・送信する方法
サンダーバードの場合
エクセルVBAでサンダーバードからメールを送る方法|半自動化も可

－－－－－－－－－－－－－－－－－－－－－－－－－
すいません。普通にセル指定でいけそうでした。

    Arg = "mailto:メールアドレス?" & _
          "subject=お知らせ&" & _
          "body=" & Range("a1")

これだとA1の値が本文に追記されます。
わたしの環境ではサンダーバードがないのでうまくいくかご確認ください。

Comments

[techiko]

ボタンを分けて作るしかないのですね…
どうもありがとうございました！

[techiko]

確認が遅くなり申し訳ありません。
解決済みにしたにもかかわらず、どうもありがとうございました。

いただいたコードでやりたいことが形になりましたが、
Thunderbirdは「クラスが登録されていません」と出て立ち上がりませんでした。
解決策をもう少し調べてみます。
どうもありがとうございました！