Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Priorité d'un Message SMTP

4 réponses
Avatar
Olivier D
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:importance").Value = "high"
ObjEmail.Fields.Item("urn:schemas:mailheader:priority").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

4 réponses

Avatar
Jacques93
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 "
ObjEmail.Sender = "Serveur Mail "
ObjEmail.To = ""
ObjEmail.Subject = "Sujet"
ObjEmail.HTMLBody = Sz_HT_Mail ' Message HTML

ObjEmail.Fields.Item("urn:schemas:mailheader:importance").Value = "high"
ObjEmail.Fields.Item("urn:schemas:mailheader:priority").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.
Avatar
Jacques93
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:importance").Value = "High"
ObjEmail.Fields.Item("urn:schemas:mailheader:X-Priority").Value = 1

*ObjEmail.Fields.Update*

--

Cordialement,

Jacques.
Avatar
Olivier D
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:importance").Value = "High"
ObjEmail.Fields.Item("urn:schemas:mailheader:X-Priority").Value = 1

*ObjEmail.Fields.Update*

--

Cordialement,

Jacques.



Avatar
Jacques93
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.