Page 1 sur 1

[LS)Transfert automatique de mail

MessagePublié: 08 Juil 2010 à 11:48
par Nikoko
Bonjour, je cherche à créer un agent qui s'éxécute avant l'arrivée de nouveaux messages.

Je n'utilise pas de règle ni d'adresse de rééxpédition parce que ce même scritpt devra transferer ce mail et en plus le classer dans une base d'archive.

J'ai réutilisé un script qui fonctionnait mais lorce que je reçois un mail sur la boîte, aucune action ne se produit.
Avez vous une idée ?

Au fait je suis sur Lotus 7.0.3

Merci de vos réponses.

P.S. : le code que j'utilise et que j'ai essayé de simplifier.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim memo As NotesDocument
Dim rtitem As NotesRichTextItem
Dim dest As String


Set db = session.CurrentDatabase
Set doc = session.DocumentContext

dest = "toto@xxx.com"

If doc.From(0)<>"<ServeurFax>" Then
Set memo = db.CreateDocument
Call doc.CopyAllItems(memo, True)
memo.CopyTo = ""


Set rtitemInDoc = doc.GetFirstItem( "Body" )
If Not( rtitemInDoc Is Nothing ) Then
Call rtitem.AppendRTItem(rtitemInDoc)
End If

' Envoi du Memo
Call memo.send(False, dest)
Call doc.remove(True)

End If

End Sub

MessagePublié: 18 Juil 2010 à 21:40
par roubech
tu as essayé de planifier ton agent "après reception" (il me semble qu'avant reception, tu manipule un doc qui est encore dans la mail.box, et pas encore dans la BAL)