Envoi mail par CDO - Courrier Indésirable

Version imprimable

Bonjour,

Lorsque j'envoi un mail en utilisant l'outil CDO, mes mails arrivent automatiquement dans le courrier indésirable... Savez vous comment je peux faire pour qu'ils arrivent dans la boite de réception ?

Mon code :

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
 
Set objMessage = CreateObject("CDO.Message")
if bDebug then MsgBox "Objet : " & sObject 
objMessage.Subject = sObject
objMessage.Sender = Cstr(sFromAdress)
objMessage.To = Cstr(sToAdress)
 
sCorps = mdata.readData(insContenu)
objMessage.TextBody = sCorps
if bDebug then MsgBox "Corps du mail : " & sCorps
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "elancdd01"
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
 
objMessage.Configuration.Fields.Update
 
objMessage.Send                           
 
Set objMessage = Nothing 
 
If ErrorCode() = 0 then MsgBox ("Mail correctement envoyé")

Titoune

07/06/2007, 17h28
SfJ5Rpw8

dans courrier indésirable de ton destinataire., je suppose .. à tu essayé
différent destinataires histoire de voir si c'est la même chose partout..?

le mail reçu à bien les bonnes caractéristiques (expéditeur...)
07/06/2007, 17h38
titouneee

oui c'est bien dans les courriers indésirables du destinataire. Ca fait pareil si je l'envoie à un autre destinataire (le destinataire restant sur le meme réseau, cad mon réseau d'entreprise).

Dans le mail, toutes les informations sont correctes (expéditeur, destinataire, objet du mail, contenu). Par contre, quand je regarde le mail dans la liste de ts les mails (sans entrer dedans), le champ expéditeur est vide, c'est assez bizarre...

Titoune
08/06/2007, 08h09
pc75
Bonjour,

Et si tu ajoutes :
Code:

1 2 objMessage.From = Cstr(sFromAdress)
08/06/2007, 09h37
titouneee

Super ca fonction avec

Code:

objMessage.From = Cstr(sFromAdress)

mon message arrive dans l'inbox et non plus dans les courriers indésirables. :king:

Par contre, j'ai une autre question ...

Dans l'entreprise, on ne voit pas apparaitre l'adresse complète des expéditeurs et destinataires, uniquement leur nom et prénom.
Ex : au lieu de voir tdupond@nomentreprise.com, on voit Toto DUPOND.

Dans mes mails, ce raccourcis est correct pour les destinataires du mail, en revanche pour les expéditeurs, je vois leur adresse complète apparaitre a la place de leur prénom et nom.

Savez-vous d'ou cela peut venir ?

Merci de votre aide

Titoune
08/06/2007, 09h48
abertaud

Cela vient du fait que tes destinataires font partie de l'annuaire, et que ton client mail est donc capable de reconnaître leur identité.

D'ailleurs si tu essaies de t'envoyer toi-même un mail en mettant ton adresse complète en destinataire, tu verras dans le message reçu que c'est ton nom qui apparait...
08/06/2007, 11h34
titouneee

Je comprends bien, mais ce n'est pas possible d'avoir mon nom à la place de l'adresse de l'expéditeur ?

Lorsque je m'envoie un mail à moi meme, j'arrive à obtenir mon nom dans l'adresse de l'expéditeur au lieu de son adresse mail.

Titoune
08/06/2007, 12h15
abertaud

Es-tu certain que tu es bien présent dans la liste des contacts de tes destinataires ?
08/06/2007, 12h23
abertaud

Apparemment, si tu mets entre cotes ton nom dans le destinataire, ça a l'air de fonctionner :

Code:

Message.From = "'Nom Prenom'"

Il faut bien sûr que tu utilises la même syntaque que dans l'annuaire pour ton nom !

Enfin ca marche pour moi en tout cas, je te laisse tester de ton côté...
08/06/2007, 14h41
titouneee

Ca ne fonctionne pas en indiquant directement le nom et le prénom. Je vais voir avec mon responsable réseau.

Merci pr votre aide

Titoune