Mail expedié 2 fois [Résolu]

nicolasferraris · 19/06/2007, 11h47

Bonjour,

J'envois à partir d'OUTLOOK (connecté à une BdD ACCESS) des mails avec la macro suivante :

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
Sub ParcourtRequete()
Dim appAccess As New Access.Application
Dim EMail As Object
Dim oDb As DAO.Database
Dim oRst As DAO.Recordset
Dim strHTML As String
 
strHTML = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">" & _
          "<HTML><HEAD>" & _
          "<META http-equiv=Content-Type content=""text/html; charset=iso-8859-1"">" & _
          "<META content=""MSHTML 6.00.2800.1516"" name=GENERATOR></HEAD>" & _
          "<BODY>"
 
With appAccess
   .OpenCurrentDatabase ("d:\mail.mdb")
   Set oDb = .CurrentDb
   With oDb
      Set oRst = .OpenRecordset("R_Mail")
      oRst.MoveFirst
      While Not oRst.EOF
           Set EMail = Application.CreateItem(olMailItem)
          EMail.To = oRst("Email")
          EMail.Subject = "Catalogue Formations en Sciences Analytiques 2008 "
          EMail.HTMLBody = strHTML & "<font face=""Arial"" size=""2"">" & "<p>" & "Le catalogue EURADIF 2008 des Formations en Sciences Analytiques est disponible" & "</p>" & "Vous pouvez consulter les formations ou télécharger le catalogue au format PDF à l'adresse suivante :" & "&nbsp;" & "<a href=""http://www.euradif.com"">" & "EURADIF" & "</A>" & "</font>" & "</BODY></HTML>"
 
 
          EMail.Send
          oRst.MoveNext
        Wend
   End With
End With
      oRst.Close
      oDb.Close
      appAccess.Quit
      Set oRst = Nothing
      Set oDb = Nothing
      Set appAccess = Nothing
End Sub

Tout ce passe correctement, sauf que chaque que le mail part avec une adresse valide de la BdD, je recois le mail 2 fois (alors qu'il n'y en avait qu'un seul dans la boite d'envoi). Le deuxième mail est vide et sans objet avec l'entête ci-dessous.

Merci de votre aide

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
----IMA6c4a259.4677/winmail1.adsphera.internet-fr.net
Content-Type: text/plain; charset=us-ascii
 
Message delivered successfully to ferraris@datalys.net
 
----IMA6c4a259.4677/winmail1.adsphera.internet-fr.net
Content-Type: message/delivery-status
 
Reporting-MTA: winmail1.adsphera.internet-fr.net
Final-Recipient: rfc8222;ferraris@datalys.net
Action: delivered
Status: 2.0.0
Original-Recipient: rfc822;ferraris@datalys.net
 
----IMA6c4a259.4677/winmail1.adsphera.internet-fr.net
Content-Type: message/rfc822
 
Received: from sMtp.neuf.fr [84.96.92.61] by winmail1.adsphera.internet-fr.net with ESMTP
  (SMTPD32-7.15) id A25977CD0086; Tue, 19 Jun 2007 11:31:05 +0200
Return-receipt-to: contact@euradif.com
Received: from DEEPURPLE ([213.223.113.184]) by sp604002mt.gpm.neuf.ld  (Sun Java System Messaging Server 6.2-5.05 (built Feb 16 2006))  with ESMTP id <0JJV00F8ELUQ1HR0@sp604002mt.gpm.neuf.ld> for  ferraris@datalys.net; Tue, 19 Jun 2007 11:18:27 +0200 (CEST)
Date: Tue, 19 Jun 2007 11:17:34 +0200
From: Nicolas Ferraris <contact@euradif.com>
Subject: Catalogue Formations en Sciences Analytiques 2008
To: ferraris@datalys.net
Reply-to: contact@euradif.com
Message-id:
 <!&!AAAAAAAAAAAYAAAAAAAAAKSAIejhjXlMnNplCVgMqLyCjAAAEAAAANuur8FDlXlOvl2p+8GQmpEBAAAAAA==@euradif.com>
Organization: Euradif
MIME-version: 1.0
X-MIMEOLE: Produced By Microsoft MimeOLE V6.00.2900.3138
X-Mailer: Microsoft Office Outlook 11
Content-type: multipart/alternative;
 boundary="Boundary_(ID_iTb26PnhtPL2xK0C4W720g)"
Thread-index: AceyUqvwHQ818+LBR8mBD3Rw76YBOQ==
 
----IMA6c4a259.4677/winmail1.adsphera.internet-fr.net--

cavo789 · 19/06/2007, 11h55

Bonjour

Une idée : serait-il possible que tu ais demandé à avoir un accusé lors de l'envoi d'un mail sur Internet ?

Va faire un tour dans Outlook -> Tools -> Options -> Preferences -> eMail Options -> Tracking Options.

Est-ce que la case Delivery Receipt est cochée ? Si oui, décoche-là et réessaie.

nicolasferraris · 19/06/2007, 11h59

J'avais effectivement cette case coché. Je l'ai décoché et fais un essai
Je te donne bientôt le résultat des courses.

Merci

nicolasferraris · 19/06/2007, 14h00

Ok ca marche nickel

Merci à toi

cavo789 · 20/06/2007, 07h02

Bien volontier

19/06/2007, 11h55	#2
cavo789 Membre chevronné Christophe Avonture Développeur Web Inscription : mai 2004 Messages : 649 Détails du profil Informations personnelles : Nom : Christophe Avonture Âge : 37 Localisation : Belgique Informations professionnelles : Activité : Développeur Web Informations forums : Inscription : mai 2004 Messages : 649 Points : 774 Points : 774	Accusé d'envoi ? Bonjour Une idée : serait-il possible que tu ais demandé à avoir un accusé lors de l'envoi d'un mail sur Internet ? Va faire un tour dans Outlook -> Tools -> Options -> Preferences -> eMail Options -> Tracking Options. Est-ce que la case Delivery Receipt est cochée ? Si oui, décoche-là et réessaie.
	00

20/06/2007, 07h02	#5
cavo789 Membre chevronné Christophe Avonture Développeur Web Inscription : mai 2004 Messages : 649 Détails du profil Informations personnelles : Nom : Christophe Avonture Âge : 37 Localisation : Belgique Informations professionnelles : Activité : Développeur Web Informations forums : Inscription : mai 2004 Messages : 649 Points : 774 Points : 774	Je t'en prie Bien volontier
	00

19/06/2007, 11h59	#3
nicolasferraris Membre régulier Inscription : juin 2006 Messages : 324 Détails du profil Informations personnelles : Localisation : France, Isère (Rhône Alpes) Informations forums : Inscription : juin 2006 Messages : 324 Points : 80 Points : 80	J'avais effectivement cette case coché. Je l'ai décoché et fais un essai Je te donne bientôt le résultat des courses. Merci
	00

19/06/2007, 14h00	#4
nicolasferraris Membre régulier Inscription : juin 2006 Messages : 324 Détails du profil Informations personnelles : Localisation : France, Isère (Rhône Alpes) Informations forums : Inscription : juin 2006 Messages : 324 Points : 80 Points : 80	Ok ca marche nickel Merci à toi
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email