Imports System.Net
 
Public Class frmSecureMail
 
    Private pfad As String
 
    Private Sub frmSecureMail_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        With OpenFileDialog1
            .DefaultExt = "PDF"
            .Filter = "PDF-Dateien (*.pdf)|*.pdf|Alle Dateien (*.*)|*.*"
            .CheckFileExists = True
            .InitialDirectory = Application.ExecutablePath
            .Title = "Anlage hinzufügen!"
        End With
    End Sub
 
 
    Private Sub btnSenden_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnSenden.Click
 
        Dim mail As New System.Net.Mail.SmtpClient()
 
        Dim msg As New System.Net.Mail.MailMessage("absender@web.de", _
          txtEmpfänger.Text)
        msg.Subject = txtBetreff.Text
        msg.Body = rtbNachricht.Text
        mail.Credentials = New NetworkCredential("Benutzername", "Password")
        mail.Host = "smtp.web.de"
 
        mail.Send(msg)
 
    End Sub
 
 
    Private Sub btnAnlage_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnAnlage.Click
        If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK _
        Then
            pfad = OpenFileDialog1.FileName
        End If
    End Sub
End Class