daheads blog²

Ich habe gestern zufällig einen Bericht eines geplagten Admins über die Performance von Lotus Notes entdeckt, der folgende Passage enthält:

Der Umfang von Lotes NOtes ist gewaltig, deswegen benutzt der eMail-Client auch gleich 2/3 des zur Verfügung stehenden Hauptspeichers. Mit über 32 MB ist Notes da echt nicht zimperlich.

Sicher hat ein Gamer PC heute 256 - 512 MB
läuft der firmenrechner so schon unter Win 2000 mühsam genug mit seinen 128 MB und knapp partitionierter Platt
e ist das System unglaublich schnell dicht.

Den vollständigen Artikel von 2002 gibts hier.

Das war also 2002, und wIe sieht es heute aus?

Ohne jetzt zu sehr auf Lotus Notes zu schimpfen, kann man zumindest festhalten, dass es heute mit 32 MB RAM wohl leider nicht mehr getan ist ;-)

Herald ist ein kleines Tool für Apple's Mail Programm. Herald zeigt eingehende E-Mails in einem netten Vorschaufenster auf dem Desktop an. Der Autor Erik Hinterbichler vertreibt das Programm kostenlos.

Das einzig blöde ist, dass es Mac OS X 10.6 oder höher voraussetzt, aber das kostet ja nur 29,- Euro ;-)

Um in VB .NET E-Mails zu versenden, verwendet man am besten den Namespace Net.Mail.

Leider gibt es in VB .NET allerdings noch keine Möglichkeit, E-Mails zu empfangen um beispielsweise die Dateianhänge abzuspeichern.

Um dieses Problem zu beseitigen, zeige ich im Folgenden, wie man mit Hilfe von Indy eine E-Mail von einem POP3 Postfach herunterlädt und eventuelle Anhänge der E-Mails auf dem Dateisystem abspeichert.

Wichtig, zur Verwendung von Indy muss als Referenz die Indy.Sockets und Mono.Security DLL in das Projekt eingebunden werden.

Zu erst einmal eine kleine Hilfsklasse, in der wir die Konten-Informationen unseres POP3 Kontos ablegen:

Public Class MailAccount
 
  ''' <summary>
  ''' Hostname des E-Mail Servers
  ''' </summary>
  ''' <remarks></remarks>
  Public Host As String
 
  ''' <summary>
  ''' Benutzername des E-Mail Kontos
  ''' </summary>
  ''' <remarks></remarks>
  Public Username As String
 
  ''' <summary>
  ''' Benutzer-Passwort des E-Mail Kontos
  ''' </summary>
  ''' <remarks></remarks>
  Public Password As String
 
End Class

Nun der interessantere Teil. Die Methode SaveAllAttachments speichert vom übergebenen Mailkonto alle Anhänge aller E-Mails temporär auf der Festplatte lokal ab.

Hierfür verbinden wir uns erst mit dem Mailkonto, ermitteln dann die Menge aller E-Mails auf dem Postfach und iterieren dann durch jede einzelne E-Mail.

Eine E-Mail besteht aus mehreren sogeannten Messageparts. Ist ein Messagepart vom Typ Octet-Stream, handelt es sich um einen Dateianhang, den wir ja abspeichern wollen.

Public Class IndyTools
 
  ''' <summary>
  ''' Speichert alle Dateianhänge des Postfachs aAccount im Servicevertrags-Verzeichnis des jeweils ermittelten Servicevertrags
  ''' </summary>
  ''' <param name="aAccount">Postfach Konto</param>
  ''' <remarks></remarks>
  Public Sub SaveAllAttachments(ByVal aAccount As MailAccount)
 
    Dim tempfilename As String
    Dim IsAttachment As Boolean
 
    Dim o As NewIndy.Sockets.TIdNetNativeComponent
    Dim p As NewIndy.Sockets.POP3(o)
    Dim att As Indy.Sockets.Attachment
 
    ' Verbindungsdaten an Indy übergeben
    With p
      .Host = aAccount.Host
      .Username = aAccount.Username
      .Password = aAccount.Password
    End With
 
    Try
 
      Try
        ' Verbinden und Mailmenge feststellen
        p.Connect()
 
        ' Anzahl er Mails auf dem Postfach ermitteln
        Dim Amount As Integer = p.CheckMessages
 
        ' Für alle Mails
        For i As Integer = 1 To Amount
 
          ' Mail abholen
          Dim msg As New Indy.Sockets.Message
          p.Retrieve(i, msg)
 
          ' Für jeden Messagepart
          For x As Integer = 1 To msg.MessageParts.Count - 1
 
            ' Ist dieser Messagepart ein Anhang?
            IsAttachment = msg.MessageParts.Items(x).ContentType = "application/octet-stream"
 
            If IsAttachment Then
 
              Try
                ' Anhang holen
                att = msg.MessageParts.Items(x)
 
                ' Anhang temporär speichern
                tempfilename = System.IO.Path.GetTempFileName
                att.SaveToFile(tempfilename)
 
              Catchex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical)
              End Try
 
            End If
 
          Next
 
        Next
 
      Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical)
      End Try
 
    Finally
      p.Disconnect()
      p.Dispose()
    End Try
 
  End Sub
 
End Class

Hier noch ein Modul mit einem kleinen Beispielaufruf obiger Klassen:

Module modTest
 
  Sub Main()
    Dim it As New IndyTools
    Dim ac As New MailAccount
 
    ac.Username = "frank.miller@gmx.net"
    ac.Password = "BestMovie300"
    ac.Host = "pop.gmx.de"
 
    it.SaveAllAttachments(ac)
  End Sub
 
End Module

Wenn man von einem Kollegen gefragt wird, weshalb die E-Mail, die man gerade eben erhalten hat, plötzlich nicht mehr auffindbar ist, sollte man erstmal vorsichtig mit übereilten Vermutungen sein.

Klar, man prüft, ob die fragliche E-Mail nicht versehentlich in einen anderen Ordner verschoben oder als gelesen markiert wurde und das Mail Programm nur die ungelesenen Mails anzeigt.

Aber dass die Mail dann banalerweise schlicht und einfach gelöscht wurde, das ist schon etwas zu simpel um gleich drauf zu kommen.

Wobei, wenn man überlegt, dass die Entfernen und die Einfügen Taste (welche in Lotus Notes für das Markieren von E-Mails (gelesen/ungelesen) zuständig ist) ziemlich nah beieinander sind, dann wundert auch das nicht mehr.

Seit gestern gibt es den ersten Release Candidate des neuen Mozilla Thunderbird offiziell zum Download. Was sich seit der letzten Beta so alles getan hat, kann man in den Release Notes bestaunen.

Hier eine kurze Zusammenfassung:

• Mails können mit individuellen Tags versehen werden
• Vor und Zurück Schaltflächen ermöglichen eine datum-basierte Navigation durch E-Mails
• Neue Ordner-Ansicht: Ungelesene Mails, Favoriten, Letzte Ordner