Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Outlook Rendre saisie titre obligatoire dans Outlook

Rendre saisie titre obligatoire dans Outlook

9 réponses
Avatar
Yorgoh
Bonjour,

Quelqu'un saurait il m'indiquer comment rendre obligatoire la saisie d'un
titre à un mail avant son envoie dans Outlook 2003 SP2

Merci d'avance.
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
tiah
allo!

http://www.outlookcode.com/codedetail.aspx?idU3


http://www.windowsitpro.com/Articles/Index.cfm?ArticleID'217&DisplayTab =Article

<
tiah


Bonjour,

Quelqu'un saurait il m'indiquer comment rendre obligatoire la saisie d'un
titre à un mail avant son envoie dans Outlook 2003 SP2

Merci d'avance.


Avatar
Yorgoh
Merci!

Bon j'arrive pas à l'intégrer pour l'instant mais je vais regarder un peu.
Si par hasard tu as une petite macro du genre pour la seconde question que
j'ai posé ce serait pas mal du tout!!! ;-))

Yorgo


allo!

http://www.outlookcode.com/codedetail.aspx?idU3


http://www.windowsitpro.com/Articles/Index.cfm?ArticleID'217&DisplayTab=Article

<
tiah


Bonjour,

Quelqu'un saurait il m'indiquer comment rendre obligatoire la saisie d'un
titre à un mail avant son envoie dans Outlook 2003 SP2

Merci d'avance.






Avatar
tiah
salut !

c'était quoi ta deuxième question ?


Merci!

Bon j'arrive pas à l'intégrer pour l'instant mais je vais regarder un peu.
Si par hasard tu as une petite macro du genre pour la seconde question que
j'ai posé ce serait pas mal du tout!!! ;-))

Yorgo


allo!

http://www.outlookcode.com/codedetail.aspx?idU3


http://www.windowsitpro.com/Articles/Index.cfm?ArticleID'217&Displa yTab=Article

<
tiah


Bonjour,

Quelqu'un saurait il m'indiquer comment rendre obligatoire la saisie d'un
titre à un mail avant son envoie dans Outlook 2003 SP2

Merci d'avance.








Avatar
Yorgoh
Bonjour à tous,

J'ai réussi à rendre la saisie obligatoire (cf échanges précédents).
Par contre je n'arrive pas à faire passer mon message au dessus des autres
fenetres actives. Il se trouve donc au dessus de la fenetre "outlook" mais
pas au dessus de la fenetre "message".
Quelqu'un pourrais m'aider?



Pour les amateurs, comme moi, pour réussir l'action ci dessus il faut
changer le niveau de sécurité des macro (outil/macro/securité) et le mettre à
moyen.

La macro est à coller non pas dans un module, mais dans "ThisOutlookSession".
Bien sur il faut redémarrer Outlook et accepter l'activation des macros.

La macro est

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Subject = "" Then
Cancel = True
MsgBox "Please fill in the subject before sending.", vbExclamation,
"Missing Subject"
End If
End Sub




Bonjour,

Quelqu'un saurait il m'indiquer comment rendre obligatoire la saisie d'un
titre à un mail avant son envoie dans Outlook 2003 SP2

Merci d'avance.


Avatar
Oliv'
*Yorgoh que je salut a écrit *:
Bonjour à tous,

J'ai réussi à rendre la saisie obligatoire (cf échanges précédents).
Par contre je n'arrive pas à faire passer mon message au dessus des
autres fenetres actives. Il se trouve donc au dessus de la fenetre
"outlook" mais pas au dessus de la fenetre "message".
Quelqu'un pourrais m'aider?



A mon avis tu utilises word comme éditeur décoche la case dans les options
ou sinon il faut utiliser
Application.activeWIndow
ou ActiveExplorer.windowState= olMaximized
pas testé !

sinon faut ajouter une référence à un objet de Windows mais j sias plus
lequel , teste cela déjà.

ps Si tes utilisateurs sont francophones tu peux changer ton msgbox !!!

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



Pour les amateurs, comme moi, pour réussir l'action ci dessus il faut
changer le niveau de sécurité des macro (outil/macro/securité) et le
mettre à moyen.

La macro est à coller non pas dans un module, mais dans
"ThisOutlookSession". Bien sur il faut redémarrer Outlook et accepter
l'activation des macros.

La macro est

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Subject = "" Then
Cancel = True
MsgBox "Please fill in the subject before sending.",
vbExclamation, "Missing Subject"
End If
End Sub




Bonjour,

Quelqu'un saurait il m'indiquer comment rendre obligatoire la saisie
d'un titre à un mail avant son envoie dans Outlook 2003 SP2

Merci d'avance.




Avatar
Yorgoh
Salut et Merci Oliv,

Malheureusement j'ai testé les deux solutions et le résultat n'a pas
fonctionné.

Je confirme que Word doit être mon "éditeur". Quand je rédige un nouveau
message e processus winword se lance à mon grand désarroi et me bouffe
beaucoup de rame. Je n'ai pas trouvé par contre ou cela se paramètre. Si tu
pouvais etre un poil plus précis dans ton explication à ce sujet, je t'en
serai reconnaissant!


Si ça te revient pour l'autre fonctionnalité à utiliser, n'hésite pas à me
faire signe. En tous cas merci pour les tuyaux.

Yorgo


PS: j'habite en Allemagne, les utilisateurs sont Allemands, Espagnols et
Français.... effectivement l'anglais est notre langue commune ;-)




*Yorgoh que je salut a écrit *:
Bonjour à tous,

J'ai réussi à rendre la saisie obligatoire (cf échanges précédents).
Par contre je n'arrive pas à faire passer mon message au dessus des
autres fenetres actives. Il se trouve donc au dessus de la fenetre
"outlook" mais pas au dessus de la fenetre "message".
Quelqu'un pourrais m'aider?



A mon avis tu utilises word comme éditeur décoche la case dans les options
ou sinon il faut utiliser
Application.activeWIndow
ou ActiveExplorer.windowState= olMaximized
pas testé !

sinon faut ajouter une référence à un objet de Windows mais j sias plus
lequel , teste cela déjà.

ps Si tes utilisateurs sont francophones tu peux changer ton msgbox !!!

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



Pour les amateurs, comme moi, pour réussir l'action ci dessus il faut
changer le niveau de sécurité des macro (outil/macro/securité) et le
mettre à moyen.

La macro est à coller non pas dans un module, mais dans
"ThisOutlookSession". Bien sur il faut redémarrer Outlook et accepter
l'activation des macros.

La macro est

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Subject = "" Then
Cancel = True
MsgBox "Please fill in the subject before sending.",
vbExclamation, "Missing Subject"
End If
End Sub




Bonjour,

Quelqu'un saurait il m'indiquer comment rendre obligatoire la saisie
d'un titre à un mail avant son envoie dans Outlook 2003 SP2

Merci d'avance.









Avatar
Yorgoh
J'ai parlé trop vite,

J'ai trouvé pour désactiver word comme éditeur de texte:
Outils/Options/Format du courrier
puis il y a une case à cocher..




Salut et Merci Oliv,

Malheureusement j'ai testé les deux solutions et le résultat n'a pas
fonctionné.

Je confirme que Word doit être mon "éditeur". Quand je rédige un nouveau
message e processus winword se lance à mon grand désarroi et me bouffe
beaucoup de rame. Je n'ai pas trouvé par contre ou cela se paramètre. Si tu
pouvais etre un poil plus précis dans ton explication à ce sujet, je t'en
serai reconnaissant!


Si ça te revient pour l'autre fonctionnalité à utiliser, n'hésite pas à me
faire signe. En tous cas merci pour les tuyaux.

Yorgo


PS: j'habite en Allemagne, les utilisateurs sont Allemands, Espagnols et
Français.... effectivement l'anglais est notre langue commune ;-)




*Yorgoh que je salut a écrit *:
Bonjour à tous,

J'ai réussi à rendre la saisie obligatoire (cf échanges précédents).
Par contre je n'arrive pas à faire passer mon message au dessus des
autres fenetres actives. Il se trouve donc au dessus de la fenetre
"outlook" mais pas au dessus de la fenetre "message".
Quelqu'un pourrais m'aider?



A mon avis tu utilises word comme éditeur décoche la case dans les options
ou sinon il faut utiliser
Application.activeWIndow
ou ActiveExplorer.windowState= olMaximized
pas testé !

sinon faut ajouter une référence à un objet de Windows mais j sias plus
lequel , teste cela déjà.

ps Si tes utilisateurs sont francophones tu peux changer ton msgbox !!!

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



Pour les amateurs, comme moi, pour réussir l'action ci dessus il faut
changer le niveau de sécurité des macro (outil/macro/securité) et le
mettre à moyen.

La macro est à coller non pas dans un module, mais dans
"ThisOutlookSession". Bien sur il faut redémarrer Outlook et accepter
l'activation des macros.

La macro est

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Subject = "" Then
Cancel = True
MsgBox "Please fill in the subject before sending.",
vbExclamation, "Missing Subject"
End If
End Sub




Bonjour,

Quelqu'un saurait il m'indiquer comment rendre obligatoire la saisie
d'un titre à un mail avant son envoie dans Outlook 2003 SP2

Merci d'avance.











Avatar
Oliv'
*Yorgoh que je salut a écrit *:
J'ai parlé trop vite,

J'ai trouvé pour désactiver word comme éditeur de texte:
Outils/Options/Format du courrier
puis il y a une case à cocher..

Très bien sinon j'ai fait des recherches car j'avais également ce pb de

temps en temps

pour trouver le nom de la classe WIndows d'une application (lpClassname et
lpWindowName)
http://www.mvps.org/accessfr/apis/api0013.htm


Pour afficher l'application au premier plan (code de Frédéric Sigonneau)
Soit on utilise le nom de la fenêtre windows ligne où ou sa classe.

'===================Úns un module standard
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassname As String, ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" _
(ByVal Hwnd As Long) As Long
Declare Function ShowWindow Lib "user32" _
(ByVal Hwnd As Long, ByVal nCmdShow As Long) As Long


' ShowWindow() Commands
Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_NORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_RESTORE = 9
Public Const SW_SHOWDEFAULT = 10
Public Const SW_MAX = 10


Sub ActiveOutlook()
Dim Hwnd As Long
toto = Application.ActiveExplorer.CurrentFolder.Name & " - Microsoft
Outlook"
' en utilisant le nom
'Hwnd = FindWindow(vbNullString, toto)
'en utilisant la classe
Hwnd = FindWindow("rctrl_renwnd32", vbNullString)

If Hwnd = 0 Then Exit Sub
SetForegroundWindow Hwnd
ShowWindow Hwnd, SW_SHOWMAXIMIZED
End Sub

Sub ActiveMailWord()
Dim Hwnd As Long
toto = "Message sans titre"
' en utilisant le nom
Hwnd = FindWindow(vbNullString, toto)
'en utilisant la classe
'Hwnd = FindWindow("OpusApp", vbNullString)

If Hwnd = 0 Then Exit Sub
SetForegroundWindow Hwnd
ShowWindow Hwnd, SW_SHOWMAXIMIZED
End Sub

Donc dans ton code
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Subject = "" Then
ActiveOutlook
Cancel = True
MsgBox "Please fill in the subject before sending.", _
vbExclamation, "Missing Subject"
ActiveMailWord
End If
End Sub

Même si l'éditeur n'est pas Word ca devrait revenir au mail.
OK ?
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


Je confirme que Word doit être mon "éditeur". Quand je rédige un
nouveau message e processus winword se lance à mon grand désarroi et
me bouffe beaucoup de rame. Je n'ai pas trouvé par contre ou cela se
paramètre. Si tu pouvais etre un poil plus précis dans ton
explication à ce sujet, je t'en serai reconnaissant!

J'ai réussi à rendre la saisie obligatoire (cf échanges
précédents). Par contre je n'arrive pas à faire passer mon message
au dessus des autres fenetres actives. Il se trouve donc au dessus
de la fenetre "outlook" mais pas au dessus de la fenetre "message".
Quelqu'un pourrais m'aider?








Avatar
Yorgoh
Chapeau bas Monsieur! Ca marche nickel!!
Il faut que je lise ton code pour bien tout comprendre, mais merci beaucoup
pour cette aide précieuse.

Pour info, effectivement en repassant en éditeur non word la solution
précédente fonctionne. Mais comme je jongle entre 4 langues, j'ai besoin du
correcteur d'orthographe directement accessible dans la solution word.
Donc merci beaucoup pour ton code Oliv!

Yorgo


*Yorgoh que je salut a écrit *:
J'ai parlé trop vite,

J'ai trouvé pour désactiver word comme éditeur de texte:
Outils/Options/Format du courrier
puis il y a une case à cocher..

Très bien sinon j'ai fait des recherches car j'avais également ce pb de

temps en temps

pour trouver le nom de la classe WIndows d'une application (lpClassname et
lpWindowName)
http://www.mvps.org/accessfr/apis/api0013.htm


Pour afficher l'application au premier plan (code de Frédéric Sigonneau)
Soit on utilise le nom de la fenêtre windows ligne où ou sa classe.

'===================Úns un module standard
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassname As String, ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" _
(ByVal Hwnd As Long) As Long
Declare Function ShowWindow Lib "user32" _
(ByVal Hwnd As Long, ByVal nCmdShow As Long) As Long


' ShowWindow() Commands
Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_NORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_RESTORE = 9
Public Const SW_SHOWDEFAULT = 10
Public Const SW_MAX = 10


Sub ActiveOutlook()
Dim Hwnd As Long
toto = Application.ActiveExplorer.CurrentFolder.Name & " - Microsoft
Outlook"
' en utilisant le nom
'Hwnd = FindWindow(vbNullString, toto)
'en utilisant la classe
Hwnd = FindWindow("rctrl_renwnd32", vbNullString)

If Hwnd = 0 Then Exit Sub
SetForegroundWindow Hwnd
ShowWindow Hwnd, SW_SHOWMAXIMIZED
End Sub

Sub ActiveMailWord()
Dim Hwnd As Long
toto = "Message sans titre"
' en utilisant le nom
Hwnd = FindWindow(vbNullString, toto)
'en utilisant la classe
'Hwnd = FindWindow("OpusApp", vbNullString)

If Hwnd = 0 Then Exit Sub
SetForegroundWindow Hwnd
ShowWindow Hwnd, SW_SHOWMAXIMIZED
End Sub

Donc dans ton code
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Subject = "" Then
ActiveOutlook
Cancel = True
MsgBox "Please fill in the subject before sending.", _
vbExclamation, "Missing Subject"
ActiveMailWord
End If
End Sub

Même si l'éditeur n'est pas Word ca devrait revenir au mail.
OK ?
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


Je confirme que Word doit être mon "éditeur". Quand je rédige un
nouveau message e processus winword se lance à mon grand désarroi et
me bouffe beaucoup de rame. Je n'ai pas trouvé par contre ou cela se
paramètre. Si tu pouvais etre un poil plus précis dans ton
explication à ce sujet, je t'en serai reconnaissant!

J'ai réussi à rendre la saisie obligatoire (cf échanges
précédents). Par contre je n'arrive pas à faire passer mon message
au dessus des autres fenetres actives. Il se trouve donc au dessus
de la fenetre "outlook" mais pas au dessus de la fenetre "message".
Quelqu'un pourrais m'aider?