Bonjour,

Je souhaite envoyer un mail via SMTP avec une importance Haute en VB6.
J'ai parcouru le web pour essayer de trouver une solution Ã*** mon problème.
J'ai trouvé beaucoup de solution dont celle ci-dessous.
L'envoi du mail fonctionne correctement mais dans outlook , il n'y a aucune
mention de priorité haute.
Quelqu'un a t il déjÃ*** rencontré ce problème ?
Pourriez-vous m'aider ?
Merci d'avance pour votre aide

Olivier

Voici le code

Dim ObjEmail As New CDO.Message


ObjEmail.From = "Olivier <olivier***test.com>"
ObjEmail.Sender = "Serveur Mail <info***test.com>"
ObjEmail.To = "Olivier***test.com"
ObjEmail.Subject = "Sujet"
ObjEmail.HTMLBody = Sz_HT_Mail ' Message HTML

ObjEmail.Fields.Item("urn:schemas:mailheader:impor tance").Value = "high"
ObjEmail.Fields.Item("urn:schemas:mailheaderrior ity").Value = 1

With ObjEmail.Configuration.Fields
.Item(CdoConfiguration.cdoSendUsingMethod) = 2 ' MAIL_SENDUSING
.Item(CdoConfiguration.cdoSMTPServer) = "mail.server.com"
.Item(CdoConfiguration.cdoSMTPServerPort) = 25 .Update
End With
ObjEmail.Send