Friend Class EMail
    Const _SMPTServer = "x.y.z."
    Const _MailTo = "xxxxx"
    'Const _MailCc = "xxxxx"
    Private _MailFrom As String
    Private _MailSubject = "Auftrag - Projektablage\Ordner anlegen - "
    Private oMail As New MailMessage
 
    Friend Function Send() As Boolean
        With oMail
            .To = _MailTo
             .Cc = _MailCc
            .Subject = _MailSubject
            .From = "xxxxxx"
            .Body = "Auftrag: Projektablage\Ordner\Berechtigungen anlegen." & _
              "Details zum Auftrag siehe Anlage!" & vbCrLf & "Diese Mail wurde" & _
              "automatisch vom Project-Directory-Tool erstellt. Bitte nicht" & _
              "antworten, da diese Mail automatisch erstellt wurde!"
            .Attachments.Add(New _
                            MailAttachment("C:\Temp\Auftrag_MSDAblage.txt"))
        End With
        SmtpMail.SmtpServer = _SMPTServer
        Try
            SmtpMail.Send(oMail)
            Return True
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Email senden", MessageBoxButtons.OK, _
              MessageBoxIcon.Warning)
            Return False
        End Try
    End Function
End Class