Attribuer un nom d'emetteur du mail

[clementbp]

Bonjour à tous

J'ai créé un agent qui me permet de faire un mailling.

J'ai donc une vue avec des documents, et un agent qui envoie un mail pour chaque document de la vue.

Actuellement tout fonctionne sauf que pour les mail reçu, le nom qui apparait dans le champ emetteur et le miens.

Existe t il un moyen pour soit utiliser le nom du serveur, soit parametrer un nom spécifique.

J'ai essayé dans mon agent de mettre une valeure en dure dans le champ "From" mais cela ne fonctionne pas :

Voici ce que j'ai essayé :

Sub Initialize


Dim session As New NotesSession
Dim db As NotesDatabase
Dim Collection As NotesDocumentCollection
Dim Document As NotesDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem


Dim vwVue As NotesView
Set db = session.CurrentDatabase 'Base courante
Set vwVue = db.GetView("CBP-vDBBTousRelanceDuJour") 'Défini la vue
If Not vwVue Is Nothing Then


Set Document = vwVue.GetFirstDocument 'Premier document

While Not Document Is Nothing 'Tant qu'il y a encore des documents, envoyer des mails



'CREE LE MAIL

Adressemail="Nom.Prenom@domaine.fr"

'Créer un nouveau document
Set doc = New NotesDocument( db )
doc.Form = "Memo" 'Type de document a créer (ici un mail)
doc.SendTo = adressemail
doc.Subject = "DBB : Relance"
doc.From = "Relance DBB"


'Corps du mail
Set rtitem = New NotesRichTextItem (doc, "Body")
Call rtitem.AddNewLine (1)
Call rtitem.AppendText ("Bonjour,")
Call rtitem.AddNewLine (2)
Call rtitem.AppendText ("Corps du mail")



'Envoie le mail
Call doc.Send( False )

Set Document = vwVue.getNextDocument(Document) 'Va au document suivant
Wend 'Boucle

End If


End Sub

Si quelqu'un à une piste !!!!!

Merci

[Michael DELIQUE]

salut

dominux a très bien expliqué ça => http://www.dominux.net/Dominux/Dominux. ... OFRESJ.htm

bonne lecture

[Raziel]

Voici une fonction que j'utilise toujours pour mes envoi de mail afin de spécifier un expéditeur autre que moi

Code : Tout sélectionner

Sub SendMail (Expediteur As String, Destinataires As Variant, Sujet As String, Corps As String)
   Dim session As New notessession
   Dim dbMailBox As notesdatabase
   
   Dim docMail As NotesDocument
   
   Dim body As NotesRichTextItem
   
   If session.IsonServer Then
      Set dbMailBox = session.getdatabase("", "mail.box", False)
   Else
      Set dbMailBox = session.getdatabase(session.currentdatabase.server, "mail.box", False)
   End If
   
   Set docMail = New notesdocument(dbMailBox)
   
   Call docMail.replaceitemvalue("Form", "Memo")
   Call docMail.replaceitemvalue("From", Expediteur)
   Call docMail.replaceitemvalue("SendTo", Destinataires)
   Call docMail.replaceitemvalue("Recipients", Destinataires)
   Call docMail.replaceitemvalue("PostedDate", Now)
   
   Call docMail.replaceitemvalue("Subject", Sujet)
   
   
   Set body = New NotesRichTextItem (docMail, "Body")
   Call body.AppendText(Corps)
   
   Call docMail.Save(True, True, True)
   
End Sub


[roubech]

@Michael : 2 liens vers le site de Julien la même semaine !

[Michael DELIQUE]

regarde bien roubech , le lien est vers le site de dominux

[Raziel]

regarde bien roubech , le lien est vers le site de dominux

C'est ça de ne pas prendre de vacances...

[roubech]

pfff c'est facile de vous moquer les gars !
vivement le week-end

[Raziel]

pfff c'est facile de vous moquer les gars !
vivement le week-end

Et avec la chance que l'on a, il sera pluvieux chez nous.
Bref, un beau week end d'août dans le nord.

[roubech]

je croyais que c'était la Toussaint

[Raziel]

je croyais que c'était la Toussaint

C'est comme ça chez nous... c'est tous les jours la Toussaint.
Ça à quand même un bon côté : on a pas a se creuser la tête pour savoir comment on va s'habiller.