mail versturen met macro uit excel

[Excelproblem]

Heey allemaal, voor school heb ik de opdracht om een commercieel plan uit te denken. in excel.
nu heb ik onderaan twee knoppen aangemaakt. de eerste is het verzenden van mij naar de leraar. de andere andersom. via de mail dus.
voor de eerste gebruik ik de macro van Ron de Bruijn

Sub Mail_workbook_1()
    Dim wb As Workbook
    Dim I As Long

    Set wb = ActiveWorkbook

    On Error Resume Next
    For I = 1 To 5
        wb.SendMail "unknown@home.nl", _
                    Range("P3")
        If Err.Number = 0 Then Exit For
    Next I
    On Error GoTo 0
End Sub

Nu zit ik echter te klieren met de inhoud van de mail (Dus niet het onderwerp maar het bericht zelf), (onderwerp staat in cel P3). weet iemand hoe ik die kan invoegen? de inhoud komt te staan in cel P5.

mvg excelproblem

 

[spaarie]

Hier ga je denk ik alles vinden wat je wilt weten; http://www.snb-vba.eu/VBA_Excelgegevens_mailen.html#H4
Sla hem op in je favorieten, want je gaat er waarschijnlijk nog wel gebruik van maken!

 

[Excelproblem]

dankje het is gelukt: heb volgende macro ingevoerd:

Sub Heen()
   With CreateObject("Outlook.Application").createitem(0)
      .To = "unknown@home.nl"
      .Subject = Range("P3")
      .Body = Range ("P5")
      .Attachments.Add ThisWorkbook.FullName
      .Send
   End With
End Sub

MVG