Function GetMultipartMime (mime As NotesMIMEEntity) As String Dim child As NotesMIMEEntity Dim mText As String Dim boundary As String Dim crlf As String crlf = Chr(13) & Chr(10) mText = mText & mime.Headers & crlf & crlf boundary = GetBoundary(mime.Headers) mText = mText & mime.ContentAsText & crlf Set child = mime.GetFirstChildEntity While Not(child Is Nothing) mText = mText & boundary & crlf mText = mText & GetMultipartMime(child) Set child = child.GetNextSibling Wend If (Len(boundary) > 0) Then mText = mText & boundary & "--" & crlf End If GetMultipartMime = mText End Function
Content-Type: multipart/related; boundary="=_related 004D5E07C12574DC_=" This is a multipart message in MIME format. --=_related 004D5E07C12574DC_= Content-Type: text/html; charset="ISO-8859-1" Content-Transfer-Encoding: quoted-printable <br><tt><font size=3D2> =DC =D6 =C4 =FC =F6 =E4</font></tt> <br><img src=3Dcid:=5F1=5F05FE4A8405FE469C004D5E06C12574DC> --=_related 004D5E07C12574DC_= Content-Type: image/gif Content-ID: <_1_05FE4A8405FE469C004D5E06C12574DC> Content-Transfer-Encoding: base64 . . .
Ü Ö Ä ü ö ä
=DC =D6 =C4 =FC =F6 =E4
--=_related 004D5E07C12574DC_=Content-Type: text/html; charset="ISO-8859-1"Content-Transfer-Encoding: quoted-printable
Content-Type: multipart/related; boundary="=_related 00348486C12574E3_=" This is a multipart message in MIME format. --=_related 00348486C12574E3_= Content-Type: text/html; charset="US-ASCII" <font size=2 face="sans-serif">erstmal nur Text.....xxdd</font> <br><img src=cid:_1_071BFD58071BF99C00348486C12574E3> <br><font size=2 face="sans-serif">und Text</font> <br><font size=2 face="sans-serif">sdsdsws</font> --=_related 00348486C12574E3_= Content-Type: image/gif Content-ID: <_1_071BFD58071BF99C00348486C12574E3> GIF89a
<img src=cid:_1_071BFD58071BF99C00348486C12574E3>
<img src="/xxx/xxxx.nsf/770de9d75323180ac12574750035d0eb/4445168c4f3e1350c12574e3002b40f4/Beschreibung/0.AC?OpenElement&FieldElemFormat=gif"