par Tiyan » 18 Jan 2010 à 15:35
Dans le WebQuerySave je lance un agent qui fait :
Dim mailBox As NotesDatabase
Set mailBox = session.GetDatabase (db.Server, "mail.box")
Dim memo As NotesDocument
Set memo = mailbox.createDocument()
memo.form = "Memo"
Dim richtext As New notesrichtextitem(memo,"Body")
j'initilise une serie de valeur puis le lance :
Sub EnvoiMail(richtext As notesrichtextitem, aQui As String, deQui As String, memo As NotesDocument, sSujet As String)
If aQui<>"" Then
Call memo.ReplaceItemValue ("From", deQui)
Call memo.ReplaceItemValue ("SendTo", aQui)
Call memo.ReplaceItemValue ("Recipients", deQui)
Call memo.ReplaceItemValue ("Subject", sSujet)
Call memo.ReplaceItemValue ("DeliveryReport", "Normal")
Call memo.ReplaceItemValue ("ReturnReceipt", "No")
Call memo.Send(False)
End If
End Sub
Si dans From je place autre chose que l'adresse mail de l'admin (paramètre deQui différent du mail admin) ca me remplace par l'adresse mail de l'admin et je ne comprends pas pourquoi.