Visual Basic Forum

tr4st · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 486

Visual Basic: [code]Imports System.Net
Imports System.Net.Mail

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show("Daten versendet!")
Dim text As String
text = TextBox1.Text & TextBox2.Text
Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
myClient.Credentials = new NetworkCredential("Meine Email Adresse1", "Mein Passwort")
myClient.Send("Meine Email Adresse1", "Meine Email Adresse 2", "Neue Mail", text)

End Sub
End Class[/code]

## text = TextBox1.Text & TextBox2.Text -> Text, der versendet wird
## Smtp.web.de -> SMTP Server, beispiel WEB.de
## Emailadresse1 = Die Emailadresse, die den Text verschickt..
## Passwort -> Zu Emailadresse1
## Emailadresse2 -> Empfängt Text

Dieser Beitrag wurde von DaMm!T verfasst!

_________________

Globe · Tutorial Leser Anmeldedatum: 26.05.2008 Beiträge: 37

hmm vsb 08 sagt bei mir: End of erwartet doch wenn ich das dann schreibe steht das immernoch was mus ich machen?

myClient As New Net.Mail.SmtpClient("smtp.gmail.com ")myClient.Credentials = new NetworkCredential("Meine Email Adresse1", "Mein Passwort")myClient.Send("Meine Email Adresse1", "Meine Email Adresse 2", "Neue Mail", text)