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.
