Domino 9 und frühere Versionen > ND7: Entwicklung

Mails nach multiblen Empfänger auswerten

<< < (3/3)

pur_berger:
Hm - ich versuchs mal anders:

- Wenn ich 500 Usern ein Mail mit 1 MB schicke oder 500 Formulare in einer Datenbank habe mit ja 1 MB macht schon einen Unterschied (in der größe der Datenbank). Deswegen versuch' ich gerade ob ich das mit zwei Forms hinbekomme (also nur einmal das Handout und 500 die Lesebstätigung - quasi)

- Zwingen oder bitten - es geht den Chefs darum das die User die Policy (im ersten Schritt mal)  zur Kentniss nehmen müssen. Und nicht können - irgend wann mal - vielleicht. Verstehst Du was ich meine. Und wie wir alle aus diversen Surveys wissen liegt die Beteiligung normalerweise bei ~20%. Und wenn es darum geht dem User Einschränkungen aufzuerlegen (Policy zum Beipiel) wird diese stark gegen Null gehen.

WernerMo:
Hallo,

das ist doch schon mal ein Ansatz:


--- Zitat von: pur_berger am 20.06.08 - 11:43:12 ---Deswegen versuch' ich gerade ob ich das mit zwei Forms hinbekomme (also nur einmal das Handout und 500 die Lesebstätigung - quasi)
--- Ende Zitat ---

Aber der läßt sich doch mit der Datenbanklösung noch viel besser verwirklichen.

Mit dem Zwang zur Teilnahme hast Du mich jetzt neugierig gemacht, wie bekommst Du das bei Deiner Mail methode hin?

Die einzige Methode die ich kenne, ist bei uns in einigen solchen Datenbanken verwirklicht:
1. wer nicht geantwortet hat (und nicht krank oder Urlaub hat) bekommt jede Nacht (ausser Wochenende) eine Mail mit der erneuten Aufforderung.
2. ab dem dritten Tag bekommt der direkte Vorgesetzte eine Liste der "ausstehenden" Antworten, mit der Bitte, sich darum zu kümmern.
3. z.T gehen diese "Abteilungsmails" als Kopie auch an die Konzernleitung.

Geht aber nur in (zentralen) Datenbanken mit täglichem Agenten.

Bin schon neugierig auf Deine Methode, denn man lernt ja nie aus.

Gruß Werner

MadMetzger:
Quintessenz aus Werners Post: Den Zwang kann man nicht rein technisch lösen, da muss man auch etwas organisatorisch regeln und das am besten technisch unterstützen, wie die "Offenen"-Liste für den "Kümmerer"...

pur_berger:
Jep - das stimmt - ist mit Sicherheit auch ein organsatorisches Problem ...

Der "Zwang" geht recht simpel:

- Ich geh davon aus das User unter bestimmten Gesichtspunkten eine Mail zumindest mal öffnen (kennen wir ja alle aus Spam)
- Hat er es mal offen - hab ich Ihn. Jetzt greifen folgende Events:

Im PostOpen:

Sub Postopen(Source As Notesuidocument)
   Dim doc As NotesDocument
   Set doc = Source.Document
   Call doc.ReplaceItemValue( "ALLStatus",0)
   Call doc.Save( True, True )
End Sub

Im QuerySave:

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
   Dim workspace As New NotesUIWorkspace
   Dim doc As NotesUIDocument
   Dim uidoc As NotesUIDocument
   
   Set doc = workspace.CurrentDocument
   Set uidoc = workspace.CurrentDocument
   
   If doc.FieldGetText( "Z_Status" ) = "" And doc.FieldGetText( "ALLStatus" ) = "0" Then
      Messagebox( "*** Please Note - You need to Accept or Decline the Handout!!! ***" ), 0 + 16
      Continue = False
   End If
   
   If doc.FieldGetText( "AppProcessed" ) <> "Form Processed - Thank You" And doc.FieldGetText( "ALLStatus" ) = "0" Then
      Messagebox( "*** Use Submit and Send Back to ISG to Close ***" ), 0 + 16
      Continue = False
   End If
   
End Sub


Und der Button mit dem ich das ganze durchführen lasse:

ub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = workspace.CurrentDocument
   
   Dim WarningMessage As String
   Dim YesOrNo As Integer
   
   If uidoc.FieldGetText( "Z_Status" ) = ""  And uidoc.FieldGetText( "Hide") ="Yes" Then
      Messagebox( "*** Please Accept or Decline First! ***" ), 0 + 16
      Continue = False
      Exit Sub
   End If
   
   If uidoc.FieldGetText( "Z_Status" ) = "Handout has been declined by " And uidoc.FieldGetText( "CMRemarks" ) = "" Then
      Messagebox( "*** You have to provide a Reason for Declination ***" ), 0 + 16
      Call uidoc.GotoField( "CMRemarks" )
      Continue = False
      Exit Sub
   End If
   
   Dim doc As NotesDocument
   Dim item As NotesItem
   Set doc = uidoc.Document
   
   Set item=doc.ReplaceItemValue( "From",uidoc.FieldGetText( "SendTo" ))
   Set item=doc.ReplaceItemValue( "SendTo",uidoc.FieldGetText( "Principal" ))
   Set item=doc.ReplaceItemValue( "Principal","")
   Set item=doc.ReplaceItemValue( "Subject",uidoc.FieldGetText( "Z_Status1"))
   Set item=doc.ReplaceItemValue( "AppProcessed","Form Processed - Thank You")
   Call uidoc.Send
   
   Set item=doc.ReplaceItemValue( "From",uidoc.FieldGetText( "OFrom"))
   Set item=doc.ReplaceItemValue( "SendTo",uidoc.FieldGetText( "OSendTo"))
   Set item=doc.ReplaceItemValue( "Principal",uidoc.FieldGetText( "OPrincipal"))
   Set item=doc.ReplaceItemValue( "Subject",uidoc.FieldGetText( "OSubject"))
   Set item=doc.ReplaceItemValue( "SaveOptions",0)
   Call uidoc.Refresh
   Call uidoc.save
   Call uidoc.close(True)
End Sub

Sprich ich überprüfe ob der Feldwert enstrechend gesetzt ist und laß das Schließen nur über den "Submit and Send Back to ISG" Button zu.

Somit geht auch kein "Cancel". Das Mail bleibt offen bis es ausgeführt wird - Notes Client schließen ist auch nicht - greift ja sofort QueryClose.

Klar - Der User kann natürlich mit Gewalt den Cleint abschießen - aber wenn es einfacher ist die Aktion durchzuführen - warum sollte er.

Das mit dem Link zu machen - ist mir noch nicht klar wie.

Navigation

[0] Themen-Index

[*] Vorherige Sete