Discussion :

[popofpopof]

bonjour
j'ai voulu utilise le code vba que j'ai trouve sur

http://access.developpez.com/sources...lookNewsLetter

j'ai donc crée un formulaire vide ou j'ai mis un bonton et sur evenement clique j'ai mis l'ensemble du code suivant

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
Private Sub SendMail_Click()
  Call SendMailAutomation
End Sub
 
Public Sub SendMailAutomation()
'Ajouter les références suivantes :
'Microsoft Outlook
'Microsoft DAO
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
Dim strContenu As String
Dim oRst As DAO.Recordset
Dim oFld As DAO.Field
Dim strTo As String
'Instancie Outlook
Set oApp = CreateObject("Outlook.Application")
'Crée un nouveau message
Set oMail = oApp.CreateItem(olMailItem)
oMail.Body = "Bonjour," & vbCrLf & _
             "Venez retrouver l'ensemble de nos produits sur notre site Web" & _
             vbCrLf & "http://www.notresite.fr"
 
'Ouvre un recordset sur les clients
Set oRst = CurrentDb.OpenRecordset("SELECT * FROM PRESCRIPTEUR")
'Boucle sur chaque client et les ajoute au champ BCC du mail
While Not oRst.EOF
  strTo = strTo & oRst.Fields("MAIL_PRESC") & "; "
  oRst.MoveNext
Wend
'Supprime la dernière virgule
oMail.BCC = Left(strTo, Len(strTo) - 2)
oMail.Subject = "NewsLetter " & Date
'Envoi le mail
oMail.Send
'ferme le curseur
oRst.Close
Set oRst = Nothing
'Ferme Outlook
oApp.Quit
Set oApp = Nothing
End Sub

Mon probleme est que quand je clique sur le bonton pour l'executé il me marque sa "Erreur d'exécution '-2147467259 (80004005)' impossible de reconnaître un ou plusieurs noms" et quand je clique sur débloque il m'ouvre le VBA et la phrase suivante est souligne "oMail.Send"

comment faire pour répare ce probleme et que l'envoi de mail marche bien?? merci de m'aide SVP je suis perdu

[Pierre Fauconnier]

Bonsoir

Le problème vient du fait que certains noms utilisés dans la propriété BCC ne sont pas reconnus comme étant des adresses électroniques valides...

Le mieux serait, je pense, de commencer par vérifier que tes adresses sont valides,c'est-à-dire syntaxiquement correctes...

Ok?

[popofpopof]

sa marche pas dis moi tu peux regarde dans la base ci joint ou est le probleme stp?

Aide moi je ne sais comment faire

[Pierre Fauconnier]

Le champ qui contient les adresses dans la table PRESCRIPTEURS ne doit pas être au format hypertexte, car ce format ajoute automatiquement mailto:.... Convertis ce champ en texte et tu n'auras plus de problèmes... sauf si tu veux pouvoir cliquer sur le champ pour envoyer directement un mail au prescripteur... mais il existe pour cela d'autres possibilités.

Attention: Après avoir converti le champ au format texte, il faudra nettoyer les valeurs en supprimant mailto:... pour tous les prescripteurs...

Ok?

[popofpopof]

Le champ qui contient les adresses dans la table PRESCRIPTEURS ne doit pas être au format hypertexte, car ce format ajoute automatiquement mailto:.... Convertis ce champ en texte et tu n'auras plus de problèmes... sauf si tu veux pouvoir cliquer sur le champ pour envoyer directement un mail au prescripteur... mais il existe pour cela d'autres possibilités.

Attention: Après avoir converti le champ au format texte, il faudra nettoyer les valeurs en supprimant mailto:... pour tous les prescripteurs...

Ok?

Ok merci sa marche par contre j'ai ma vrais table PRESCRIPTEURS avec 100 enregistrement comment faire pour enleve a tous les email le mailto:... ci je convertie mon champ en texte???
je souhaite savoir comment faire pour que quand on clique dans un formulaire sur le l'email sa ouvre quand même la fenêtre d envoi de mon logiciel de message comme actuellement avant de le passe en critère texte dans la table prescripteur tu sais comment faire??