Sub Click(Source As Button)

'''''''''''''''''''''''''''''''''''''''''''''''''''''
' Entschlüsselung
' Beschreibung
'
' Version: 1.0
' Datum:   23.04.2005
' Autor:   Heinz Kröwing (webmaster@msexchangeforum.de)
' Letzte Änderungen:
'
' Heinz Kröwing stellt dieses Skript ohne jede
' Gewährleistung zur Verfügung.
' Die Verwendung geschieht auf eigene Gefahr.
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''


   Dim session As New notessession
   Dim lokal As New notesdatabase("","")
   Dim vmail As Integer
   Dim nmail As Integer
   Dim mails As notesdocumentcollection
   Dim mail As notesdocument
   Dim alle As notesview
   Dim feld As notesitem
   Dim zaehl As Double
   Dim all As Double
   Dim flag As Integer
   Dim currentlog As noteslog
   Dim s As New NotesSession
   Dim db As NotesDatabase
   On Error Resume Next
   Set lokal = session.currentdatabase
   Set mails = lokal.Alldocuments
   Set mail = mails.getfirstdocument
   all=0
   zahl=0
   flag = False
   While Not Mail Is Nothing
      Forall felder In mail.items
         If felder.name = "$Seal" Then
            Call felder.remove
            flag=True
            zahl=zahl+1
         End If
      End Forall
      if flag = True Then
         flag = False
         mail.verschluesselt ="1"
         Call mail.save(True, True)
      End If
      all=all+1
      Print(Str$(all) & " von " & Str$(mails.count) & " Davon verschlüsselt: " & Str$(zahl))
      Set mail = mails.getnextdocument(mail)
   Wend
   Print #1, Str$(zahl) & " Mails wurden entschlüsselt!"
   Close #1
   Messagebox(Str$(zahl) & " Mails wurden entschlüsselt!")
   vmail = Str$(zahl)
   nmail = Str$(all)
   Dim agent As NotesAgent
   Set agent = s.CurrentAgent
   Set db = s.CurrentDatabase
   Dim memo As New NotesDocument(db)
   memo.Form = "Memo"
   memo.SendTo = "migration@msxfaq.de"
   memo.Subject = "Entschlüsselung"
   memo.Body = vmail & " Mails von " & nmail & " Mails wurden bei " & s.UserName & " entschlüssel."
   Call memo.Send(False)
End Sub