email versturen met in bericht de info uit een cel

[FBV]

hallo

ik heb een emailknop gemaakt in excel met onderstaande waarden:

Private Sub CommandButton1_Click()
End Sub
Sub mail_werkboek_met_sendmail()
ActiveWorkbook.SendMail "excel@gmail.com", "Quick & Easy"
End Sub

Hierbij wordt het volledige excelbestand in een email verstuurd. Deze werkt prima.
Echter wil ik uit 1 bepaalde cel uit een werkblad de informatie toevoegen in het bericht.

heeft iemand een idee hoe ik deze info toevoeg in/bij bovenstaande macro.

[OctaFish]

Heb je al bij Ron de Bruin gekeken?

[FBV]

Thnx, maar dit wordt me te ingewikkeld
ik dacht dat dit op een makkelijkere manier kan.

misschien nog een andere optie?

[alphamax]

Ron de bruin in a nutshell, werkt alleen met outlook.

Public Sub Main()
    With CreateObject("Outlook.Application").CreateItem(0)
        .to = "ron@debruin.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = Blad1.Range("A1").Value
        .Send   'or use .Display
    End With
End Sub

[FBV]

Goededag

Is deze te combineren met onderstaand op een of andere manier?
Sub mail_werkboek_met_sendmail()
ActiveWorkbook.SendMail "sne@gmail.com", "Quick & Easy"

Ik wil nl het complete excelbestand meesturen
alvast bedankt

[alphamax]

Public Sub Main()
    With CreateObject("Outlook.Application").CreateItem(0)
        .to = "ron@debruin.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = Blad1.Range("A1").Value
        .Attachments.Add Application.ActiveWorkbook.FullName
        .Send   'or use .Display
    End With
End Sub

Maar eigenlijk staat dit al 100.000 keer op deze site, deze vraag is een "classic".