DominoArea.org [Archive]

Bonjour,

Je dois envoyer des emails à extérieur de l’entreprise, avec en copie une adresse email interne à l’entreprise.
J’ai créé un agent programmé qui passe un fois par semaine.
Voici un extrait de mon agent :

Code : Tout sélectionner

Dim serveur   As String
Dim mailbox1  As String
Dim mailbox2  As String   
Serveur       = db.Server
mailbox1      = "mail1.box"
mailbox2      = "mail2.box"   
Set maildb    = s.getdatabase(serveur,mailbox1)
If Not maildb.isopen Then
    Set maildb=s.getdatabase(serveur,mailbox2)
End If

Set mailnote                       = maildb.createDocument()
mailnote.Form                      = "Memo"
mailnote.From                      = adresse_interne   
mailnote.AltFrom                   = adresse_interne   
mailnote.SendFrom                  = adresse_interne   
mailnote.tmpDisplaySentBy          = adresse_interne   
mailnote.tmpDisplayFrom_Preview    = adresse_interne   
mailnote.DisplayFrom               = adresse_interne
mailnote.DisplayFrom_Preview       = adresse_interne   
mailnote.DisplaySent               = adresse_interne   
mailnote.Sender                    = adresse_interne
mailnote.Principal                 = adresse_interne
mailnote.ReplyTo                   = adresse_interne   

mailnote.Copyto                    = adresse_interne   

mailnote.sendto                    = adresse_externe   
      
Set tmpItemRecipients = New NotesItem(mailnote, "Recipients", "")
Call Call tmpItemRecipients.AppendToTextList(mailnote.sendto)
Call tmpItemRecipients.AppendToTextList(mailnote.Copyto)   
   
mailnote.Subject = "blabla …"   
      
Set rtitem    = New NotesRichTextItem(mailnote, "Body")         
rtitem.AppendText("Bonjour, blabla …")   

Call mailnote.Save(True,True,True)


Le mail est bien envoyé à l'adresse mail externe.

Il arrive aussi dans la boite mail interne (copyto) mais pas comme s’il a été envoyé, c'est comme si le mail a juste été créé dans la boite mais pas envoyé.
car lorsqu’on ouvre le mail, on a le bouton « Envoyer » au lieu d’avoir le bouton « Répondre ».
Comme faire pour que l'adresse mail interne en copyto recoive le mail ?

Est-ce que quelqu’un a une idée ? Merci pas avance.

en fait j'ai trouvé une solution, il faut alimenter le champ PostedDate :

mailnote.PostedDate = Now

Alors les adresses mails internes recoivent bien le mail comme un mail envoyé par quelqu'un
et non pas comme un mail juste créé dans leur boite et pret à etre envoyé.

et virer tous les champs suivants, c'est de l'affichage (Display)


mailnote.SendFrom = adresse_interne
mailnote.tmpDisplaySentBy = adresse_interne
mailnote.tmpDisplayFrom_Preview = adresse_interne
mailnote.DisplayFrom = adresse_interne
mailnote.DisplayFrom_Preview = adresse_interne
mailnote.DisplaySent = adresse_interne

Et utiliser call replaceItemvalue("nomchamp",valeur) plutôt que <notedocument>.<nomchamp>=......