Das Notes Forum
Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: tuxie am 08.07.02 - 14:24:58
-
Hallo
Gibt es eine einfache möglichkeit, das wenn ein User eine E-Mail bekommt, das desen Chef von allen E-Mails eine Kopie erhält.
Es würde über einen Perönlichen Agenten funktionieren, aber gibt es eine andere Lösung, was ich am Server einstelle ???
TsChAu TuXiE
-
hi,
was ist mit der privatsphäre? darf man sowas überhaupt? das grenzt ja schon fast an totale überwachung.
ich kann mir nicht vorstellen, daß sowas erlaubt ist, denn es werden mit sicherheit auch private emails eingehen und den chef geht ja nichts alles an.
außerdem sollte ein chef wichtigere dinge zu tun haben, als die mails anderer leute zu lesen.
oder sehe ich das falsch?
-
Hi,
wenn in einer Dienstvereinbarung das private eMailen verboten ist, dürfen die eMails überprüft werden.
Es gibt zu diesem Thema einen sehr interessanten Bericht in der aktuellen CT.
Gruss
;D MOD
-
sicher geht sowas, spätestens mit einer Zusatzsoftware von Group. Aber ist es nicht vielleicht einfacher wenn der Chef in die DB schaut?
-
Bin zwar total gegen eine solche Überwachung.
Aber es ist allemale besser, wenn der CHEF Zugriff in der ACL als Leser eingetragen wird ( und dem Mitarbeiter auch bekannt gemacht wird ) als so einen Zugriff quasi "heimlich" über Group zu realisieren; zudem kostet Group ja auch noch eine nicht unerhebliche Menge Geld.
Der Chef wird weder eine konsolidierte Datenbank lesen können, noch alle Bewegungen in den einzelnen DBs kontrollieren können. Bei einem begründetem Verdacht können wir auch in die DBs gehen, aber immer nur im Beisein des Betriebsrats. Sollte kein Betriebsrat vorhanden sein, sollte man auf jeden Fall Vertrauensleute wählen. Sonst sind der Willkür Tür und Tor geöffnet.
ein ein wenig entrüsteter
eknori
-
Sicher kostet Group Geld und nach der letzten Steigerung erst RICHTIG, aber wenn es heimlich sein soll ist es vielleicht die einfachste Variante. Under Der Zweck heiligt..."Haushaltsmittel" Damit möchte ich nicht sagen, dass ich das Toll finde!!! Ich sehe ebenfalls den vorhin genannten Weg, direkt in die DB zu schau, als den Besten an.
-
also egal was alle sagen, ich bin strikt dagegen, heimlich durch solche maßnahmen in die mail dbs der user zu gucken. das wäre ja so, als würde man einen briefkasten durchstöbern.
wenn im arbeitsvertrag festgelegt hat, daß der chef solche rechte bekommt, und der user damit einverstanden ist, ist das ok, aber nicht heimlich.
und vor allem: was soll das bringen? wozu will ein chef, eine kopie aller mails, die an seine mitarbeiter gehen? ein gewisses vertrauen sollte doch unter chefs und mitarbeitern vorhanden sein.
schließlich sollte man ja mit- und nicht gegeneinander arbeiten.
-
Du hast ja RECHT, hiermit ziehe ich den Tip mit Group zurück ;)!
-
;) keine panik, das ist nur meine persönliche meinung
-
Hallo,
es existiert eine Dienstanweisung wo Private E-Mails verboten worden sind. Und zweitens soll es ja nicht so sein das das reinsehen heimlich geschied, sondern auch darüber gibt es wieder eine Dienstanweisung. Ich mache ja auch nur was mein chef mir sagt, und da ich meinen Job liebe .....
Naja mal sehen vielleicht reicht es meinem Chef ja aus in die datenbank schauen zu dürfen.
TsChAu TuXiE
-
wie ich es mir schon dachte es reicht meinem Chef nicht aus nur rein schauen zu dürfen, er besteht auf die Kopien, kann mir jemand infos zu Group geben (Hersteller, Vertrieb,...)
thx
TuXiE
-
Guckst du hier
http://www.group-technologies.com/german/home.nsf
und wenn du anrufst frag nach Hr Mollick.
Is einer der besten Supporter, der mir über den Weg gelaufen ist
-
Hi,
also mir fällt da noch so eine kleine sehr sehr aufwendige Notlösung ein (Nur für Mails im Internet möglich!!!):
Du erstellst für jeden User ein zweites Personendokument in dem du die Internetadresse der User festlegst (Abschnitt Mail). Alle Mail die an diese Mail-Addy gesendet werden, leitest du an den eigentlichen Notes-User weiter und zusätzlich na den Chef. Das heist du trägst im Kapitel Mail des Personendokumentes, im Abschnitt Forwarding Address (Weiterleitungsadresse) eine Gruppe vom Typ "Mail only" ein in dem dein Chef und der jeweilige User vorhanden ist.
Wenn die User interne Notesmails verschicken ist es ja kein Problem den Chef eine Blindkopie zu schicken. Es müsste halt eine Dienstanweisung bestehen, die Mitarbeiter verpflichtet, dem Chef eine Kopie der internen Mails zu schicken. Wie du siehst ist dies sehr aufwendig.
Ich hatte diesen Fall auch schon einmal das Kopien von Mails an mehrere User weitergeleitet werden musste. Damals schied ein Mitarbeiter aus der viele Kundenkontakte besaß und seine E-Mail hundertfach verteilte. Diese Kontakte mussten aufrecht erhalten werden und sollten von 2 anderen Mitarbeitern bearbeitet werden (änhliche Problematik). Dies war allerdings nur ein User!!!!!!
Also kurz gesagt: Wenn du mal lange Weile hast oder zu viel Zeit dann versuchs einfach mal. Sonst nutze Group (würd ich auch vorschlagen)!
Ich hoffe ich hab dir geholfen
mfg
andi
-
thx
für die vielen Antworten, muß jetzt mal schauen wie ich dies jetz löse.
TsChAu TuXiE
-
Hallo
Ich glaube das ich jetzt eine Lösung habe, ich erstelle einen Agenten in der Mailschablone, der beim eingang einer E-Mail gestartet wird. Um den Jeweiligen Amtsleiter heraus zu bekommen, nämlich möchte ich das Managerfeld nutzen. Theoretisch mit @mailsend([@dblookup.. oder @dbcolumn... ) könnte mir jemand bei der Gestalltung der formel helfen?
TsChAu TuXiE
-
wie wäre es mit @NameLookup([Exhaustive];"@UserName;"Manager")
schau mal in die Designerhilfe wg. der richtigen Syntax.
Ulrich
-
Hallo
bin damit kann ich woll den Manager eintrag aus dem Nab auslesen??
Tschau Tuxie
-
Sorry das bin muß weg ;D
-
Hallo
Habe es jetzt so versucht,
neuen Agent angelegt
Wann soll der Agent getstartet werden-->
Nach eingang neuer Mail,
Starten -> Einfache Aktionen
Dort habe ich dann Ausgwählt Mail senden, dann habe ich auf weiter geklickt und dann in das An feld folgende Formel einegtragen: @NameLookup([Exhaustive];@UserName;"Manager");
Aber irgendwie funzt das nicht!!.
Hat noch jemand eine Idee.
PS.: Wir haben im nab das Managerfeld ausgefüllt.
Tschau Ingo (Tuxie)
-
Hier eine Version der automatischen Mailweiterleitung einer Firma, die dieses - für mich nicht sonderlich vertrauensförderliche - Gehabe auch macht:
Erstelle einen Agenten in der Mailschablone, setze den Userzugriff nur noch auf Designerrechte - dann hast du das, was hier gemacht wird.
Anmerkung zum Agenten: Ich habe die firmenspezifischen Dinge rausgenommen. und umbenannt. Ob's jetzt noch funzt, weiss ich nicht. Probiert's mal.
Bitte keine Kommentare zum Stil... ich war's nicht und würde es anders machen - oder besser gesagt: GAR NICHT!
Gruss
Bodo
Hintergrundagent, periodisch mehrmals am tag
gilt für alle neuen und geänderten dokumente in der db
Sub Initialize
%REM
Dieser Agent läuft periodisch in den Mail-Datenbanken der Mitarbeiter.
Er läuft unter dem Namen des Mail-Eigentümers und wird ggf. beim Öffnen der Datenbank aktiviert (Db-Script.PostOpen).
Ablauf-Beschreibung:
- beim ersten Start - keinerlei Aktion
- alle seit dem letzten Start hinzugekommenen Dokumente (unprocessed) mit der Form "Memo" und "Reply" werden behandelt
- Weiterleitungs-Konfiguration für den Datenbank-Eigentümer wird aus der Mitarbeiter-Datei gelesen
- eingehende Mail wird ggf. an einen Weiterleitungs-Adressaten gesendet (SendTo)
- ein- und ausgehende Mail externe Mail wird ggf. in die "Abteilungs-Mailbox" (mail\abt-mail.nsf) kopiert (Leser-Feld=Abteilung)
%END REM
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim agent As NotesAgent
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments ' von diesem Agenten noch nicht gesehene Dokumente
If collection.count = 0 Then Exit Sub
Set agent = session.CurrentAgent
If agent.HasRunSinceModified = False Then Exit Sub
Dim DateTime As New NotesDateTime (agent.LastRun) ' letzter Start dieses Agenten
dbOwner = Left(db.FileName,Instr(db.FileName,".")-1)
dbOwner = Ucase(Mid(dbOwner,1,1))+Lcase(Mid(dbOwner,2,Len(dbOwner)-1)) ' Namenskürzel in Firmen-Schreibweise - wg. Novell...
Dim dbP As New NotesDatabase ("","")
Call dbP.Open (db.Server,"Personal.nsf") ' Mitarbeiter-Datenbank
Set viewP = dbP.GetView("vwIndexID")
Set docP = viewP.GetDocumentByKey(Ucase(dbOwner),True) ' Personen-Dokument des Mitarbeiters
If docP Is Nothing Then
' Fehlermeldung schicken ?
Exit Sub
End If
If Not docP.HasItem("PMailWeiterleitung") Then Exit Sub
Intern = False ' Interne Mail weiterleiten ?
Extern = False ' Externe Mail weiterleiten ?
AbtBox = False ' In Abteilungs-Mailbox weiterleiten ?
Set item = docP.GetFirstItem("PMailTypWeiterleitung")
If docP.PMailWeiterleitung(0)<>"" Then
If item.contains("I") Then Intern=True
If item.contains("E") Then Extern=True
' eingetragene Adressaten für Mail-Weiterleitung bestimmen
Redim An(0) As String
For j=0 To Ubound(docP.PMailWeiterleitung)
Kurz = docP.PMailWeiterleitung(j)
Kurz = Trim(Mid(Kurz,Instr(Kurz,"(")+1,100))
Kurz = Trim(Mid(Kurz,1,Instr(Kurz,")")-1))
Kurz = StringReplace ("ä","ae",Kurz)
Kurz = StringReplace ("ö","oe",Kurz)
Kurz = StringReplace ("ü","ue",Kurz)
Redim Preserve An(j) As String
An(j) = Kurz+"/DOMAENE"
Next
End If
If docP.PMailWeiterleitungAbteilung(0)<>"nein" Then AbtBox=True
If AbtBox = True Then
Dim dbA As New NotesDatabase ("","")
Call dbA.Open (db.Server,"Mail\Abt-Mail.nsf") ' Abteilungs-Mailbox
Dim docA As NotesDocument
End If
For i = 1 To collection.Count ' alle noch nicht gesehenen Dokumente
Set doc = collection.GetNthDocument( i )
' nur Mail-Documente, die nach dem letzten Start des Agenten erzeugt wurden
If (doc.Form(0) = "Memo" Or doc.Form(0) = "Reply") And doc.Created >= DateTime.LSLocalTime Then
If AbtBox=True Then ' in Abteilungs-Mailbox weiterleiten
If Instr(doc.From(0),"@")<>0 Or _
( Instr(doc.SendTo(0),"@")<>0 ) And Instr(doc.SendTo(0),"DOMAENE@MAILDOMAENE")=0 Then ' nur externe Mail
Set docA = dbA.CreateDocument ' neues Dokument in Abteilungs-Mailbox
Call doc.CopyAllItems(docA)
docA.Form = "Memo"
Set rtitem = docA.CreateRichTextItem("DocLink") ' Doc-Link zum Mail-Dokument in Benutzer-Mail-DB
Call rtitem.AppendDocLink (doc,"Mail-Dokument in Mailbox von "+dbOwner)
Set item = New NotesItem (docA,"Leser", "[Manager]") ' Leser-Feld setzen, Sichtbarkeit !
Call item.AppendToTextList ("["+docP.PAbt(0)+"]") ' Rolle = Abteilungsnummer
item.IsReaders = True
docA.Principal = doc.From(0) ' ursprünglicher Absender
docA.INTERNSendTo = doc.SendTo ' sichern des ursprünglichen Adressaten
ToINTERN=False ' Eigehende Mail ?
For j=0 To Ubound(docA.INTERNSendTo)
If Instr(Ucase(docA.INTERNSendTo(j)),"@UnsereDomaene.DE")<>0 Then ToINTERN=True
Next
If ToINTERN Then docA.InternSendTo = dbOwner ' wenn eingehende Mail, ursprünglicher Adressat
docA.InternPostedDate = doc.PostedDate ' ursprüngliches Absendedatum/-zeit
docA.INTERNAbteilung = docP.PAbt(0)
Call docA.Save(True,True)
End If
End If
doc.Subject = "Weiterleitung von "+dbOwner+": "+doc.Subject(0) ' für Weiterleitung an Mitarbeiter
doc.CopyTo = "" ' Keine Kopien weiterleiten
If Instr(doc.From(0),"@")<>0 And Extern=True Then ' Externe weiterleiten
doc.SendTo = An
Call doc.Send(False)
End If
If Instr(doc.From(0),"@")=0 And _
Instr(Ucase(doc.From(0)),"CN="+Ucase(dbOwner)+"/")=0 And _
Intern=True Then ' Interne weiterleiten
doc.SendTo = An
Call doc.Send(False)
End If
End If ' If (doc.Form(0) = "Memo" Or doc.Form(0) = "Reply") And doc.Created >= DateTime.LSLocalTime
Call session.UpdateProcessedDoc(doc) ' Dokument als erledigt markieren
Next
End Sub
Function StringReplace(strAlt As String, strNeu As String, strZeichenString As Variant) As String
If strAlt="" Or strNeu="" Or strZeichenString="" Then
Exit Function
End If
strZ = strZeichenString
Lalt = Len(strAlt)
Do
ipp& = Instr(1, strZ, strAlt)
If ipp&> 0 Then
strZ = Mid(strZ, 1, ipp&-1) +strNeu +Mid(strZ, ipp&+Lalt, Len(strZ)-ipp&-Lalt+1)
End If
Loop Until ipp&= 0
StringReplace=strZ
End Function