Tipp 0062 E-Mail via SMTP versenden
Autor/Einsender:
Datum:
  Christoph Kellner
11.11.2004
Entwicklungsumgebung:   VB.Net 2003
Framework:   1.1
Um eine E-Mail mit Hilfe der Klasse MailMessage zu versenden, muss nur der eigene SMTP-Server angepasst werden.
 
Imports System
Imports System.Web
Imports System.Net
Imports System.Web.Mail

Public Class Mail
  Inherits System.Windows.Forms.Form
Vom Windows Form Designer generierter Code
  Private Sub btnSenden_Click(ByVal sender As Object, _
          ByVal e As System.EventArgs) Handles btnSenden.Click
    Dim oMail As New MailMessage
    With oMail
      .To = txtEmpfänger.Text
      .Subject = txtBetreff.Text
      .Body = txtNachricht.Text
    End With
    SmtpMail.SmtpServer = txtSmtp.text
    Try
      SmtpMail.Send(oMail)
      MessageBox.Show("Nachricht wurde verschickt.", _
             "Erfolgreich abgeschickt!", _
             MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As Exception
      MessageBox.Show("FEHLER: " & ex.Message, "Error", _
             MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    End Try
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click
    Me.Close()
  End Sub
End Class
 
Weitere Links zum Thema
E-Mail-Adresse prüfen und E-Mail anzeigen

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (6,7 kB) Downloads bisher: [ 1635 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Montag, 23. Januar 2012