Sheet verzenden met ingegeven tekst vanuit InputBox

[WST]

Goedendag, ik hoop dat iemand mij kan helpen met het volgende. Ik heb gebruik onderstaande macro (gevonden op de site van Ron de Bruin) voor het verzenden van een Excel sheet. Dit gaat verder helemaal goed, maar wat ik graag zou willen toevoegen is dat is de teskt van het mailbericht middels een 'InputBox' kan laten samenstellen. Nu wordt als tekst van de mail hetgeen gebruik wat ik bij Body ingeef. Ik heb van alles geprobeerd met een mesagebox en inputbox maar ik krijg het maar niet voor elkaar dat ik de ingegeven tekst terug zie in het te generen mailtje.

Bvd
WST




'MAILEN VAN HET SHEET
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "bedrijfsbureau@beddrijfx.nl "
.CC = ""
.BCC = ""
.Subject = "formulier"
.Body = "Bijgaand het xxxxxxxxxxxxx"
.Attachments.Add ActiveWorkbook.FullName
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

 

[pasan]

Bericht = InputBox("voer een tekst in welke word weergegeven in de body van de mail", "mail bericht") 'deze 2 regels boven aan 
If StrPtr(Bericht) = 0 Then Exit Sub
 
'jou code

.body = Bericht   'vervang de .body regel met deze

 

[WST]

Pasan, bedankt voor de snelle en goede reactie. Het werkt allemaal, bedankr.
Weer wat geleerd.