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

Bonjour Olivier D,
Olivier D a écrit :
> 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.

Outlook Express ou Outlook Office ?

> 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

Pour Outlook Office, essaie :

ObjEmail.Fields.Item(cdoImportance) = cdoHigh
ObjEmail.Fields.Item(cdoPriority) = cdoPriorityUrgent
ObjEmail.Fields.Update

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


--

Cordialement,

Jacques.

Jacques93 a écrit :
>
> Pour Outlook Office, essaie :
>
> ObjEmail.Fields.Item(cdoImportance) = cdoHigh
> ObjEmail.Fields.Item(cdoPriority) = cdoPriorityUrgent
> ObjEmail.Fields.Update
>

Code un peu plus complet, opérationnel avec Outlook Office 2003 et
2007, Outlook Express 6.0, Windows Mail, Windows Live Mail :

' Outlook Office
ObjEmail.Fields.Item(cdoImportance) = cdoHigh
ObjEmail.Fields.Item(cdoPriority) = cdoPriorityUrgent

' Outlook Express 6, Windows Mail, Windows Live Mail
ObjEmail.Fields.Item("urn:schemas:mailheader:impor tance").Value = "High"
ObjEmail.Fields.Item("urn:schemas:mailheader:X-Priority").Value = 1

*ObjEmail.Fields.Update*

--

Cordialement,

Jacques.

Bonjour Jacques

C'était bien la commande ObjEmail.Fields.Update qu'il manquait.
Cela fonctionne correctement maintenant.

Merci pour ton aide précieuse




"Jacques93" a écrit :

> Jacques93 a écrit :
> >
> > Pour Outlook Office, essaie :
> >
> > ObjEmail.Fields.Item(cdoImportance) = cdoHigh
> > ObjEmail.Fields.Item(cdoPriority) = cdoPriorityUrgent
> > ObjEmail.Fields.Update
> >
>
> Code un peu plus complet, opérationnel avec Outlook Office 2003 et
> 2007, Outlook Express 6.0, Windows Mail, Windows Live Mail :
>
> ' Outlook Office
> ObjEmail.Fields.Item(cdoImportance) = cdoHigh
> ObjEmail.Fields.Item(cdoPriority) = cdoPriorityUrgent
>
> ' Outlook Express 6, Windows Mail, Windows Live Mail
> ObjEmail.Fields.Item("urn:schemas:mailheader:impor tance").Value = "High"
> ObjEmail.Fields.Item("urn:schemas:mailheader:X-Priority").Value = 1
>
> *ObjEmail.Fields.Update*
>
> --
>
> Cordialement,
>
> Jacques.
>

Olivier D a écrit :
> Bonjour Jacques
>
> C'était bien la commande ObjEmail.Fields.Update qu'il manquait.
> Cela fonctionne correctement maintenant.
>
> Merci pour ton aide précieuse
>

Merci du retour :-)

--

Cordialement,

Jacques.