'1 prozedur
dim strtmp as string
sevpop1.FetchMail 1, App.Path & "\temp.txt"
strTmp = getFileText(App.Path & "\temp.txt") 
Del App.Path & "\temp.txt"
 
srec.fields("Mail") = strtmp
 
'2. prozedur
Dim oMessage As New sevMailActiveX.sevMail
 
oMessage.OpenMailString srec.Fields("Mail")
For i = 0 To oMessage.Attachment.AttachCount - 1
        oMessage.Attachment.Save App.Path & "\" & oMessage.Attachment.Filename( _
          i), True, , i
Next i