Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

"Externer" OoO-Agent

<< < (3/3)

William Wallace:
Ja, Janka hat recht. Habe Deinen Weg als Leitfaden genommen, dass ganze aber per Script gelöst. So muss man nicht mehr in den Designer wechseln... Ansonsten scheint es zu funktionieren.

Ich bekomme zwar bei Profileaufruf die Meldung: Nur der Mailbesitzer kann hier editieren und aktivieren - aber ich kann es trotzdem. Der OoO Agent läuft nach der Aktivierung auch ordentlich an.

Hoffe diese Lösung findet bei uns im Hause auf Zustimmung und Genehmigung!
 ;)

Dake und Gruß,
William

flex_brau:
hallo william wallace,

wir haben die gleiche anforderung.
kannst du mir bitte das script zukommen lassen, da über den designer es umstänglich ist.

danke

mfg
flex

William Wallace:
Hier für alle der Code, den wir verwenden:

Sub Initialize
   Dim session As New NotesSession   
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim dc As NotesDocumentCollection
   Dim Mailfile As NotesItem   
   Dim Mail_Info As NotesItem
   
   
   Set db = session.CurrentDatabase
   Set view = db.GetView("Abwesenheitsnachricht")
   Set dc = view.GetAllDocumentsByKey("1")
   Set doc = dc.GetFirstDocument()
   
   If dc Is Nothing Then
      Exit Sub
   End If
   
   While Not doc Is Nothing
      
      ' Das Mailfile mit der Abwesenheit
      Set Mailfile = doc.GetFirstItem( "Mailfile" )
      
      ' Mailfile öffnen
      Dim maildb As New NotesDatabase( "Barcelona", "plan.nsf" )
      Dim maildc As NotesDocumentCollection
      Dim mailview As NotesView      
      Dim docmail As NotesDocument
      Set mailview = maildb.GetView("$Inbox")
      Set maildc = db.UnprocessedDocuments
      Set docmail = maildc.GetFirstDocument
      recipients1 = docmail.GetItemValue("From")
      recipients2 = doc.GetItemValue("sendenan")
      If maildc Is Nothing Then
         Exit Sub
      End If
      While Not docmail Is Nothing
         Dim mail As NotesDocument
         Dim rtitem As NotesRichTextItem
         Set maildoc = New NotesDocument(db)
         maildoc.Form = "Memo"
         maildoc.Subject = "Abwesenheitsnachricht / Out Of Office"
         Set rtitem = New NotesRichTextItem( maildoc, "Body" )
         Call rtitem.AppendText(doc.Mail_Text)
         If recipients1(0) <> "" Then
            maildoc.principal = "BOGE EDV"
            Call maildoc.Send( False, recipients1 )      
            Call maildoc.Send( False, recipients2 )      
         End If         
         Set docmail = maildc.GetNextDocument(docmail)
      Wend
      
      Set doc = dc.GetNextDocument(doc)
   Wend
   
End Sub

Navigation

[0] Themen-Index

[*] Vorherige Sete