oHeader = .HeaderInfo(i)
                                mDatumDatei = Replace(Now.ToString("G"), " ", _
                                  "")
                                mDatumDatei = Replace(mDatumDatei, ".", "")
                                mDatumDatei = Replace(mDatumDatei, ":", "")
                                If mAlleMails = True Then
                                    sTempFile = mNetzwerkpfad & "eMail\" & _
                                      mDatumDatei & "_" & i.ToString & ".txt"
                                Else
                                    sTempFile = _
                                      "C:\Programme\Gastrodesk\eMail\" & _
                                      mDatumDatei & "_" & i.ToString & ".txt"
                                End If
                                With oHeader
                                    meMailListItem = lveMail.Items.Add("", 0)
                                    meMailListItem.SubItems.Add(.MailFrom)
                                    meMailListItem.SubItems.Add(aleMail( _
                                      meMailzeile + 2))
                                    meMailListItem.SubItems.Add(.Subject)
                                    meMailListItem.SubItems.Add(.MailDate & " " _
                                      & .MailTime)
                                    If .Attachments = True Then
                                        meMailListItem.SubItems.Add("Anhang")
                                        aleMailEinAusgang.Add("Ungeöffnet|" & _
                                          .MailFrom & "|" & aleMail(meMailzeile _
                                          + 2) & "|" & .Subject & "|" & _
                                          .MailDate & " " & .MailTime & "|" & _
                                          sTempFile & "|Anhang")
                                    Else
                                        aleMailEinAusgang.Add("Ungeöffnet|" & _
                                          .MailFrom & "|" & aleMail(meMailzeile _
                                          + 2) & "|" & .Subject & "|" & _
                                          .MailDate & " " & .MailTime & "|" & _
                                          sTempFile & "|")
                                    End If
                                End With
                                If .FetchMail(i, sTempFile) = True Then 'Datei 
                                ' speichern
                                    .DeleteMail(i)

Dim sHTML As String = ""
                            If .Message.MessageCount > 0 Then
                                For i = 0 To .Message.MessageCount - 1
                                    If .Message.MessageType(i) = "html" Then
                                        sHTML = .Message.Message(i)
                                    ElseIf .Message.MessageType(i) = "plain" _
                                      Then
                                        rtbeMail.Text = .Message.Message(i)
 
                                    End If
                                Next
                                If sHTML <> "" Then
                                    Dim oStream As New IO.StreamWriter( _
                                      "C:\Programme\Gastrodesk\Temp\mail.htm")
                                    oStream.Write(sHTML)
                                    oStream.Close()
                                    wbeMail.Navigate( _
                                      "C:\Programme\Gastrodesk\Temp\mail.htm")
                                    rbHTML.Checked = True
                                End If
                            End If

Mehr Fragen als Wissen....und Spa? daran