Code:
Dim msg As String = TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & TextBox3.Text & vbNewLine & TextBox4.Text
wo ist da jetzt das Problem?
Ich würd das Senden in einem anderen Thread machen, da die Form dann einfriert, wenn du auf den Button drückst, also so:
Code:
Private t As New System.Threading.Thread(AddressOf mailsenden)
'Im Button1.Click-Event:
t.Start()
Sub mailsenden()
Dim text As String = "Option_1:" & TextBox1.Text & vbNewLine & "Option_2:" & TextBox2.Text
Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
myClient.Credentials = New Net.NetworkCredential ("E-mail wovon ich das Formular absenden möchte", "Passwort zu meiner E-mail womit ich das Formular absenden will")
myClient.Send ("E-mail die das Formular versenden soll", "E-mail die das Formular erhalten soll", "Betreff (hier , Umfrage , Formular)", text)
MessageBox.Show("Versenden erfolgreich. Danke für das Ausüllen und abschicken des Formulars")
End Sub
Achja, und so ganz sicher ist das auch nicht, weil man dann die Email-ID & PW auslesen kann und wer benutzt das Programm dann? Nur du oder auch andere? Weil wenn es auch andere benutzen kann es zu Problemen kommen in der Zeile:
Code:
Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
Bei meiner Email müsste statt smtp.web.de -> smtp.1und1.de stehen, sonst würde es net gehen.
Meh, sry für Doppelpost -.- falls es ein Mod sieht, bitte das Obere löschen^^