myGully.com - VB Textboxen versenden (Via e-mail/FTP)

myGully.com (https://mygully.com/index.php)

- Programmierung (https://mygully.com/forumdisplay.php?f=67)

- - VB Textboxen versenden (Via e-mail/FTP) (https://mygully.com/showthread.php?t=2107224)

VB Textboxen versenden (Via e-mail/FTP)

Hallo liebes Forum ,
undzwar weiss ich gerade überhaupt nichtmehr weiter was ich noch machen soll. Undzwar wollte ich ein kleines Formular programmieren , wobei es mehrere Optionen geben soll , die via textboxen ausgefüllt werden sollen.
Das versenden per E-mail bekomme ich mit 2 Textboxen noch hin , hier einmal der code:

Code:

Imports System.Net

Imports System.Net.Mail









Public Class Form1



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        MessageBox.Show("Versenden erfolgreich. Danke für das Ausüllen und abschicken des Formulars")

     Dim text As String

text = "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)

    End Sub

End Class

So das ganze funktioniert auch aber nur mit 2 textboxen , ich brauche nun aber noch mind. 1 Textbox. optional wären noch 2 Textboxen , möchte mich aber erstmal daran machen eine 3. textbox zu versenden.
Ich weiss das man dies auch via FTP machen kann , allerdings hatte ich das mit dem versenden nur noch mit der E-mail in meinem kopf.
Könntet ihr mir bitte sagen wie ich jetzt vorgehen kann/muss?

MfG.

/edit:
Arbeite mit Visual Basic Studio 2010 , und der Code ist von dem Button , der das ganze senden soll , also der Button: Formular absenden

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^^

Danke. Das funktioniert soweit so gut auch , aber wenn ich auf absenden klicke (mit textbox inhalt) kommt nur folgendes an:

/e
Problem erkannt^^

Benutzen tue nur ich es erstmals. Ist auch eine extra erstellte email ^.^