OK... הבנתי
הכרזות ב-Message:
Public sSubject, sFrom, sTO, sBCC, sBody, sDate, sMailID, sRaw, sCC, sError, sMIMEType As String Public POPObject As POP3 Public Headers As Hashtable Public Parts() As MessagePart Public iMimeParts, iSize As Integer Public bMultiPart As Boolean
Message.DoParts:
Function DoParts() As String Dim sMail As String = sRaw Dim i As Integer sMail = Mid(sMail, InStr(sMail, vbCrLf & vbCrLf) + 4) Dim sCT As String Dim aCT aCT = Split(Replace(Headers("Content-Type"), " ", " "), "; ") sCT = aCT(0) Dim aMIME If sCT = "multipart/mixed" Or sCT = "multipart/alternative" Then bMultiPart = True aMIME = Split(sMail, vbCrLf & "--") For i = 1 To UBound(aMIME) - 1 DecodeMIMEPart(aMIME(i - 1), i) Next Else DecodeMIMEPart(sMail, 0) End If End Function
Message.DecodeMimePart:
Function DecodeMIMEPart(ByVal sMail As String, ByVal iID As Integer) As String Dim pPart As New MessagePart() Dim sCoding, sType As String Dim sTemp As String pPart.sRaw = sMail pPart.iSize = Len(sMail) Dim iStart, iEnd As Integer If bMultiPart = True Then iStart = InStr(sMail, vbCrLf) iEnd = InStr(iStart, sMail, vbCrLf & vbCrLf) If iEnd = 0 Then iEnd = iStart sTemp = Mid(sMail, iStart + 2, iEnd - iStart) Dim ht As Hashtable = POPObject.CreateHeaderHashtable(sTemp) sType = ht("Content-Type") sCoding = ht("Content-Transfer-Encoding") If iEnd > 0 Then sMail = Mid(sMail, iEnd + 4) Else sCoding = Headers("Content-Transfer-Encoding") End If pPart.sData = DecodeMailMessage(sMail, sType, "", sCoding) Parts(iID) = New MessagePart() Parts(iID) = pPart iMimeParts = iID End Function
