Invulvelden mailen

[Jeffie85]

Goedemorgen,

In een Userform heb ik diverse invulvelden staan.
Als ik op Opslaan klik, mailt die ook netjes de tekst "Er is een nieuwe boeking ingevoerd".

With CreateObject("Outlook.Application").CreateItem(0)
    .To = "test@test.nl"
    .Subject = "Er is een nieuwe boeking ingevoerd"
    .Send
End With

Nu wil ik in de body van het mailtje ook de invulvelden mee laten sturen als tekst.
Hoe krijg ik die in dit scriptje verwerkt?

bvd.
Jeffrey

 

[edmoor]

Zonder een voorbeeld document, zo:

With CreateObject("Outlook.Application").CreateItem(0)
    .To = "test@test.nl"
    .Subject = "Er is een nieuwe boeking ingevoerd"
    .Body = TextBox1.Text & vbCrLf & TextBox2.Text
    .Send
End With

En kan je verder uitbreiden uiteraard.

 

[Jeffie85]

Dit werkt inderdaad. Super bedankt weer