envoyer mail avec access

**chrisbc** · 07/04/2008, 14h19

J'ai vraiment besoin d'un coup de main, je suis bloqué, alors s'il vous plait : AIDEZ-MOI!!!!!!!

J'ai "créé" avec access un petit programme qui me permet d'envoyer des mails à toutes les personnes qui sont séléctionnés dans une requete.
j'envoi un mail a une adresse qui se charge de changer le mail en texto. J'ai donc créé un pg qui sert a envoyer des textos avec access (wouah!

)

(en réalité j'ai plutot pompé le programme d'un gars sur le site :le grenier access

)

A la base le programme fonctionne.... mais quand je crée sur mon formulaire une etiquette de recherche, ça ne fonctionne plus !snif....

(ca par contre c'est de moi

)

L'étiquette permet de faire une selection au sein de ma requete, pour ça j'ai ajouté dans ma requete ( dans les critères du champs qualification ): Comme "*" & [forms]![Envoi d'un sms avec message unique]![Recherche] & "*"

Voila le pg en vba

Code :

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

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Option Compare Database
Public Sub SendMail(ByVal strEmail As String, _
  ByVal strObj As String, _
  ByVal strMsg As String, _
  ByVal blnEdit As Boolean)
On Error Resume Next
DoCmd.SendObject acSendNoObject, , , strEmail, , , strObj, strMsg, blnEdit
End Sub
Private Sub Commande12_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
  Dim rst As DAO.Recordset
  Dim strSQL As String
  Dim strMessageType As String
  Dim strTitre As String
  Dim strMsg As String
  Dim titreMsg As String
  ' Titre du message
 strTitre = "{Tel}"
 
  ' Message type à expédier
  ' Les signes {...} seront remplacés plus loin par
  ' les infos Client
 
  strMessageType = Nz([Message unique], " ")
 
  ' Ouverture de la requête
  ' (seuls les clients ayant un email sont concernés ici)
  strSQL = "SELECT * FROM [Envoi d'un sms avec message unique]" _
    & " WHERE [Email] IS NOT NULL"
  Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
 
  ' Parcourir la liste des clients
  While Not rst.EOF
    ' Construire un message personnalisé
    ' (on remplace chaque {...} du message par les champs
    ' équivalents de la requête
    titreMsg = Replace(strTitre, "{Tel}", rst("Tel"))
    strMsg = Replace(strMessageType, "{Tel}", rst("Tel"))
 
 
 
    ' Expédier le mail
    SendMail rst("Email"), titreMsg, strMsg, False
 
    ' Client suivant
    rst.MoveNext
  Wend
 
  ' On libère les ressources
  rst.Close
  Set rst = Nothing
 
  ' Un petit message de confirmation
  MsgBox "Les messages ont bien été envoyé", vbInformation, "Envoi de SMS"
End Sub

Alors s'il vous plait les mecs : Vous pouvez me faire UN PETIT MIRACLE ?
Je voudrais vraiment faire une recherche sur mon formulaire et envoyer les mails en appuyant sur un bouton envoyer.

**chrisbc** · 07/04/2008, 17h09

Ah oui j'oubliais le message d'erreur c'est : Erreur d'exécution '3061' trop peu de parametre. 1 attendu.

Désolé

**DMboup** · 07/04/2008, 18h06

Remplace

Envoyé par chrisbc

" WHERE [Email] IS NOT NULL"

par

Code :

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

1
2
 
    " WHERE [Email]<>NULL"

**chrisbc** · 07/04/2008, 18h30

je te remercie vraiment de me répondre mais malheureusement ça ne marche pas.

Mais si t'as une idée hesite pas !

**DMboup** · 07/04/2008, 18h35

Dans cette requête

strSQL = "SELECT * FROM [Envoi d'un sms avec message unique]" _
& " WHERE [email] IS NOT NULL"

que représente [Envoi d'un sms avec message unique]? Est ce une table ou une requête enregistrée?

**chrisbc** · 08/04/2008, 09h12

Ca représente une requete mais c'est vrai qu'il y a aussi un formulaire qui porte le même nom...j'avoue C'est pas trés malin

Maintenant que j'y pense, (si je me souviens bien) quand j'ai fait des recherches sur le pb, j'ai vu que le message :erreur d'execution '3061' signifiait qu'il n'arrivait pas a trouver l'étiquette sur le formulaire. En gros il lui manque l'information dans l'étiquette. C'est ^peut etre parce que le formulaire a le même nom que la requete, je vais essayer de changer le nom de la requete pour voir....

En tout cas je te remercie de ton aide ça fait vraiment cho au coeur

Si tu veux je peux t'envoyer mon fichier access...

**chrisbc** · 08/04/2008, 09h37

j'ai modifié le nom de ma requete maintenant le code donne :

Code :

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

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Option Compare Database
Public Sub SendMail(ByVal strEmail As String, _
  ByVal strObj As String, _
  ByVal strMsg As String, _
  ByVal blnEdit As Boolean)
On Error Resume Next
DoCmd.SendObject acSendNoObject, , , strEmail, , , strObj, strMsg, blnEdit
End Sub
Private Sub Commande12_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
  Dim rst As DAO.Recordset
  Dim strSQL As String
  Dim strMessageType As String
  Dim strTitre As String
  Dim strMsg As String
  Dim titreMsg As String
  ' Titre du message
 strTitre = "{Tel}"
 
  ' Message type à expédier
  ' Les signes {...} seront remplacés plus loin par
  ' les infos Client
 
  strMessageType = Nz([Message unique], " ")
 
  ' Ouverture de la requête
  ' (seuls les clients ayant un email sont concernés ici)
  strSQL = "SELECT * FROM [Requete envoi d'un sms avec message unique]" _
    & " WHERE [Email] IS NOT NULL"
  Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
 
  ' Parcourir la liste des clients
  While Not rst.EOF
    ' Construire un message personnalisé
    ' (on remplace chaque {...} du message par les champs
    ' équivalents de la requête
    titreMsg = Replace(strTitre, "{Tel}", rst("Tel"))
    strMsg = Replace(strMessageType, "{Tel}", rst("Tel"))
 
 
 
    ' Expédier le mail
    SendMail rst("Email"), titreMsg, strMsg, False
 
    ' Client suivant
    rst.MoveNext
  Wend
 
  ' On libère les ressources
  rst.Close
  Set rst = Nothing
 
  ' Un petit message de confirmation
  MsgBox "Les messages ont bien été envoyé", vbInformation, "Envoi de SMS"
End Sub

Malheureusement il me remet le même message d'erreur.
sinon j'ai aussi trouvé une aide dans access qui parle de QueryDef...Ca te dit quelquechose ?
En tout ca si t'arrivais a me régler ce pb ça pourrait peut être bien me changer la vie et celle de ma boite...Alors si tu connais du monde...

**DMboup** · 08/04/2008, 11h40

Le fait que la requête et le formulaire porte le même nom n'est peut être pas le problème. Je penses plutôt que c'est la manière dont tu utilise le critère (une étiquette) qui constitue le problème. Et pour en avoir le coeur net, il serait bon de nous montrer ta requête.

QueryDef...Ca te dit quelquechose ?

bien sur mais ne sautons pas les étapes.

**chrisbc** · 08/04/2008, 11h47

no problem voici ma requete au format sql :

Code :

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

1
2
3
 SELECT SMS.N°, SMS.Nom, SMS.Prénom, INFO.[Qualification  inter], INFO.[N° de téléphone  inter], "envoitexto@yahoo.fr" AS Email, Replace([N° de téléphone  inter],".","") AS TELEPHONE, Replace([TELEPHONE]," ","") AS Tel
FROM INFO RIGHT JOIN SMS ON INFO.[N° Intérimaire inter] = SMS.N°
WHERE (((INFO.[Qualification  inter]) Like "*" & [forms]![Envoi d'un sms avec message unique]![Recherche] & "*") AND ((INFO.[N° de téléphone  inter]) Like "06" & "*"));

**DMboup** · 08/04/2008, 12h13

La requête semble correcte. Mais il faut utiliser une zone de texte comme critère et non une étiquette ou ajouter .[Légende] si c'est bien une étiquette

Code :

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

1
2
 
[Formulaires]![Nom du formulaire]![nom Etiquette].[Légende]

Tu peux aussi remplacer ton champs Recherche du formulaire par n'importe quelle zone de texte juste pour tester.

**chrisbc** · 08/04/2008, 13h49

Autant pour moi...

Je ferai plus attention a mon vocabulaire, en réalité c'est pas une étiquette c'est : "une zone de liste déroulante" qui sert a faire une selection au sein du formulaire. Je choisi un critère dans la liste et ça m'affiche automatiquement la selection correspondante.

J'ai quand même essayé ce que tu m'as proposé mais ça ne marche po

snif

Je peux t'envoyer mon fichier par mail ? Ce sera peut être plus simple...

**Domi2** · 08/04/2008, 14h03

Bonjour,

Si tu faisais une recherche dans la FAQ sous zone de liste, tu aurais vite trouvé comment récupérer la valeur sélectionée.

Domi2

**chrisbc** · 08/04/2008, 15h18

merci a toi de me répondre...mais si tu parles de mettre :

Code :

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

1
2
trSQL = "SELECT * FROM [Requete envoi d'un sms avec message unique]" _
    & " WHERE [Qualification  inter]=[forms]![Envoi d'un sms avec message unique]![Recherche]"

ça revient exactement au même il me met le même message d'erreur....Tu parles bien de ça ?

**Domi2** · 08/04/2008, 15h25

Re,

Quelle est le nom de ta zone de liste ?

A-t-elle une ou plusieurs colonnes (même cachée(s) ?

Si oui, l'info que tu souhaites récupérer est dans quelle colonne ?

Domi2

**chrisbc** · 08/04/2008, 15h42

Ma zone de liste s'appelle : Recherche
elle n'a qu'une colonne

**DMboup** · 10/04/2008, 13h03

Essai de remplacer

strSQL = "SELECT * FROM [Requete envoi d'un sms avec message unique]" _
& " WHERE [email] IS NOT NULL"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)

par

Code :

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

1
2
3
4
 
strSQL = "SELECT SMS.N°, SMS.Nom, SMS.Prénom, INFO.[Qualification  inter], INFO.[N° de téléphone  inter], "envoitexto@yahoo.fr" AS Email, Replace([N° de téléphone  inter],".","") AS TELEPHONE, Replace([TELEPHONE]," ","") AS Tel FROM INFO RIGHT JOIN SMS ON INFO.[N° Intérimaire inter] = SMS.N° WHERE (((INFO.[Qualification  inter]) Like "*" & [forms]![Envoi d'un sms avec message unique]![Recherche] & "*") AND ((INFO.[N° de téléphone  inter]) Like "06" & "*"));"
 
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)