Discussion :

[chernirachid]

Bonjour, j'essaie d'envoyer des emails a différentes personnes; ça fonctionne par contre l'envoi ne prend pas en considération les renseignements sur la requette de chaque personne. Merci de l'aide voir le fichier joint.

[james68]

Que veux tu faire exactement ?
envoyer le mm mail a plusieurs personnes
ou
envoyer un mail spécifique a chaque personnes de ta table tblEmail
??

[james68]

pour la soluce 2 :
je mettrais un truc dans le genre ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Do While Not oRst1.EOF
  strTo = oRst1.Fields("email") 
oRst1.MoveNext
 
'Supprime la dernière virgule
oMail.BCC = Left(strTo, Len(strTo) - 2)
'oMail.Subject = "Retard de payement" & Chr(10) & "Veuillez trouvre ci-joint " & Ninvoice & Chr(10) & "Cordialement"
 oMail.Body = "Bonjour,votre facture" & oRst0.Fields("Ninvoice")
   ' If MsgBox("Nombre de factures pour 45 jour  " & intStore & " " & _
'Envoi le mail
oMail.Send
  Loop

ceci reste encore a tester..
++

[chernirachid]

Merci pour la réponse, je veux envoyer un mail spécifique a chaque personnes de requête "ReqEmail" et j'ai essayé le code mais il y a un erreur sur oMail.send "impossible de reconnaître un ou plusieurs noms

[james68]

logique...
mets ca

Code :

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

oMail.BCC = strTo

a la place de

Code :

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

1
2
 
oMail.BCC = Left(strTo, Len(strTo) - 2)

[chernirachid]

Merci, l'email s'envoie mais il y a un erreur "l'élément a été déplacé ou supprimé" sur oMail.BCC = strTo, par contre l'email s'envoie au premier enregistrement avec Ninvoice du dernier enregistrement!

[james68]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Do While Not oRst1.EOF
  strTo = oRst1.Fields("email")
 
 
'Supprime la dernière virgule
oMail.BCC = strTo
'oMail.Subject = "Retard de payement" & Chr(10) & "Veuillez trouvre ci-joint " & Ninvoice & Chr(10) & "Cordialement"
 oMail.Body = "Bonjour,votre facture : " & oRst1.Fields(0)
   ' If MsgBox("Nombre de factures pour 45 jour  " & intStore & " " & _
'Envoi le mail
oMail.Send
oRst1.MoveNext
Loop

[chernirachid]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Do While Not oRst1.EOF
  strTo = oRst1.Fields("email")
 
 
'Supprime la dernière virgule
oMail.BCC = strTo
'oMail.Subject = "Retard de payement" & Chr(10) & "Veuillez trouvre ci-joint " & Ninvoice & Chr(10) & "Cordialement"
 oMail.Body = "Bonjour,votre facture : " & oRst1.Fields(0)
   ' If MsgBox("Nombre de factures pour 45 jour  " & intStore & " " & _
'Envoi le mail
oMail.Send
oRst1.MoveNext
Loop

Merci encore pour la réponse, le code fonctionne mais pour le 1er enregistrement.

[james68]

Désolé , je n'ai pas eu le temps de donner suite a notre discussion.
j'ai un peu la tête sous l'eau au niveau Job.
as tu trouvé une solution a ton problème ?.

[chernirachid]

Bonjour, non malheureusement.

[james68]

A tester et a peaufiner....

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
 
Public Sub EnvoiMassif()
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
Dim oDB As DAO.Database
Dim strContenu As String
Dim oRst0 As DAO.Recordset
Dim oRst1 As DAO.Recordset
Dim strTo As String
Dim sqlMail As String
Dim Subject As String
Dim Body As String
Dim Ninvoice As String
 
Set oDB = CurrentDb()
Set oApp = CreateObject("Outlook.Application")
'Crée un nouveau message
sqlMail = "SELECT  * FROM ReqEmail;"
Set oRst0 = oDB.OpenRecordset(sqlMail)
oRst0.MoveLast
Set oMail = oApp.CreateItem(olMailItem)
oMail.Body = oRst0.Fields("Ninvoice")
'oMail.Subject = oRst0.Fields("strObjet") & " du " & oRst0.Fields("dtCrea")
 
'Ouvre un recordset sur les clients
Set oRst1 = oDB.OpenRecordset("SELECT [ninvoice] , datedue ,contact, email FROM ReqEmail where DateDue <=Now()-45;")
'Boucle sur chaque client et les ajoute au champ BCC du mail
 
Do While Not oRst1.EOF
  strTo = oRst1.Fields("email")
  Set oApp = CreateObject("Outlook.Application")
    Set oMail = oApp.CreateItem(olMailItem)
    oMail.Body = oRst0.Fields("Ninvoice")
 
'Supprime la dernière virgule
oMail.BCC = strTo
'oMail.Subject = "Retard de payement" & Chr(10) & "Veuillez trouvre ci-joint " & Ninvoice & Chr(10) & "Cordialement"
 oMail.Body = "Bonjour,votre facture : " & oRst1.Fields(0)
   ' If MsgBox("Nombre de factures pour 45 jour  " & intStore & " " & _
'Envoi le mail
oMail.Send
oRst1.MoveNext
Loop
 
'ferme le curseur
oRst0.Close
oRst1.Close
Set oRst0 = Nothing
Set oRst1 = Nothing
Set oDB = Nothing
'Ferme Outlook
'oApp.Quit
'Set oApp = Nothing
End Sub

[chernirachid]

Merci ça fonctionne