Discussion :

[mongmc]

Bonjour,

Je suis débutant en access et je voudrais savoir comment faire pour envoyer un email "Bonjour à tous" (par exemple) à toutes les adresses emails des gens qui sont dans ma table "personne".

J'ai lu avec attention le sujet a l'adresse : "http://access.developpez.com/sources/?page=ole#OutlookNewsLetter" avec comme sujet "Outlook - Envoi massif de mails (NewsLetter)" afin de transformer cela sans boucle au niveau du BCC car le résultat serait un BCC de +/- 250 emails de personnes . Mais d'incorporer l'envoi dans la boucle :

Donc avant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'Ouvre un recordset sur les clients
Set oRst = CurrentDb.OpenRecordset("SELECT * FROM Clients")
'Boucle sur chaque client et les ajoute au champ BCC du mail
While Not oRst.EOF
strTo = strTo & oRst.Fields("ChampEmailClient") & "; "
oRst.MoveNext
Wend
'Supprime la dernière virgule
oMail.BCC = Left(strTo, Len(strTo) - 2)
oMail.Subject = "NewsLetter " & Date
'Envoi le mail
oMail.Send

et après :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
'Ouvre un recordset sur les clients
Set oRst = CurrentDb.OpenRecordset("SELECT * FROM Clients")
'Boucle sur chaque client et les ajoute au champ BCC du mail
While Not oRst.EOF
strTo = oRst.Fields("ChampEmailClient")
oMail.Subject = "NewsLetter " & Date
'Envoi le mail 
oMail.Send
oRst.MoveNext
Wend

J'imagine que cela devrait fonctionner.

Et puis ?

Ce résultat est un module ?
Si oui, comment le faire fonctionner avec un bouton ?
Propriété du bouton "Sur Clic" Choix d'une macro "Macro1"
A l'intérieure de la macro "Macro1" :
"Ouvrirmodule" avec Nom de module : "EnvoiEmail" et comme nom de procédure "EnvoiMassif()"

Après essai du clic sur le bouton :
"Microsoft ne peut pas trouver la procédure "EnvoiMassif()" " et il ouvre "Microsoft Visual Basic - Mailing Email - [EnvoiEmail (code)]".

Que se passe-t-il ?

Merci d'avance de toutes vos précieuses lumières à vous les .

[mongmc]

Bonjour,

Pas moyen de lancer ce module.

Comment faire pour lancer un module ?

Si qq1 pouvait m'aider ce serait sympa.

Merci à tous

[dr_feelgood]

Il est relativement simple d'associer un peu de code visual basic à un bouton de commande.

Lorsque tu crée un bouton de commande, au lieu de cliquer sur clic macro, il suffit de cliquer sur Créer du code. Tu bascule automatiquement dans Visual Basic et tu insères le code que tu as déja.

exemple d'un bouton de commande qui s'appelle negato

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub negato_Click()
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "blanc"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
End Sub

Private sub et End sub sont créés automatiquement par Access, tu insères ton code entre ces 2 lignes
Un bon moyen de commencer à apprendre le code visual basic est de créer un bouton avec l'assistant, avec des commandes pré établies (fermer le formulaire, passer à l'enregistrement suivant) et ensuite d'observer le code généré.
Tu peux aussi créer une macro et l'exporter en format visaul basic et ensuite lire le code ainsi créé.