DominoArea.org [Archive]

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

salut

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

bonne lecture

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

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

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

Michael DELIQUE a écrit:regarde bien roubech , le lien est vers le site de dominux

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

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

roubech a écrit: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.

je croyais que c'était la Toussaint

roubech a écrit:je croyais que c'était la Toussaint

C'est comme ça chez nous... c'est tous les jours la Toussaint. :cry:

Ça à quand même un bon côté : on a pas a se creuser la tête pour savoir comment on va s'habiller. :lol:

DominoArea.org [Archive]

Attribuer un nom d'emetteur du mail

Attribuer un nom d'emetteur du mail