''' <summary>
''' ExtendedMail-Klasse erweiterte die MailMessage-Klasse um eine Methode zum 
' Speichern der Email.
''' </summary>
''' <remarks></remarks>
Public Class ExtendedMail
    Inherits System.Net.Mail.MailMessage
 
    ''' <summary>
    ''' Speichert die Email im angegebenen Pfad im .eml-Format
    ''' </summary>
    ''' <param name="Path">Das Verzeichnis in dem die Email gespeichert 
    ' werden soll.</param>
    ''' <remarks></remarks>
    Public Function Save(ByVal Path As String) As Boolean
 
        Try
            'Erstelle SmtpClient-Instanz. Die Angabe des Hosts ist nicht 
            ' erforderlich.
            Dim smtp As New System.Net.Mail.SmtpClient
 
            'Auslieferungsmethode
            smtp.DeliveryMethod = _
              Net.Mail.SmtpDeliveryMethod.SpecifiedPickupDirectory
 
            'Ausgabepfad
            smtp.PickupDirectoryLocation = Path
 
            'Email "speichern"
            smtp.Send(Me)
 
            Return True
 
        Catch ex As Exception
 
            Return False
 
        End Try
 
    End Function
 
End Class