Hallo Leute,
ich versuche mit diesem Programm den Benutzer etwas in eine Textbox eingeben zu lassen und das anschließend per Klick auf einen Button in eine Mail einzufügen, die sich dann automatisch versendet. Ich hab es schon einiges versucht, jedoch erfolglos.. Das Prozedere, wenn ich einen Text direkt in den Quellcode eingebe, funktioniert alles ( .Body = "Hallo"). Nur weiß ich nicht, wie ich die Textboxeingabe in meine Mail reinbekomme. Bitte helft mir!
Hier der Quellcode:
Dim olApp As Object
olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
.Recipients.Add("stubert@iquinox.de")
'Betreff
.Subject = "Test"
'Nachricht
.Body = txtMail.Text
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
.Send()
End With
olApp = Nothing
ich versuche mit diesem Programm den Benutzer etwas in eine Textbox eingeben zu lassen und das anschließend per Klick auf einen Button in eine Mail einzufügen, die sich dann automatisch versendet. Ich hab es schon einiges versucht, jedoch erfolglos.. Das Prozedere, wenn ich einen Text direkt in den Quellcode eingebe, funktioniert alles ( .Body = "Hallo"). Nur weiß ich nicht, wie ich die Textboxeingabe in meine Mail reinbekomme. Bitte helft mir!
Hier der Quellcode:
Dim olApp As Object
olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
.Recipients.Add("stubert@iquinox.de")
'Betreff
.Subject = "Test"
'Nachricht
.Body = txtMail.Text
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
.Send()
End With
olApp = Nothing