'SimpleMIME: Const TYPE_MIME_PART = 25 Const ITEM_SIGN_SEAL = &H0003 Declare Function NSFItemAppend Lib "nnotes" (Byval noteHandle As Long, Byval iFlags As Integer,Byval iName As Lmbcs String,_ Byval iNameLength As Integer, Byval iType As Integer, Byval iValuePointer As Long, Byval iValueLength As Long) As Integer Declare Function OSMemAlloc Lib "nnotes" (Byval T As Integer, Byval S As Long, hM As Long) As Integer Declare Function OSMemFree Lib "nnotes" (Byval hM As Long) As Integer Declare Function OSLockObject Lib "nnotes" (Byval H As Long) As Long Declare Sub OSUnlockObject Lib "nnotes" (Byval H As Long) Declare Sub Poke Lib "kernel32" Alias "RtlMoveMemory" (Byval P As Long, D As Any, Byval N As Long) Declare Sub PokeString Lib "kernel32" Alias "RtlMoveMemory" (Byval P As Long, Byval D As String, Byval N As Long) Type someType unknown1 As Integer unknown2 As Integer unknown3 As Integer unknown4 As Integer length As Integer unknown5 As Integer unknown6 As Integer unknown7 As Integer unknown8 As Integer unknown9 As Integer End Type Public Function addMIMEitem( note As notesdocument, Byval itemname As String, Byval itemvalue As String ) Dim memptr As Long Dim memlen As Long Dim memhandle As Long Dim contenttype As String Dim fldheader As sometype Dim hlength As Long Dim clength As Long contenttype = |Content-Type: text/html; charset="us-ascii"| + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) itemvalue = contenttype + itemvalue hlength = Len(fldheader) clength = Len(itemvalue) memlen = hlength + clength 'set the mystery members fldheader.unknown1 = 2 fldheader.unknown2 = 2 fldheader.unknown4 = 2 fldheader.length = Len(itemvalue) fldheader.unknown6 = 47 'remove existing item Call note.removeitem(itemname) note.MIME_Version = "1.0" rc = OSMemAlloc( 0, memLen, memHandle ) memPtr = OSLockObject(memHandle) Poke memPtr, fldheader.unknown1, hlength PokeString memPtr + hlength, itemvalue, clength rc = NSFItemAppend( note.handle, ITEM_SIGN_SEAL , itemname, Len(itemname), TYPE_MIME_PART, memPtr, memLen) OSUnlockObject memHandle OSMemFree memHandle End Function