PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : [vb.net] Problem beim Senden einer Email



DeXTer
14.10.2008, 21:20
Mein derzeitiges Projekt habe ich mit einer kleinen Email-Funktion geschmückt.

Undzwar soll nach Eingabe von

"Absender"
"Empfänger"
"Betreff"
"Text"

eine Email gesendet werden.

Nun habe ich zuerst ein "import", von wo die anderen Befehle dann herkommen:


Imports System.Net.Mail


dann wird eine Sub erstellt:



Public Sub sendmail()

Dim emailmessage As MailMessage = New MailMessage
emailmessage.From = New MailAddress(TextBox1.Text)
emailmessage.to.add(Textbox2.Text)
emailMessage.Subject = Textbox3.Text
emailmessage.Body = TextBox4.Text
emailmessage.Priority = MailPriority.Normal

Dim smtp As New SmtpClient("mail.google.com")
Dim basicauthenticationinfo As New System.Net.NetworkCredential("dexter9204@gmail.com", "passwort")

smtp.Credentials = basicauthenticationinfo

Try
smtp.Send(emailmessage)


Catch ex As Exception

MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try


End Sub


Und diese natürlich beim Klick auf den Button aufgerufen



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

sendmail()

End Sub


Bei "System.Net.NetworkCredential("dexter9204@gmail.com", "passwort")" steht natürlich das richtige Benutzerpasswort.

Das Programm wird auch weiterhin fehlerfrei gestartet, doch nach Eingabe von z.B.

Absender: test@test.com
Empfänger: dexter9204@gmail.com
Betreff: Test
Text: Dies ist eine TestMail

hängt es sich nach "klick" auf meinen Button auf und nach einiger Zeit bekomme ich ne Fehlermeldung, dass die Email nicht gesendet werden konnte.

Hab ich da irgendeinen Fehler drinn?? :?:

ShockerZz
15.10.2008, 18:58
Warum machst du ein Feld für Absender, wenn du im Code schon Absender + dessen Passwort machst?
Außerdem kannst du ja nicht in deinem Beispiel einen anderen Absender als im Code benutzen, oder?