Suche VB Code für "e-mail versenden"

[licklake1]

hey,


ich suche jemanden der mir den code schickt, mitdem ich die "TextBox1" und "TextBox2" an meine email senden kann... evt. hat ja jemand den code schon... währe nettwenn derjenige die textboxen gleich passend machen würde, kann das aber auch selbst machen

[Kosic]

Imports System.Net.Mail
Public Class Form1

Sub Abschicken()
        Dim smtpserver As New SmtpClient
        Dim email As New MailMessage
        smtpserver.Credentials = New Net.NetworkCredential("", "Passwort")  AUF GROSS UND KLEINSCHREIBUNG DER E-MAIL UND DES PASSWORTES ACHTEN !
        smtpserver.Port = 25
        smtpserver.Host = "[I]smtp.web.de[/I]"  AUF GROSS UND KLEINSCHREIBUNG ACHTEN !                     wäre für web.de
        email = New MailMessage
        email.From = New MailAddress("")  AUF GROSS UND KLEINSCHREIBUNG ACHTEN !
        email.To.Add("")  AUF GROSS UND KLEINSCHREIBUNG ACHTEN !
        email.Subject = "Email Betreff"
        email.Body = TextBox1.Text & " " & TextBox2.Text & "   " & Me.Text
        smtpserver.Send(email)
    End Sub

Mfg,
Kosic

[reCougar]

Mein Vorposter hat den Code schon gepostet, jedoch musst du aufpassen, das du den richtigen Port und den Server verwendest.

[licklake1]

danke euch