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/100953
Mit 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" :P >:(
@thomas
Wer das geschrieben hat, kann keine sonderliche Ahnung von Notes haben.
wen hast du jetzt damit gemeint ?