✔ Email mit Inhalt der Textbox versenden

[yunses]

Es kommt dann Syntaxfehler bei Imports...

Edit: Ah ne jetzt hab ichs. Naja jetzt gibts aber noch eine Kleinigkeit:

Bei dem Code emailClient.Send(message) habe ich in Klammern
Textbox1.text + Textbox2.text geschrieben. nur jetzt kommt dort ein Fehler:

Der Wert vom Typ "String" kann nicht in "System.net.mail.mailmessage" konvertiert werden

 

[engelmarkus]

Ja das ist ja klar. Das hier ist eine MailMessage:

Dim message As New MailMessage("sender@address", "from@address", "Subject", "Message Text")

Jetzt setzt du halt anstatt "Message Text" den Inhalt der zwei TextBoxen ein:

Dim message As New MailMessage("sender@address", "from@address", "Subject", Textbox1.Text & Textbox2.Text)

Zum Aneinanderhängen von Strings benutz lieber "&" statt "+"

 

[yunses]

ok danke dir. So das nächste Problem bei:

emailClient.Send(Message)

bei Message ist ein Fehler: "message ist ein Typ und kann nicht als Ausdruck verwendet werden

Edit: Ok ich hab den Fehler gefunden. Also ich probier alles nochmal aus und würde mich nochmal melden wenn etwas nicht geht.
Vielen dank engelmarkus, du bist wirklich ein Engel

 

[yunses]

ok neuer Fehler: SmtpException wurde nicht behandelt...
Das kam als ich das getestet habe

 

[Masterclavat]

Was ist denn die Nachricht der Exception?

 

[yunses]

also mein code lautet:

Imports System.Net.Mail
Public Class Form6
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Dim message As New MailMessage("*****@gmx.de", "*****@gmx.de", "Subject", "Textbox1.Text & Textbox2.Text")
        Dim emailClient As New SmtpClient("POP3")
        emailClient.Send(message)
    End Sub

und message ist unterstrichen, also irgendein Fehler.

und dort steht: SmtpException wurde nicht behandelt.

aber ich habe nirgends SmtpException geschrieben

 

[engelmarkus]

Also wenn ich mir mal deine Eingaben anschaue, und das bei mir daheim ausprobiere, dann kommt das hier als Exception:

SmtpException:
{"Fehler beim Senden von Mail."}
InnerException:
{"Der Remotename konnte nicht aufgelöst werden: 'POP3'"}

Hier mal die Erklärung aus dem Objektbrowser:

Public Sub New(ByVal host As String, ByVal port As Integer)
Member von System.Net.Mail.SmtpClient

Zusammenfassung:
Initialisiert eine neue Instanz der System.Net.Mail.SmtpClient-Klasse, die E-Mail-Nachrichten mithilfe des angegebenen SMTP-Servers und -Anschlusses sendet.

Parameter:
host: Ein System.String, der den Namen oder die IP-Adresse des für SMTP-Transaktionen verwendeten Hosts enthält.

port: Ein System.Int32 größer als 0 (null), das den für host zu verwendenden Anschluss enthält.

Ich schätz, da muss anstatt "POP3" was anderes hin .

 

[yunses]

Achso. Naja ich dachte ich muss POP3 hinschreiben, da ja gmx.de POP3 ist. Also da müsst ich wahrscheinlich noch ein bisschen rumprobieren. Was würden Sie sagen, was dort hin kommt? Und sonst hätt ich noch einen anderen Code gefunden, aber der will auch nicht funktionieren ---> http://vb-magazin.de/KnowledgeBase/articles/2005/03/08/107-e-mail-versenden.aspx

 

[engelmarkus]

Also ich fülle das so aus:

        Dim message As New MailMessage("...@aol.com", "...@aol.com", "testMail", "Eine test-Mail aus .Net 2.0")
        Dim emailClient As New SmtpClient("smtp.de.aol.com")

        Dim cre As New NetworkCredential("name", "passwort")

        emailClient.UseDefaultCredentials = False
        emailClient.Credentials = cre

        emailClient.DeliveryMethod = SmtpDeliveryMethod.Network
        emailClient.EnableSsl = False

        emailClient.Send(message)

Wenn eine solche Fehlermeldung kommt:

Syntaxfehler, Befehl nicht erkannt. Die Serverantwort war: CLIENT AUTHENTICATION REQUIRED. USE ESMTP EHLO AND AUTH.

Dann wirds schwierig, weil .Net keine ESMTP-Server unterstützt, soweit ich weiß.

 

[yunses]

Kann man keinen anderen Server anstatt ESMTP benutzen, den .net unterstützt? oder muss dieser Server sein?