Ein Bekannter, der eher Anfänger in Sachen PC-Benutzung ist, hat mir einen Artikel in der PC-Welt gezeigt (08/2004), "Du kennst Dich doch mit Lotus Notes aus, vielleicht interessiert Dich das":
Dort wird ein Tipp für ND6 Endanwender gezeigt: "Wie leite ich meine Firmenmails an GMX und Co. weiter, damit ich auch vom Urlaub aus Mails lesen kann".
Es wird Schritt für Schritt kurz und knapp erklärt, wie man den Agenten einrichtet.
Hier das Script online:
http://www.pcwelt.de/downloads/pcwelt_tools/tools/100953Mit diesem Script erstellen Sie unter Lotus Notes einen Agenten, der eine Kopie jeder Mail an eine beliebige Mail-Adresse weiterleitet. Das Original bleibt auf dem Server, so dass die Nachrichten auch in der Firma weiter verfügbar sind. Die Post können Sie mit einem beliebigen Mail-Client abholen und lesen.
| Sub Initialize |
| |
| Const sForward = "user@somewhere.de" |
| Dim session As New NotesSession |
| Dim note As NotesDocument |
| Dim docNew As Notesdocument |
| Dim db As NotesDatabase |
| Dim item As NotesItem |
| |
| Set session = New NotesSession |
| Set db = session.CurrentDatabase |
| Set note = session.DocumentContext |
| Set item = note.GetFirstItem("Body") |
| |
| Set docNew = New Notesdocument(db) |
| docNew.Form = "Memo" |
| Call item.copyitemtodocument(docNew, "") |
| docNew.SendTo = sForward |
| docNew.From = " " & note.From(0) |
| docNew.Principal = " " & note.From(0) |
| docNew.Subject = note.Subject(0) |
| |
| Call docNew.Send(True) |
| |
| End Sub |
Da sind doch bistimmt dann Admins, DS-Beauftragte und Co. darüber "begeistert"
