Computerhilfen.de

Design und Entwicklung => Programmieren Forum & Hilfe => Thema gestartet von: Felax1234 am 24.02.10, 18:40:45

Titel: Visiual Basic 2008 -> Textbox Inhalt an eine E-Mail Adresse senden
Beitrag von: Felax1234 am 24.02.10, 18:40:45

Hey!
Ich habs jetzt doch mal mit der VB probiert.
Ist echt nicht schlecht!
Nur ein problem habe ich!
Und zwar habe ich eine Textbox erstellt und einen Sendebutton installiert. Man sollte was in die Textbox reinschreiben können und wenn ich auf Senden drücke sollte eine Email bei mir ankommen mit dem Text der in der Textbox war. Ich hab schon viele Foren durchgeschaut aber alles funktioniert nicht! Ich bin echt langsam am verzweifeln. Ich hab hier schon ein Code, der eigentlich klappen sollte:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     
         Dim sentmail As New Net.Mail.SmtpClient("smtp.mail.yahoo.com", 25)
         Dim message As New Net.Mail.MailMessage
         Dim adress As New Net.Mail.MailAddress(TextBox1.Text)
         Dim sempf As New Net.Mail.MailAddress("[email protected]", "pop.mail.yahoo.de")
         Dim aut As New Net.NetworkCredential("Username", "Passwort")
         message.From = adress
         message######.Add(sempf)
         message.IsBodyHtml = False
         message.Subject = "sadsa"
         message.Body = TextBox1.Text
         sentmail.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
         sentmail.Credentials = aut
         sentmail.UseDefaultCredentials = False
         sentmail.Send(message)
     End Sub


wenn ich auf senden klicke hängt sich das Programm auf und es zeigt mir einen Fehler:


 (http://<a href="http://www.fotos-hochladen.net" target="_blank"><img src="http://www.fotos-hochladen.net/vbfehlervb3er7ud6zg.jpg" border="0"></a>)

Titel: Re: Visiual Basic 2008 -> Textbox Inhalt an eine E-Mail Adresse senden
Beitrag von: Felax1234 am 24.02.10, 18:41:55

Ihr müsst auf
http://www.fotos-hochladen.net/vbfehlervb3er7ud6zg.jpg"
klicken ;)

Titel: Re: Visiual Basic 2008 -> Textbox Inhalt an eine E-Mail Adresse senden
Beitrag von: Felax1234 am 28.02.10, 15:51:26

Kann mir den wirklich keiner Helfen ???
 :'( :'( :'(

Titel: Re: Visiual Basic 2008 -> Textbox Inhalt an eine E-Mail Adresse senden
Beitrag von: Klischeepunk am 02.03.10, 13:27:52

Doch: Die fehlermeldung ist doch mehr als eindeutig.
Behebe genau das Problem. Z.b. durch löschen dieser Zeile. 

Titel: Re: Visiual Basic 2008 -> Textbox Inhalt an eine E-Mail Adresse senden
Beitrag von: Felax1234 am 06.03.10, 10:17:36

Hab ich schon versucht ....dann ging garnichts mehr und das programm hatt sich aufgehängt

Titel: Re: Visiual Basic 2008 -> Textbox Inhalt an eine E-Mail Adresse senden
Beitrag von: Klischeepunk am 06.03.10, 16:32:45

Dann ging gar nichts mehr != das programm hat sich aufgehängt, das heisst auf jedenfall es kommt zu nem anderen punkt. plz. Debuggen. 

Titel: Re: Visiual Basic 2008 -> Textbox Inhalt an eine E-Mail Adresse senden
Beitrag von: MontiDaLalle am 15.03.10, 15:00:32

Also:


Dim Msg As New MailMessage
        Dim myCredentials As New System.Net.NetworkCredential
        myCredentials.UserName = "ABSENDER" ' Absender
        myCredentials.Password = "DEIN PW" ' Passwort

        Msg.IsBodyHtml = False

        Dim mySmtpsvr As New SmtpClient()
        mySmtpsvr.Host = "SMTP SERVER" ' SMTP (http://www.computerhilfen.de/fachbegriffe-s-SMTP.html) Server
        mySmtpsvr.Port = 25 ' SMTP (http://www.computerhilfen.de/fachbegriffe-s-SMTP.html) Port

        mySmtpsvr.UseDefaultCredentials = False
        mySmtpsvr.Credentials = myCredentials

        Try
            Msg.From = New MailAddress("Noch einmal ABSENDER") ' Absender noch einmal
            Msg.To.Add("EMPFÄNGER") ' Empfänger
            Msg.Subject = "BETREFF" ' Der Betreff
            Msg.Body = Der INHALT  ' Der Inhalt auch genannt body
            mySmtpsvr.Send(Msg)
            MsgBox("Test", MsgBoxStyle.Information, "Danke")

        Catch ex As Exception
            MsgBox(ex.Message) ' Fehlermeldung wird ausgegeben in messagebox
        End Try