In Virtual Basic express 2010 2 Textboxen als E-ma

Computer: Software & Programmierung .NET & C#
#1

Hier ist mein Quelltext bei drücken des buttons 1 sollen die Textboxen 1 und 2 versendet werden

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Dim Msg As New Net.Mail.MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = „meine e-mail“
myCredentials.Password = „mein Passwort“

Msg.IsBodyHtml = False

Dim mySmtpsvr As New Net.Mail.SmtpClient()
mySmtpsvr.Host = „smtp.strato.de“
mySmtpsvr.Port = 25

mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials

Try
Msg.From = New Net.Mail.MailAddress(„[email protected]“)
Msg.To.Add(„nichts“)
Msg.Subject = „betreff“
Msg.Body = TextBox1.Text & TextBox2.Text
mySmtpsvr.Send(Msg)
MsgBox(„Email versendet!“)
Catch ex As Exception
MsgBox(„Fehler aufgetreten“)

End Try
End Sub

Ich bin verhältnismäßig noch ein Anfänger

ich möchte als e-mail meine mail von einem Strato server nutzen (smtp: smtp.strato.de) also strato webmailer

Vielen dank im Vor raus
nicki.

#2

Hallo Nicki,

Du weisst aber schon das Du hier im falschen Forum bist oder?
Aber schauen können wir ja einmal :wink:

Hier ist mein Quelltext bei drücken des buttons 1 sollen die
Textboxen 1 und 2 versendet werden

Ok

Private Sub Button1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Dim Msg As New Net.Mail.MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = „meine e-mail“
myCredentials.Password = „mein Passwort“

Msg.IsBodyHtml = False

Dim mySmtpsvr As New Net.Mail.SmtpClient()
mySmtpsvr.Host = „smtp.strato.de“
mySmtpsvr.Port = 25

mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials

Try
Msg.From = New Net.Mail.MailAddress(„[email protected]“)
Msg.To.Add(„nichts“)
Msg.Subject = „betreff“
Msg.Body = TextBox1.Text & TextBox2.Text
mySmtpsvr.Send(Msg)
MsgBox(„Email versendet!“)
Catch ex As Exception
MsgBox(„Fehler aufgetreten“)

End Try
End Sub

Auf den ersten Blick kann ich nichts erkennen woran es haengen sollte, ausser das es sicherlich den Empfänger „nichts“ nicht gibt.
Auch sollte der Absender der selbe sein, mit dem Du dich anmeldest!
Was mir aber auffaellt ist das du kein Timeout gesetzt hast!
Auch solltest du noch div. Eigenschaften vom SMTP Clienten setzen. Schaue diese Dir dazu einmal an :smile:
Aber was ich nicht verstehe, wieso du da einen Timer startest und was dieser machen soll! Was hast du denn im Tick Event stehen?

Ich bin verhältnismäßig noch ein Anfänger

Ist unschwer zu erkennen *zwinker* Aber jeder hat einmal angefangen :smile:

ich möchte als e-mail meine mail von einem Strato server
nutzen (smtp: smtp.strato.de) also strato webmailer

Tut Dein Source das nicht? Bekommst du Fehlermeldungen? Wenn ja, welche! Wenn nicht, was ist dann Deine Frage?

Aber

Vielen dank im Vor raus
nicki.

MfG Alex

#3

Hallo!
Es handelt sich bei der Frage um VB.NET (der OP hat bspw. sogar strukturierte Ausnahmebehandlung verwendet - was (altes) VB nicht konnte), insofern ist die Frage hier schon richtig aufgehoben.

Gruß,
Martin

#4

Es handelt sich bei der Frage um VB.NET (der OP hat bspw.
sogar strukturierte Ausnahmebehandlung verwendet - was (altes)
VB nicht konnte), insofern ist die Frage hier schon richtig
aufgehoben.

Hallo Martin,

du hast Recht, liegst aber falsch :smile:
Die Beitragsfolge stand zuerst im VB-Brett, darauf bezog sich die korrekte Antwort von Alex.

Gruß
Reinhard

#5

Hallo!
Ah OK, ich hatte die „Artikel wurde verschoben“-Zeile nicht gesehen.

Gruß,
Martin