Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Outlook existe t-il une macro pour modifier le champ "classer sous" ?

existe t-il une macro pour modifier le champ "classer sous" ?

7 réponses
Avatar
Jacot
mes contacts s'affiche comme "nom, prénom" dans le champs "classer sous"
je peux les modifier un par un mais souhaiterai utiliser une macro qui
change cette option en "prénom nom" un ensemble de contacts, ce qui
automatiser le processus.
Merci
Jacot
Signaler un problème avec ce contenu

7 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
Oliv'
*Jacot que je salut a écrit *:
mes contacts s'affiche comme "nom, prénom" dans le champs "classer
sous" je peux les modifier un par un mais souhaiterai utiliser une
macro qui change cette option en "prénom nom" un ensemble de
contacts, ce qui automatiser le processus.
Merci
Jacot


Tu dois pouvoir le faire avec celle-ci
Modifier concat en conséquence.
--------------------------------------------------------------------------------

Sub ContactmajFileas()
'pour mettre à jour un champ ici classer sous
'by oliv' 15/09/2006

Dim myolapp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myContacts As Outlook.Items
Dim myItems As Outlook.Items
Dim myItem As Object
Set myolapp = CreateObject("Outlook.Application")
Set myNameSpace = myolapp.GetNamespace("MAPI")
Set myContacts = myNameSpace.GetDefaultFolder(olFolderContacts).Items
' strWhere = "[MobileTelephoneNumber] >''"
Set myItems = myContacts '.Restrict(strWhere)
For Each myItem In myItems
If (myItem.Class = olContact) Then
concat = myItem.LastName & ", " & myItem.FirstName
modif = MsgBox(myItem.FullName & ": " & vbCr & "[" &
myItem.FileAs & "]" & vbCr & "Sera remplacé par : " & vbCr & "[" & concat &
"]", vbYesNo)

If modif = vbYes Then
myItem.FileAs = concat
myItem.Save
End If
concat = ""
modif = ""

End If
Next
End Sub

--------------------------------------------------------------------------------

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

Avatar
Jacot
Oliv,
Merci pour ta réponse rapide.
J'ai un message d'erreur à la compil sur la ligne :
modif = MsgBox(myItem.FullName & ": " & vbCr & "[" &
myItem.FileAs & "]" & vbCr & "Sera remplacé par : " & vbCr & "[" & concat &
"]", vbYesNo)

Message :
Erreur de compilation, erreur de syntaxe

Une idée ?
Encore merci
Jacques



*Jacot que je salut a écrit *:
mes contacts s'affiche comme "nom, prénom" dans le champs "classer
sous" je peux les modifier un par un mais souhaiterai utiliser une
macro qui change cette option en "prénom nom" un ensemble de
contacts, ce qui automatiser le processus.
Merci
Jacot


Tu dois pouvoir le faire avec celle-ci
Modifier concat en conséquence.
--------------------------------------------------------------------------------

Sub ContactmajFileas()
'pour mettre à jour un champ ici classer sous
'by oliv' 15/09/2006

Dim myolapp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myContacts As Outlook.Items
Dim myItems As Outlook.Items
Dim myItem As Object
Set myolapp = CreateObject("Outlook.Application")
Set myNameSpace = myolapp.GetNamespace("MAPI")
Set myContacts = myNameSpace.GetDefaultFolder(olFolderContacts).Items
' strWhere = "[MobileTelephoneNumber] >''"
Set myItems = myContacts '.Restrict(strWhere)
For Each myItem In myItems
If (myItem.Class = olContact) Then
concat = myItem.LastName & ", " & myItem.FirstName
modif = MsgBox(myItem.FullName & ": " & vbCr & "[" &
myItem.FileAs & "]" & vbCr & "Sera remplacé par : " & vbCr & "[" & concat &
"]", vbYesNo)

If modif = vbYes Then
myItem.FileAs = concat
myItem.Save
End If
concat = ""
modif = ""

End If
Next
End Sub

--------------------------------------------------------------------------------

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







Avatar
Oliv'
*Jacot que je salut a écrit *:
Oliv,
Merci pour ta réponse rapide.
J'ai un message d'erreur à la compil sur la ligne :
modif = MsgBox(myItem.FullName & ": " & vbCr & "[" &
myItem.FileAs & "]" & vbCr & "Sera remplacé par : " & vbCr & "[" &
concat & "]", vbYesNo)

Message :
Erreur de compilation, erreur de syntaxe



erreur de coupure due à la messagerie
mettre tout sur la même ligne
Oliv'

Une idée ?
Encore merci
Jacques



*Jacot que je salut a écrit *:
mes contacts s'affiche comme "nom, prénom" dans le champs "classer
sous" je peux les modifier un par un mais souhaiterai utiliser une
macro qui change cette option en "prénom nom" un ensemble de
contacts, ce qui automatiser le processus.
Merci
Jacot


Tu dois pouvoir le faire avec celle-ci
Modifier concat en conséquence.
--------------------------------------------------------------------------------

Sub ContactmajFileas()
'pour mettre à jour un champ ici classer sous
'by oliv' 15/09/2006

Dim myolapp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myContacts As Outlook.Items
Dim myItems As Outlook.Items
Dim myItem As Object
Set myolapp = CreateObject("Outlook.Application")
Set myNameSpace = myolapp.GetNamespace("MAPI")
Set myContacts >> myNameSpace.GetDefaultFolder(olFolderContacts).Items ' strWhere >> "[MobileTelephoneNumber] >''" Set myItems = myContacts
'.Restrict(strWhere) For Each myItem In myItems
If (myItem.Class = olContact) Then
concat = myItem.LastName & ", " & myItem.FirstName
modif = MsgBox(myItem.FullName & ": " & vbCr & "[" &
myItem.FileAs & "]" & vbCr & "Sera remplacé par : " & vbCr & "[" &
concat & "]", vbYesNo)

If modif = vbYes Then
myItem.FileAs = concat
myItem.Save
End If
concat = ""
modif = ""

End If
Next
End Sub

--------------------------------------------------------------------------------

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





Avatar
Jacot
OK,
C'est fait !
Merci encore, çà marche du tonnerre.
Existe t-il un site ou trouver des exemples de macros ?
Du style modifier le format des numéros de tléphones, etc ...
A+
Jacot



*Jacot que je salut a écrit *:
Oliv,
Merci pour ta réponse rapide.
J'ai un message d'erreur à la compil sur la ligne :
modif = MsgBox(myItem.FullName & ": " & vbCr & "[" &
myItem.FileAs & "]" & vbCr & "Sera remplacé par : " & vbCr & "[" &
concat & "]", vbYesNo)

Message :
Erreur de compilation, erreur de syntaxe



erreur de coupure due à la messagerie
mettre tout sur la même ligne
Oliv'

Une idée ?
Encore merci
Jacques



*Jacot que je salut a écrit *:
mes contacts s'affiche comme "nom, prénom" dans le champs "classer
sous" je peux les modifier un par un mais souhaiterai utiliser une
macro qui change cette option en "prénom nom" un ensemble de
contacts, ce qui automatiser le processus.
Merci
Jacot


Tu dois pouvoir le faire avec celle-ci
Modifier concat en conséquence.
--------------------------------------------------------------------------------

Sub ContactmajFileas()
'pour mettre à jour un champ ici classer sous
'by oliv' 15/09/2006

Dim myolapp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myContacts As Outlook.Items
Dim myItems As Outlook.Items
Dim myItem As Object
Set myolapp = CreateObject("Outlook.Application")
Set myNameSpace = myolapp.GetNamespace("MAPI")
Set myContacts > >> myNameSpace.GetDefaultFolder(olFolderContacts).Items ' strWhere > >> "[MobileTelephoneNumber] >''" Set myItems = myContacts
'.Restrict(strWhere) For Each myItem In myItems
If (myItem.Class = olContact) Then
concat = myItem.LastName & ", " & myItem.FirstName
modif = MsgBox(myItem.FullName & ": " & vbCr & "[" &
myItem.FileAs & "]" & vbCr & "Sera remplacé par : " & vbCr & "[" &
concat & "]", vbYesNo)

If modif = vbYes Then
myItem.FileAs = concat
myItem.Save
End If
concat = ""
modif = ""

End If
Next
End Sub

--------------------------------------------------------------------------------

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










Avatar
Oliv'
*Jacot que je salut a écrit *:
OK,
C'est fait !
Merci encore, çà marche du tonnerre.


Excellent !

Existe t-il un site ou trouver des exemples de macros ?
Du style modifier le format des numéros de tléphones, etc ...
A+
Jacot


Tu trouveras matières là
http://www.outlookcode.com/ excellent site de sue Mosher

http://www.slovaktech.com/code_samples.htm

http://www.outlookexchange.com/articles/home/outlookobjectmodel.asp

Mais tout est en anglais.

http://www.3stone.be/access/articles.php?lng=fr&pg‰


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

Avatar
sirem
Jacot a écrit le 19/09/2006 à 12h39 :
OK,
C'est fait !
Merci encore, çà marche du tonnerre.
Existe t-il un site ou trouver des exemples de macros ?
Du style modifier le format des numéros de tléphones, etc ...
A+
Jacot



*Jacot que je salut a écrit *:
Oliv,
Merci pour ta réponse rapide.
J'ai un message d'erreur à la compil sur la ligne :
modif = MsgBox(myItem.FullName & ": " & vbCr &
"[" &
myItem.FileAs & "]" & vbCr & "Sera remplacé
par : " & vbCr & "[" &
concat & "]", vbYesNo)

Message :
Erreur de compilation, erreur de syntaxe




erreur de coupure due à la messagerie
mettre tout sur la même ligne
Oliv'

Une idée ?
Encore merci
Jacques



*Jacot que je salut a écrit
*:
mes contacts s'affiche comme "nom, prénom" dans le champs
"classer
sous" je peux les modifier un par un mais souhaiterai utiliser une
macro qui change cette option en "prénom nom" un ensemble
de
contacts, ce qui automatiser le processus.
Merci
Jacot



Tu dois pouvoir le faire avec celle-ci
Modifier concat en conséquence.
--------------------------------------------------------------------------------

Sub ContactmajFileas()
'pour mettre à jour un champ ici classer sous
'by oliv' 15/09/2006

Dim myolapp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myContacts As Outlook.Items
Dim myItems As Outlook.Items
Dim myItem As Object
Set myolapp = CreateObject("Outlook.Application")
Set myNameSpace = myolapp.GetNamespace("MAPI")
Set myContacts > >>
myNameSpace.GetDefaultFolder(olFolderContacts).Items ' strWhere >
>> "[MobileTelephoneNumber] >''" Set myItems =
myContacts
'.Restrict(strWhere) For Each myItem In myItems
If (myItem.Class = olContact) Then
concat = myItem.LastName & ", " & myItem.FirstName
modif = MsgBox(myItem.FullName & ": " & vbCr &
"[" &
myItem.FileAs & "]" & vbCr & "Sera
remplacé par : " & vbCr & "[" &
concat & "]", vbYesNo)

If modif = vbYes Then
myItem.FileAs = concat
myItem.Save
End If
concat = ""
modif = ""

End If
Next
End Sub

--------------------------------------------------------------------------------

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












Bonjour
J'ai exactement le même problème, mais je ne sais pas comment m'y prendre.
Je n'ai jamais utiliser de macro
Merci pour votre aide
Avatar
sirem
Jacot a écrit le 15/09/2006 à 11h22 :
mes contacts s'affiche comme "nom, prénom" dans le champs
"classer sous"
je peux les modifier un par un mais souhaiterai utiliser une macro qui
change cette option en "prénom nom" un ensemble de contacts,
ce qui
automatiser le processus.
Merci
Jacot


Bonjour
Je ne sais vraiment pas comment m'y prendre...je n'ai utilisé de macro
Pouvez vous m'indiquer la démarche
Merci