gegevens van labels en textboxen sturen dmv outlook

[Schippertje]

Hallo allemaal,

Ik gebruik nu deze code om gegevens vanuit een richtextbox tekst te versturen dmv outlook.
Maar 1 nadeel hiervan is dat ik de tekst in de richtextbox zelf moet veranderen.

 Dim application = New Microsoft.Office.Interop.Outlook.Application
        Dim outlookEmail = CType(application.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem), MailItem)

        outlookEmail.To = ""

        outlookEmail.BodyFormat = Microsoft.Office.Interop.Outlook.OlBodyFormat.olFormatPlain

        outlookEmail.Importance = Microsoft.Office.Interop.Outlook.OlImportance.olImportanceNormal

        outlookEmail.Body = (RichTextBox1.Text)
        outlookEmail.Subject = ("TEST")

        outlookEmail.Display(True)

Ik heb op me form wat labels en textboxen, nu zou ik graag willen dat ik alles niet in de richtextbox hoef
te zetten maar dat die de text van de labels en uit de textbox zelf in de mail zet.
Weet iemand hoe ik de code bij (outlookEmailBody = (Richtextbox1.text) zo kan veranderen dat die alles uit de labels en de textboxen haalt.
de tekst moet in de mail wel naast en onder elkaar.

Bijv :


Label1 : Textbox1
Label2 : Textbox2
Label3 : Textbox3

en ga zo maar verder.
Heb zelf het 1 en andere al geprobeerd maar zonder suc6.
Alvast bedankt.
Grt Schippertje

 

[Pim15]

Dat kan zo (even uit mijn hoofd:

Label1.Text & " : " & TextBox1.Text & vbCrlf & Label2.Text & " : " & TextBox2.Text & vbCrlf & Label3.Text & " : " & TextBox3.Text

Pim

 

[Schippertje]

Het werkt!!!!
Vriendelijk bedankt Pim.

Grt

 

[Pim15]

Mooi, zet je de vraag ook op opgelost?

Pim

 

[Schippertje]

Oja vergeten..