Création d'un mailing

Version imprimable

18/03/2017, 15h30
lucas-18

Création d'un mailing

Bonjour,

Je souhaiterais créer un mailing à envoyer tous les clients dont le contenu proviendrait d'un champ memo d'un formulaire.

Existe-t-il un tutorial ou quelq'un pourrait m'expliquer comment procéder ?

Merci
20/03/2017, 13h49
marot_r

Bonjour.

Quand tu parles de mailing, parles-tu bien d'un envoi papier, pas de courrier électronique ?

A+
20/03/2017, 14h46
lucas-18

Citation:

Envoyé par marot_r

Bonjour.

Quand tu parles de mailing, parles-tu bien d'un envoi papier, pas de courrier électronique ?

A+

Non je parle d'envoi par mail (du meme mail) à tous mes clients dont le contenu du mail serait établi sur base du contenu d'un champ memo dans un formulaire.
20/03/2017, 15h07
marot_r

OK, regarde là :

Comment envoyer un mail format HTML avec Outlook ?
https://access.developpez.com/faq/?p...look#mail_html

ou là

Comment envoyer un mail avec Outlook ?
https://access.developpez.com/faq/?page=Outlook#Outlook

Je pense que tu y trouveras ton bonheur.

A+
20/03/2017, 15h27
lucas-18

Citation:

Envoyé par marot_r

OK, regarde là :

Comment envoyer un mail format HTML avec Outlook ?
https://access.developpez.com/faq/?p...look#mail_html

ou là

Comment envoyer un mail avec Outlook ?
https://access.developpez.com/faq/?page=Outlook#Outlook

Je pense que tu y trouveras ton bonheur.

A+

Merci, j'avais vu ce code à insérer dans un module mais je me pose 3 questions :

1) il suffit d'un bouton de commande pour appeler ce code ?

2) comment récupérer toutes les addresses email repris dans un champ de ma table ?

3) comment faire reference dans ce code au contenu du mail repris dans un champ de formulaire ?
20/03/2017, 15h32
marot_r

Bonjour.

Citation:

1) il suffit d'un bouton de commande pour appeler ce code ?

Oui.

Pour les autres points, il faudrait que tu poste la structure de ta table source.
Le code autours de la fonction va varier en fonction de cela.

Je suppose que c'est

Comment envoyer un mail avec Outlook ?
https://access.developpez.com/faq/?page=Outlook#Outlook

Qui t'intéresse. C'est bien cela ?

A+
20/03/2017, 15h36
lucas-18

J'ai une table "tbl_mail" qui reprend 2 champs :
Date_envoi
Contenu_mail (memo)

Le contenu du mail à envoyer = contenu_mail

Pour ce qui est des destinataires, il faudrait reprendre tous les mails d'un champ de ma table tbl_clients

C'est bien comment envoyer un mail avec Outlook qui m'intéresse.
20/03/2017, 15h50
marot_r

Citation:

il faudrait reprendre tous les mails d'un champ de ma table tbl_clients

Peux-tu préciser le type de ce champ ?
Est-ce un champ texte ? Un champ Mémo ? Autre chose ?
Et son nom.

A+
20/03/2017, 16h00
lucas-18

Citation:

Envoyé par marot_r

Peux-tu préciser le type de ce champ ?
Est-ce un champ texte ? Un champ Mémo ? Autre chose ?
Et son nom.

A+

C'est un champ texte (court)
20/03/2017, 16h08
marot_r

Quel est son nom ?

Est-ce qu'il y a plus d'un courriel dans ce champ ?
Si oui quel est le séparateur ?

A+
20/03/2017, 16h24
lucas-18

Citation:

Envoyé par marot_r

Quel est son nom ?

Est-ce qu'il y a plus d'un courriel dans ce champ ?
Si oui quel est le séparateur ?

A+

Le champ se nomme "Email" et ne reprend que des addresses mail(@).

OK, on y va.

À mettre dans un module avec le code de CreateEmail ici https://access.developpez.com/faq/?page=Outlook#Outlook.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
public sub EnvoyerCourrielClient()
 
  dim db as dao.database:set db=currentdb
  dim rClient as dao.recordset: set rClient=db.openRecordste("tbl_clients", dbOPenSnapshot) 'Accède à la liste des clients
  dim rMail as dao.recordset: set rMail=db.openRecordste("tbl_mail", dbOPenSnapshot) 'Accède à la liste des textes de courriel
 
  '=== Parcourt la liste des clients
  do while not rClient.eof
 
     if rMail.recordcount<>0 then
         rMail.movefirst
 
         '=== Parcourt la liste des textes de courriel à envoyer
         do while not rMail.eof
 
             if rClient![eMail] & "" <>"" then
                 call CreateEmail( rClient![eMail],  "Courrier du " & rMail![Date_Envoi],  rMail![Contenu_mail])
             end if
 
             rMail.movenext
         loop
         '--- Parcourt la liste des textes de courriel à envoyer
 
     end if
 
     rClient.movenext
  loop
  '--- Parcourt la liste des clients
 
  rMail.close:set rMail=nothing 'Ferme et libère la mémoire associée
  rClient.close: set rClinet=nothing 'Ferme et libère la mémoire associée
  db.close: set db=nothing 'Ferme et libère la mémoire associée
 
end sub

s'appelle en faisant :

Code:

call EnvoyerCourrielClient()

A+

20/03/2017, 18h32
lucas-18

1 pièce(s) jointe(s)

J'ai inséré les 2 codes dans un module.
J'ai ensuite créé mon formulaire base sur ma table "tbl_mail"
Sur click de mon bouton de commande, j'ai inséré le code :

Code:

call EnvoyerCourrielClient()

Mais lorsque je click sur le bouton de commande, j'obtiens un message d'erreur (voir annexe).
20/03/2017, 18h35
marot_r

Bonjour.

Comme mentionné dans la FAQ, il faut mettre une référence sur Outlook pour pouvoir utiliser le code de création du courriel.

A+
20/03/2017, 18h47
lucas-18

Citation:

Envoyé par marot_r

Bonjour.

Comme mentionné dans la FAQ, il faut mettre une référence sur Outlook pour pouvoir utiliser le code de création du courriel.

A+

Complètement oublié mais ce n'est pas pour autant que cela fonctionne :?

J'obtiens le message d'erreur suivant :

Erreur d'exécution '-2147467259 (80004005)':
Impossible de reconnaître un ou plusieurs noms.

Il me met en jaune oEmail.Send de mon code CreateEmail
20/03/2017, 19h04
marot_r
Ce n'est pas une erreur de Access mais de Outlook.

Vérifie que l'adresse courriel est bien une adresse valide du genre toto@Tata.com.

Si l'adresse est valide, met cette ligne en commentaire et vois si Access est capable de créer le courriel

et tu peux ajouter les lignes
Code:

1 2 Call oMail.Display Call omail.Save
avant le send pour forcer l'enregistrement dans tes brouillons de courriels.

Attention pour les tests il est recommandé de ne pas utiliser de vraies adresses clients car tu ne veux pas forcément que tes clients reçoivent messages tant que tout n'est pas parfais.
En plus tu risques de te faire "black lister" comme spammeur.

Personnellement je me sers de mon adresse professionnelle pour tous mes destinataires comme cela je peux valider le résultat avant de basculer en production.

Tu peux aussi tester la procédure d'envoi à la main avec du code comme :
Code:

1 2 3 private sub Test_CreateEmail() call CreateEmail("UneAdresseValide@UnServeur.com", "Test sujet", "Test Texte") end sub
et la boucle de création en remplaçant l'appelle à la création du courriel par un

Code:

msgbox(rClient![eMail] & vbNewline & rMail![Date_Envoi] & vbNewline & rMail![Contenu_mail])

histoire de voir ce qui se passe SANS envoyer de courriels.

A+
A+
20/03/2017, 19h16
lucas-18

Ca a l'air de marcher. Merci infiniment marot_r