Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Outlook Macro sous outlook 2003

Macro sous outlook 2003

6 réponses
Avatar
Jean-Marie
Bonjour,

j'aurais aimé créer une macro qui me permettent de copier automatiquement le
contenu de contact/champ utilisateur 1 dans l'autre champ contact/champ
utilisateur 2.

J'ai essayé de faire un bout de code mais sans résultat.

Si vous avez une idée...

Merci pour les tuyaux,

Jean-Marie
Signaler un problème avec ce contenu

6 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'
*Jean-Marie que je salut a écrit *:
Bonjour,

j'aurais aimé créer une macro qui me permettent de copier
automatiquement le contenu de contact/champ utilisateur 1 dans
l'autre champ contact/champ utilisateur 2.

J'ai essayé de faire un bout de code mais sans résultat.

Si vous avez une idée...

Merci pour les tuyaux,

Jean-Marie


c'est quoi ces champs ?
sur 1 seul contact ?ceux selectionné ?
quelle version ?
avec serveur exchange ?

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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
Jean-Marie
En fait, je suis sur exchange 2003/Outlook 2003

Il s'agit pour les 680 contacts de transférer le contenu du <champ
utilisateur 1> dans le <champ utilisateur 2> et à la mano, c'est un peu
...chiant.

Merci pour les tuyaux éventuels.

"Oliv'" <(supprimerceci) a écrit dans le
message de news:

*Jean-Marie que je salut a écrit *:
Bonjour,

j'aurais aimé créer une macro qui me permettent de copier
automatiquement le contenu de contact/champ utilisateur 1 dans
l'autre champ contact/champ utilisateur 2.

J'ai essayé de faire un bout de code mais sans résultat.

Si vous avez une idée...

Merci pour les tuyaux,

Jean-Marie


c'est quoi ces champs ?
sur 1 seul contact ?ceux selectionné ?
quelle version ?
avec serveur exchange ?

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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
JièL
Bonjoir(c) Jean-Marie

En fait, je suis sur exchange 2003/Outlook 2003

Il s'agit pour les 680 contacts de transférer le contenu du <champ
utilisateur 1> dans le <champ utilisateur 2> et à la mano, c'est un peu
...chiant.


Et en vite (très vite) fait et sans macros, ça vous dis ?
Exporter vers Excel, intervertissez les colonne <champ utilisateur 1>
avec <champ utilisateur 2> et réimporter... non ?

Merci pour les tuyaux éventuels.


pppffffffff encore avec des tuyaux... ma parole, on nous prend pour des
plombiers ;-))))))))

--
JièL / Jean-Louis GOUBERT
Là bas mieux qu'en face ;-) http://forums.offices.free.fr/
La FAQ Outlook est là : http://faq.outlook.free.fr/
Les stats CDO : http://faq.outlook.free.fr/cdo/

Avatar
Oliv'
*Jean-Marie que je salut a écrit *:
En fait, je suis sur exchange 2003/Outlook 2003

Il s'agit pour les 680 contacts de transférer le contenu du <champ
utilisateur 1> dans le <champ utilisateur 2> et à la mano, c'est un
peu ...chiant.


a adapter :


-###############################

Private Sub Contactmajfullname()
'pour mettre à jour un champ

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")
For i = 1 To myNameSpace.Folders.Count
'MsgBox myNameSpace.Folders(i).Name
If myNameSpace.Folders(i).Name = "Boîte aux lettres - toto" Then
Exit For
End If
Next i
MsgBox myNameSpace.Folders(i).Name
For j = 1 To myNameSpace.Folders(i).Folders.Count

If myNameSpace.Folders(i).Folders(j).Name = "Contacts" Then
Set myContacts = myNameSpace.Folders(i).Folders(j).Items
Exit For
End If
Next j
MsgBox myNameSpace.Folders(i).Folders(j).Name

'strWhere = "[Nom] = ','"
strWhere = "[Nom] > 'a' And [Nom] < 'azzzz'"
Set myItems = myContacts.Restrict(strWhere)

For Each myItem In myItems
If (myItem.Class = olContact) Then
MsgBox "Full=" & myItem.FullName & vbCrLf & "Last=" &
myItem.LastName & vbCrLf & "First=" & myItem.FirstName & vbCrLf & "lastand
first=" & myItem.LastNameAndFirstName
concat = Replace(myItem.LastName, ",", "")
myItem.LastName = concat
myItem.Save
' concat = ""

End If
Next
end sub

Avatar
Jean-Marie
Merci pour le bout de code que j'ai pu adapter.

Encore une petite dernière question.

Ce coup ci, je voudrais récupérer le contenu d'un champ que j'ai créé dans
ce formulaire comme étant un élément de celui-ci.

Pb = Je ne le trouve pas quand j'essaie de taper dedans avec le code :

myItem.moncontrol

Si vous avez une ultime idée.

Merci encore pour tout,

Cordialement,

Jean-MArie


"Oliv'" <(supprimerceci) a écrit dans le
message de news: uLsV0$

*Jean-Marie que je salut a écrit *:
En fait, je suis sur exchange 2003/Outlook 2003

Il s'agit pour les 680 contacts de transférer le contenu du <champ
utilisateur 1> dans le <champ utilisateur 2> et à la mano, c'est un
peu ...chiant.


a adapter :


-###############################

Private Sub Contactmajfullname()
'pour mettre à jour un champ

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")
For i = 1 To myNameSpace.Folders.Count
'MsgBox myNameSpace.Folders(i).Name
If myNameSpace.Folders(i).Name = "Boîte aux lettres - toto" Then
Exit For
End If
Next i
MsgBox myNameSpace.Folders(i).Name
For j = 1 To myNameSpace.Folders(i).Folders.Count

If myNameSpace.Folders(i).Folders(j).Name = "Contacts" Then
Set myContacts = myNameSpace.Folders(i).Folders(j).Items
Exit For
End If
Next j
MsgBox myNameSpace.Folders(i).Folders(j).Name

'strWhere = "[Nom] = ','"
strWhere = "[Nom] > 'a' And [Nom] < 'azzzz'"
Set myItems = myContacts.Restrict(strWhere)

For Each myItem In myItems
If (myItem.Class = olContact) Then
MsgBox "Full=" & myItem.FullName & vbCrLf & "Last=" &
myItem.LastName & vbCrLf & "First=" & myItem.FirstName & vbCrLf & "lastand
first=" & myItem.LastNameAndFirstName
concat = Replace(myItem.LastName, ",", "")
myItem.LastName = concat
myItem.Save
' concat = ""

End If
Next
end sub





Avatar
Oliv'
*Jean-Marie que je salut a écrit *:
Merci pour le bout de code que j'ai pu adapter.

Encore une petite dernière question.

Ce coup ci, je voudrais récupérer le contenu d'un champ que j'ai créé
dans ce formulaire comme étant un élément de celui-ci.

Pb = Je ne le trouve pas quand j'essaie de taper dedans avec le code :

myItem.moncontrol

Si vous avez une ultime idée.


La dernière alors !! ;--)
Je n'ai jamais utilisé de formulaire
Mais dans le code tu remplaces la déclaration de Myitem

Dim Myitem as Outlook.ContactItem

Tu mets un point d'arret en dessous de For each myitem

Tu ouvres la fenetre des variables locales et tu développes Myitem tu
devrais y trouver quelque part ton champ.

Tu peux aussi mettre un espion.

Ok ?

Oliv'


"Oliv'" <(supprimerceci) a écrit dans le
message de news: uLsV0$

*Jean-Marie que je salut a écrit
*:
En fait, je suis sur exchange 2003/Outlook 2003

Il s'agit pour les 680 contacts de transférer le contenu du <champ
utilisateur 1> dans le <champ utilisateur 2> et à la mano, c'est un
peu ...chiant.


a adapter :


-###############################

Private Sub Contactmajfullname()
'pour mettre à jour un champ

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")
For i = 1 To myNameSpace.Folders.Count
'MsgBox myNameSpace.Folders(i).Name
If myNameSpace.Folders(i).Name = "Boîte aux lettres - toto" Then
Exit For
End If
Next i
MsgBox myNameSpace.Folders(i).Name
For j = 1 To myNameSpace.Folders(i).Folders.Count

If myNameSpace.Folders(i).Folders(j).Name = "Contacts" Then
Set myContacts = myNameSpace.Folders(i).Folders(j).Items
Exit For
End If
Next j
MsgBox myNameSpace.Folders(i).Folders(j).Name

'strWhere = "[Nom] = ','"
strWhere = "[Nom] > 'a' And [Nom] < 'azzzz'"
Set myItems = myContacts.Restrict(strWhere)

For Each myItem In myItems
If (myItem.Class = olContact) Then
MsgBox "Full=" & myItem.FullName & vbCrLf & "Last=" &
myItem.LastName & vbCrLf & "First=" & myItem.FirstName & vbCrLf &
"lastand first=" & myItem.LastNameAndFirstName
concat = Replace(myItem.LastName, ",", "")
myItem.LastName = concat
myItem.Save
' concat = ""

End If
Next
end sub