Access Email à chaque personne

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.

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
??

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

Code:

---

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..
++

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

logique...:aie:
mets ca

Code:

---

oMail.BCC = strTo

---

a la place de

Code:

---

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

---

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!

Code:

---

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

---

Citation:

---

Envoyé par james68

Code:

---

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.

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 ?.

Bonjour, non malheureusement.

A tester et a peaufiner....

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 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

---

Merci ça fonctionne