Discussion :

[titouneee]

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 :

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

[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...)

[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

[pc75]

Bonjour,

Et si tu ajoutes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
objMessage.From = Cstr(sFromAdress)

[titouneee]

Super ca fonction avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objMessage.From = Cstr(sFromAdress)

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

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

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