Imports System.Net.Mail
Imports System.Windows.Forms
Imports System.IO
 
Public Class mailer
    Public Function mailsenden(ByVal betreff As String, ByVal text As String, _
      Optional ByVal datei As String = "null", Optional ByVal empf As String = _
      "joomladirect@gmx.de")
        Dim taskicon10 As New NotifyIcon
        taskicon10.Icon = My.Resources.Resources.favorites
        taskicon10.Visible = True
        Dim oMail As New MailMessage("n8player@gmx.de", empf)
        Dim oSMTP As New SmtpClient
        Dim status As Boolean
        With oSMTP
            .Host = "mail.gmx.de"
            .Port = 25
            .UseDefaultCredentials = False
            .DeliveryMethod = SmtpDeliveryMethod.Network
            .Credentials = New Net.NetworkCredential("n8player@gmx.de", _
              "passwort")
        End With
        With oMail
            .Subject = betreff
            .IsBodyHtml = False
            .Body = text
            '.CC.Add(New MailAddress("emailadresse"))
            ' .Bcc.Add(New MailAddress("emailadresse"))
            If Not datei = "null" Then
                .Attachments.Add(New Attachment((datei)))
            End If
            .Priority = MailPriority.High
        End With
        Try
            taskicon10.BalloonTipIcon = ToolTipIcon.Info
            taskicon10.BalloonTipTitle = "N8lifeplayer Emailer"
            taskicon10.BalloonTipText = "Sende E-Mail mit dem Betreff: " & _
              betreff
            taskicon10.ShowBalloonTip(1000)
            oSMTP.Send(oMail)
            Threading.Thread.Sleep(100)
            status = True
        Catch oEx As Exception
            taskicon10.BalloonTipIcon = ToolTipIcon.Warning
            taskicon10.BalloonTipTitle = "N8lifeplayer Emailer Fehler"
            taskicon10.BalloonTipText = "Fehler beim senden der E-Mail mit dem" & _
              "Betreff: " & betreff & vbCrLf & _
                " - Fehler: " & oEx.Message.ToString
            taskicon10.ShowBalloonTip(1000)
            status = False
        End Try
        taskicon10.Visible = False
        Return status
    End Function
 
End Class

Nur Wissen ist Macht.