Dim h As HeaderInfo
Dim anz As Long
Dim kbneu As Long
Dim colMails As New Collection
 
anz = sevPOP1.NewMailsAvailable(kbneu)
 
For i = 1 To anz
 
  Set h = sevPOP1.HeaderInfo(i)
 
  Dim m As new cMail 'eigene Mail-Klasse
 
  Set m.header = h 'header ist vom Typ HeaderInfo in der Klasse
 
  colMails.Add m
 
Next i
 
SetIsSpam colMails '<-- Sub in der der Fehler autritt

Private Sub SetIsSpam(colMails As Collection)
 
  Dim m As cMail
 
  On Error Goto error_handler
 
  For i = 1 to colMails.Count
 
    Set m = colMails(i)
 
    If m.header.Subject = "böses Wort" Then m.IsSpam = True '<-- Hier tritt der 
    ' FEHLER auf
 
  Next i
 
  Exit Sub
 
error_handler:
 
  MsgBox Err.Description
 
End Sub

Private Function KopiereHeaderInfo(h As HeaderInfo) As HeaderInfo
 
    Dim hneu As HeaderInfo
 
    hneu.Attachments = h.Attachments
    hneu.cc = h.cc
    hneu.ContentDisposition = h.ContentDisposition
    hneu.ContentEncoding = h.ContentEncoding
    hneu.ContentType = h.ContentType
    hneu.DeliveredTo = h.DeliveredTo
    hneu.DeliveryDate = h.DeliveryDate
    hneu.Header = h.Header
    hneu.id = h.id
    hneu.MailDate = h.MailDate
    hneu.MailFrom = h.MailFrom
    hneu.MailTime = h.MailTime
    hneu.MailTo = h.MailTo
    hneu.MessageID = h.MessageID
    hneu.MimeVersion = h.MimeVersion
    hneu.NotificationTo = h.NotificationTo
    hneu.Organization = h.Organization
    hneu.Priority = h.Priority
    hneu.RecieveDate = h.RecieveDate
    hneu.RecieveTime = h.RecieveTime
    hneu.ReplyTo = h.ReplyTo
    hneu.ReturnPath = h.ReturnPath
    hneu.Size = h.Size
    hneu.Subject = h.Subject
    hneu.XMailer = h.XMailer
    hneu.XMSPriority = h.XMSPriority
    hneu.XPriority = h.XPriority
 
    Set KopiereHeaderInfo = hneu
 
End Function

  Set h = sevPOP1.HeaderInfo(i)

  Set h = KopiereHeaderInfo(sevPOP1.HeaderInfo(i))