[LS)Transfert automatique de mail
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
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