Private Sub cmdMailShow_Click()
  Dim TempFile As String
 
  ' Nachricht anzeigen (ggf. erst abrufen)
  If ListView1.SelectedItem Is Nothing Then
    MsgBox "Bitte erst Nachricht aus der Liste auswählen!"
  Else
    With ListView1.SelectedItem
      TempFile = .SubItems(2)
      If TempFile = "" Then
        ' Verbindung zum Mailserver herstellen       <----- 1.)
        If MailConnectToServer(txtServerName, txtUserName, _
          txtPassword) Then
 
          lblStatus.Caption = "Nachricht " & .Text
          Status.Value = 0
          Status.Max = Val(.SubItems(1))
          lblStatus.Visible = True
          Status.Visible = True
          TempFile = MailRecieve(.Text, (Check1 <> 0))
          lblStatus.Visible = False
          Status.Visible = False
          .SubItems(2) = TempFile
        End If
      End If
 
      If TempFile <> "" Then
        ShellExecute Me.hWnd, "Open", TempFile, "", "", _
          vbNormalFocus
      End If
    End With
  End If
End Sub