[VB.NET] Email wird nicht versandt

[Iaa_1]

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 WithWieso erhalte ich keine Email?
Müsste doch an sich stimmen.

[br00_pwn]

Du solltest die Mail auch absenden :)


SmtpMail.Send(email)

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

LG br00_pwn

[Iaa_1]

Der "SendUsing"-Konfigurationswert ist ungültig.


SmtpMail.Send(email)

[br00_pwn]

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

Hier ein gutes Beispiel für smtp :)


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

[Chazer2010]

Hier noch eins von mir...



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

[br00_pwn]

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

[Iaa_1]

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)

[Chazer2010]

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

[Iaa_1]

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.

[Chazer2010]

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.

[br00_pwn]

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

LG br00_pwn