Discussion :

[Herve_be]

Je présumes que tu envoie un mail à XXXX@yahoo.fr, et que tu en ai notifié avec l'adr mail dans l'objet par un autre mail envoyé à ta boite.

Non.
Le programme envoie un mail à XXXX@yahoo.fr (ou tout autre mail) avec copie BCC à moi.
Les en-têtes que j'ai données ne sont fatalement pas celles du message qui arrive dans le compte XXXX@yahoo.fr car il ne m'appartient pas
mais celles reçues dans mon compte XXXX@skynet.be

Tu as 2 pistes à explorer:
- Le contenu du msg
- La façon dont il est envoyé (soft :respect des RFC, ton CDO est ancien donc peut-être plus aux normes comme déjà dit)

Je vais finir par me demander si tu lis mes réponses.
Le contenu du message est toujours le même, la façon avec laquelle il est envoyé aussi, je ne sais pas pourquoi il arrive parfois dans ma boîte de réception et parfois dans Junk Mail, et visiblement toi non plus.

Si quelqu'un d'autre a une idée ...

[chrtophe]

Non.
Le programme envoie un mail à XXXX@yahoo.fr (ou tout autre mail) avec copie BCC à moi.

c'est pareil

Le contenu du message est toujours le même, la façon avec laquelle il est envoyé aussi, je ne sais pas pourquoi il arrive parfois dans ma boîte de réception et parfois dans Junk Mail, et visiblement toi non plus.

Le contenu n'est pas strictement le même.
Ne serais-ce que le contenu des champs IronPort-Phdr, X-IPAS-Result, X-MGA-submission ne sont pas les mêmes.

Je ne prétend pas savoir, j’essaye de t'aider.

[Herve_be]

Le contenu n'est pas strictement le même.
Ne serais-ce que le contenu des champs IronPort-Phdr, X-IPAS-Result, X-MGA-submission ne sont pas les mêmes.

Il y a bien d'autres valeurs qui sont différentes, mais comme ce n'est pas moi qui les y mets, je ne sais toujours pas pourquoi certains mails vont en junk et pas d'autres.

Voici les seuls paramètres que je mets dans le mail

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
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "send.one.com"
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True  'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "XXXX@rudyv.be"
ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxxxxxxxxxx"
ObjSendMail.Configuration.Fields.Update
ObjSendMail.From = "XXXX@rudyv.be"
ObjSendMail.To = destinataire
ObjSendMail.BCC = "XXXX@rudyv.net"
ObjSendMail.Subject = "Mot de passe Hervé Reef Tools pour " & Userid & " (" & Prénom.Text & " " & Nom.Text & ") @ " & Mail.Text
ObjSendMail.TextBody = "Bonjour " & Prénom.Text & " " & Nom.Text & "," & vbNewLine
ObjSendMail.TextBody = ObjSendMail.TextBody & "Votre nom d'utilisateur : " & Userid & vbNewLine
ObjSendMail.TextBody = ObjSendMail.TextBody & "Votre mot de passe : " & AleaPIN & vbNewLine & vbNewLine
ObjSendMail.TextBodyPart.Charset = "utf-8"

Entretemps j'ai ajouté une règle dans Outlook afin de déplacer les mails qui arriveraient dans Junk vers ma boîte de réception, ainsi même si je ne sais toujours pas pourquoi ça se produit, au moins je n'ai plus l'inconvénient.