[VB.NET] Email wird nicht versandt

Code:

---

Dim email As New MailMessage
With email
.From = "irgendeinAbsender@*.tld"
.To = "MeineEmail@*.tld"
.Subject = "Feedback"
.BodyFormat = MailFormat.Text
.Body = TextBox1.Text
.Priority = MailPriority.High
End With

---

Wieso erhalte ich keine Email?
Müsste doch an sich stimmen.

Du solltest die Mail auch absenden :)

Code:

---

SmtpMail.Send(email)

---

solltest du vielleicht noch in einen Try Catch Block setzen, dann sieht du wenn es zu Fehlern kommt :)

LG br00_pwn

Der "SendUsing"-Konfigurationswert ist ungültig.

Code:

---

SmtpMail.Send(email)

---

Ok, moment...ich schreib dir schnell ein Beispiel....editieren es gleich ...

Hier ein gutes Beispiel für smtp :)

Code:

---

Dim Msg As New MailMessage
        Dim myCredentials As New System.Net.NetworkCredential
        myCredentials.UserName = " andreas@absender.de"
        myCredentials.Password = "Passwort des Absenders"

        Msg.IsBodyHtml = False

        Dim mySmtpsvr As New SmtpClient()
        mySmtpsvr.Host = "smtp.web.de" 'bei web.de
        mySmtpsvr.Port = 25

        mySmtpsvr.UseDefaultCredentials = False
        mySmtpsvr.Credentials = myCredentials

        Try
            Msg.From = New MailAddress("andreas@absender.de")
            Msg.To.Add("entchen@empfänger.de")
            Msg.Subject = "Betreff"
            Msg.Body = "Inhalt"
            mySmtpsvr.Send(Msg)
            MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
        Catch ex As Exception
            MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
        End Try

---

Hier noch eins von mir...

Code:

---

        Dim Msg As New MailMessage
        Dim myCredentials As New System.Net.NetworkCredential
        myCredentials.UserName = "Username"
        myCredentials.Password = "passwort"

        Msg.IsBodyHtml = False

        Dim mySmtpsvr As New SmtpClient
        mySmtpsvr.Host = "mail.gmx.net"
        mySmtpsvr.Port = 25
        mySmtpsvr.EnableSsl = True

        mySmtpsvr.UseDefaultCredentials = False
        mySmtpsvr.Credentials = myCredentials

        Msg.From = New MailAddress("Absenderadresse")
        Msg.To.Add("Empfängeradresse")
        Msg.Subject = DateString & " - " & TimeOfDay & " - " & My.Computer.Name
        Msg.Body = TextBox1.Text
        mySmtpsvr.Send(Msg)
        TextBox1.Text = ""

---

Ebenfalls mit SMTP...

Hm, ist eigentlich "fast" der gleiche code, wenn es dir nicht aufgefallen ist :)
Des weiteren befindet sich dein "send" nicht in einem Try Block, wodruch er keine detaillierte Fehlermeldung bekommen würde, falls was schief läuft !

LG br00_pwn

Das Programm meldet, dass in der Sendzeile ein Fehler ist. "Sehr detailiert" ;).
Nagut, ich denke, dass der Code bei anderen geht und es hier nur nicht geht, weil der Port dicht ist.
(Spamschutz)

@br00_pwn: Hast recht :) Hatte mir deinen Code nicht großartig angeschaut... naja doppelt gemoppelt hält häufig besser ^^

An sich ist die Methode ja sehr unsicher, weil ich Logindaten eintragen muss. Weiß jemand, wie es geht, dass man anonym die Mail versendet? Also wie Fakemailer - das man irgendeinen Absender hat und keinen Login braucht, nur einen Empfänger.

In vb.net könntest du deine Daten in eine unsichtbare Textbox schreiben und diese dann im Code auslesen, weiß aber nicht ob das nicht auch dekompilierbar ist, da der Designer ja auch einfach nur Code erzeugt, und somit auch die Werte der Textbox speichert.

Möchtest du etwas stealen und dann per Mail senden, oder worum gehts eigentlich genau ?

LG br00_pwn