create email by double clicking a cell

[AleinPump]

Guys,

I am trying to create a document, where if I double click on cell A2 for example, it will create an Outlook email with B2 as the Subject line and C2 as the body of the email (which would be more than 255 characters most of the time).
Same with A3-B3-B4 etc
The email to which I will be sending will always be the same.
Is this possible?

[TABLE="width: 319"]
<tbody>[TR]
[TD][/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: left"][B]case[/B][/TD]
[TD="align: left"][B]subject[/B][/TD]
[TD="align: left"][B]body[/B][/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: left"]case1[/TD]
[TD="align: left"]This is case 1[/TD]
[TD="align: left"]bla bla about case 1[/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: left"]case2[/TD]
[TD="align: left"]This is case 2[/TD]
[TD="align: left"]bla bla about case 2[/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: left"]case3[/TD]
[TD="align: left"]This is case 3[/TD]
[TD="align: left"]bla bla about case 3[/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD="align: left"]case4[/TD]
[TD="align: left"]This is case 4[/TD]
[TD="align: left"]bla bla about case 4[/TD]
[/TR]
[TR]
[TD="align: right"]6[/TD]
[TD="align: left"]case5[/TD]
[TD="align: left"]This is case 5[/TD]
[TD="align: left"]bla bla about case 5[/TD]
[/TR]
</tbody>[/TABLE]

Thank you very much in advance for any assistance!

 

[JazzSP8]

Hello and welcome to the Forum

This will do what you want;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Cancel = True
    With Target
        Set OutApp = CreateObject("Outlook.Application")
        OutApp.Session.Logon
        Set OutMail = OutApp.CreateItem(0)
        On Error Resume Next
        With OutMail
            .To = "person@internet.com"
            .Subject = Cells(Target.Row, "B").Value
            .Body = Cells(Target.Row, "C").Value
            .Display '' Change to .Send to automatically send
        End With
        On Error GoTo 0
        Set OutMail = Nothing
        Set OutApp = Nothing
    End With
End Sub

HTH