S/Mime signierte Mails -> Signatur entfernen

[gdieter]

Hallo zusammen,
IBM hat es scheinbar nicht eilig mit folgendem Problem, welches Blackberry OS10 Geräte und Smime signierte Mails angeht:
http://www-10.lotus.com/ldd/dominowiki.nsf/dx/Traveler_SslaMIME_signed_non-encrypted_mails_cannot_be_opened_on_BlackBerry_10.2.x_devices
Ich versuche nun einen Workaround zu bauen, indem ich das SMime zertifikat "kaputt" mache. Ein wenig LotusScript hat mir schonmal geholfen
Sub Initialize
   Dim session As NotesSession
   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim filename As String
   Dim mime As NotesMIMEEntity
   Dim header As NotesMIMEHeader
   Dim pubs As Boolean
   Set session = New NotesSession
   Set db = session.CurrentDatabase
   Set dc = db.Unprocesseddocuments
   Set doc = dc.GetFirstDocument
      Dim attachment As Variant
      Dim fileCount As Integer
      Dim path As String
      fileCount = 0
      If doc.Hasembedded Then
         Set attachment = doc.GetFirstItem("Body")
         If ( attachment.Type = RICHTEXT ) Then
            If doc.Hasembedded Then
            ForAll o In attachment.EmbeddedObjects
               If ( o.Type = EMBED_ATTACHMENT ) Then
                  fileCount = fileCount + 1
                  If UCase(Right(o.Name,3))="P7S" Then
                     Call o.Remove
                     Call doc.Save(True, False)
                  End If
               End If
            End ForAll
            End If
      Call doc.Save(True, False)
      End If
         End If
      End If


      Set doc = dc.GetNextDocument(doc)
   Wend

End Sub

Leider konvertiert dabei Notes die ganze Mail in Richtext. Somit kommt dann im Postfach eine C.HTM an, aufgrund einer alten Notes.ini Einstellung bei uns.
Ich würde gerne einfach nur das Zertifikat entfernen ohne die Mail zu konvertieren. Das ganze auf MIME Variante gebaut funktioniert aber leider nicht:
Sub Initialize
   Dim session As NotesSession
   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim filename As String
   Dim mime As NotesMIMEEntity
   Dim header As NotesMIMEHeader
   Dim pubs As Boolean
   Set session = New NotesSession
   Set db = session.CurrentDatabase
   Set dc = db.Unprocesseddocuments
   Set doc = dc.GetFirstDocument
   session.Convertmime = False
   While Not (doc Is Nothing)
      Dim attachment As Variant
      Set mime = doc.GetMIMEEntity
      While Not mime Is Nothing
         Set header = mime.GetNthHeader("Content-Disposition")
         If (Not header Is Nothing) Then
            If (header.GetHeaderVal(True) = "attachment") Then
               filename = header.GetParamVal("filename")
               MsgBox(Left(Right(filename,4),3))
               If UCase(Left(Right(filename,4),3))="P7S" Then
                  pubs=header.Setparamval("filename", {"mimecert.bak"})
                  pubs=doc.Save(True,False)
               End If
            End If
            
         End If
         Set mime = mime.GetNextEntity(SEARCH_DEPTH)
      Wend
      Set doc = dc.GetNextDocument(doc)
   Wend
   session.ConvertMime = True   
End Sub

Hat jemand von euch noch eine Idee wie man ggf. die eigenschaften von "issigned" bearbeiten kann?

Danke und Gruß

[m3]

Woher weißt Du, dass es IBM nicht eilig hat damit? Hast Du schon einen PMR dazu aufgemacht, dass IBM auch weiß, dass Du (und andere) dieses Feature wollen?