Domino 9 und frühere Versionen > ND6: Entwicklung

Mails im Journal in die Userarchive kopieren

<< < (2/3) > >>

Alperen15:
Die Frage war ja auch ob ihr bereits solche ähnliche Scripts habt oder wo ich die im Forum finde, weil ich nicht weiss wie ich ansetzten soll.

ascabg:
Hallo,

Kann doch eigentlich nicht so schwer sein.

Ein Dokument aus der Journal-Datenbank nehmen, ansehen welche Felder es beinhaltet
und vergleichen welches Feld dem Feld der Memo-Maske entspricht.

Nun Losprogrammieren.

Das was ich nicht genau weiss, ob im Dokument der Journal-Datenbank mit vermerkt ist,
um was fuer ein Dokument es sich handelt. (Memo, Reply, Notice, usw.)
Wenn es mit vermerkt ist, dann wird die ganze Sache doch noch einfacher. (ausser wenn es sich um eine
Notice handelt)


Andreas

smokyly:
Ist es nicht so, dass die Dokumente im Journal verschlüsselt sind?

Was ist denn eigentlich der Zweck dieser Aufgabe?

Driri:
Ja, zumindest wenn man mit der Copy-Methode arbeitet werden die Mails per Standard verschlüsselt. Man kann einige Felder definieren, die nicht verschlüsselt werden und eine abweichende ID zur Verschlüsselung angeben.

Die Verarbeitung der Mails müßte also auf jeden Fall mit einem User erfolgen, der die Mails im Journal entschlüsseln kann.

Alperen15:
Hallo alle zusammen,

Unten habe ich meinen aktuellen Script eingefügt. der Ist nicht ganz fertig ....  ???
Ich Erläutere kurz mal die aktuelle Situation. Die UserArchivmails sind "tot". Deswegen soll ein Agent auf Mail Journaling Datenbank die ganzen Mails lesen und diese dem Userarchiv Maildatenbank verschieben. Die Userarchive setzten sich so zusammen: a_GMuell.nsf zusammen a_ für archiv G (Erster Buchstaben vom Namen) und Muell(die nächsten 5 Buchstaben vom Fam. Namen)

Ich habe eine Ansicht gebaut wo ich die Empfängernamen der Mails sehe, da ist mir aufgefallen, dass Namen unterschiedlich drin stehen z.B. Gerd Mueller, 'Hans_Peter', "Siegfried Maurer" etc....


Sub Initialize
   Dim session As New NotesSession
   Dim oDoc As NotesDocument
   Dim archiveDb As New NotesDatabase( "", "" )
   Dim  oProfilDoc As NotesDocument
   Dim db As NotesDatabase
   Dim oView As NotesView
   Dim collection As NotesViewEntryCollection
   Dim entry As NotesViewEntry
   Dim nAnz As Long
   Dim oD1 As NotesDateTime
   Dim cText As String, cServer As String, cDatabase As String, cError As String
   Dim cProfServer As String
   
   On Error Goto AgentError
   Set db = session.Currentdatabase
   Set oProfilDoc = db.GetProfileDocument("PDAllgemein")
   Set oView = db.GetView("vwKopieUserArchiv")                                         ' *** Ansicht alle eingehende Mails
   Set collection = oView.AllEntries
   Set entry = collection.GetFirstEntry()   
   Set oD1 = New NotesdateTime(Date$)
   
   cServer = "ISP02/Firma/De"
   cProfServer = oProfildoc.GetItemValue("fdPrServer")(0)
   cDatabase = "Applikationen\kural\a_"
   Call archiveDb.Open( cServer , cDatabase )              ' *** Archivdatenbank
   
   ' *** Start Verschiebung Mails nach Username ----> ab hier weiss ich nemme weiter ???   
   While Not(entry Is Nothing)
      On Error Goto LoopError
      Set oDoc = entry.Document
      Call oDoc.CopyToDatabase( archiveDb )                  ' *** Kopiere Doc aus Ansicht in ArchivDB
      oDoc.Remove(True)                                                      ' *** Lösche Doc aus bestehender Datenbank
      nAnz = nAnz + 1      
      Print Cstr(nAnz)
      Goto LoopWeiter
LoopError:
      
      Resume LoopWeiter
LoopWeiter:
      Set entry = collection.GetNextEntry(entry)
   Wend
   
   
   If nAnz = 0  Then               ' *** Wenn keine Dokumente gefunden, keine Verarbeitung
      Goto AllesEnde
   End If  ' *** nAnz = 0   
   
   
   Goto AllesEnde
AgentError:
   
   Resume Next
   
AllesEnde:
   
End Sub

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete