エクセル管理簿からメールを自動作成

質問

エクセルの管理簿からメールを自動作成

下記の様なエクセル管理簿でA欄の項番をダブルクリックする事で対象項番横一列の内容でメールを自動作成したいのですがご教授頂けませんでしょうか。

　　A　　B　　C　 D　 　E 　 　F　　 G　 　
1　01　宛先1　CC1　件名1　本文1　本文2　本文3
2　02　宛先2　CC1　件名2　本文4　本文5　本文6
3　03　宛先3　CC2　件名3　本文7　本文8　本文9
4　04　宛先1 CC1 件名4　本文9　本文9　本文7

↓
項番01をダブルクリックした場合

宛先：宛先1（B1）
CC：CC1（C1）
件名：件名1（D1）
本文1：本文1（E1）
本文2：本文2（F1）
本文3：本文3（G1）

どうぞ宜しくお願い致します。

回答No.2

kkkkkm · ベストアンサー

BeforeDoubleClickではTarget.Rowでダブルクリックしたセルの行番号が取得できますので、宛先だけの例ですが以下のようにセットできます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> Range("A:A").Column Then
Exit Sub
End If
Cancel = True 'セルの編集にならないようにする

toaddress = Cells(Target.Row, "B").Value 'To宛先

End Sub

あと紹介しておいてなんですが(回答したときには気が付きませんでした)
変数宣言のところで最後だけに型を指定していますが
Dim toaddress, ccaddress, bccaddress As String
は、それぞれ
Dim toaddress As String, ccaddress As String, bccaddress As String
にしないと
toaddress, ccaddressはStringではなくVariantになります。
他の所も同じです。

回答No.1

kkkkkm

メールソフトがOutlookでしたら以下のサイトを参考にして作成してください。
VBAでメールを自動送信！エクセルマクロでoutlook操作する方法｜事例&コード付
https://www.fastclassinfo.com/entry/vba_outlook_sendmail

ただ
3行目：メールの本文形式を3に(3はリッチテキスト形式)
にはしない方がいいと思います。

補足

kkkkkmさま
ご回答有難う御座います。教えて頂いたHPを参考に悪戦苦闘しておりますが対象のデータが固定のセルでしたら出来るのですが選択した項番をダブルクリックにて反映させる方法で苦慮しております。ダブルクリックにこだわりはないのですが指定した項番のデータを元にメールを作成させたいと考えております。