Logo GNT
Actualités Tests & Guides Bons Plans
Gemini 3 Shein GTA 6 iPhone 17 Switch 2 ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel getaddress

getaddress

4 réponses
Avatar
Fred
bonjour

quelqu'un peut-il m'aider sur l'utilisation de getaddress en vba
(ouverture du carnet d'adresse outlook pour sélectionner
une adresse et l'insérer dans un document)
j'ai posé la question sur public.fr.word mais ça ne semble pas inspirer les
gentils contributeurs.

merci

Fred
Signaler un problème avec ce contenu

4 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
michdenis
Bonjour Fred,


Voilà , j'ai cette procédure dont j'ignore la provenance, et pour faire de pair avec ton "GetAddress", les commentaires
sont en anglais.

Ceci est pour Microsoft Outlook.

Tu dois ajouter à ton projet : "Microsoft Outlook 10.0 Objects librairy"

Et dans la boîte de dialogue qui s'ouvre : Le respect de la casse est de mise pour la recherche.


'---------------------------------------
Sub advancefind()

Dim myOlApp As Object
Dim myNameSpace As Object
Dim MyContacts As Object
'Get the name your looking for. Case sensitive and MUST be exact.
namex = InputBox("Enter the name of the contact your looking for" _
& Chr(13) & "This can be first, last or full name", _
"Search", "The search is Case sensitive")

'Create the Poper variable to access the contact items.
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set MyContacts = myNameSpace.GetDefaultFolder(olFolderContacts).Items

'Start searching thrue all the contacts one at a time
For Each cont In MyContacts
'Check all fields that you want to be part of the search.
'Fields can be added or removed from here.
If cont.FirstName = namex Or cont.LastName = namex Or _
cont.FullName = namex Then
A = cont.Gender
'once you find a match. check to make sure its
'the right one. You may have 5 John's listed...

Responce = MsgBox(cont.FullName & Chr(13) & _
"Is This the contact your looking for? " & Chr(13) & _
"Clicking Yes will open the contact and exit the search" & Chr(13) & _
"Clicking No will resume the search", vbYesNo, "Search")

If Responce = vbYes Then
'If yes is clicked Display the contact and end the search
cont.Display
Exit Sub
End If
End If
Next cont
'Show that the search is done...
MsgBox "The search is done", vbOKOnly, "Search"
End Sub
'---------------------------------------


Salutations!



"Fred" <nospam> a écrit dans le message de news:
bonjour

quelqu'un peut-il m'aider sur l'utilisation de getaddress en vba
(ouverture du carnet d'adresse outlook pour sélectionner
une adresse et l'insérer dans un document)
j'ai posé la question sur public.fr.word mais ça ne semble pas inspirer les
gentils contributeurs.

merci

Fred
Avatar
Clément Marcotte
Tu as posé ta question ce matin à 4 h27 et tu brailles que tu n'as pas
eu de réponse à peine 8 heures plus tard. Le service d'esclavage te
dis d'aller voir là et de te débrouiller tout seul.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnout98/html/msdn_ouvbsvba.asp

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/off2000/html/olconUsingOutlookVBAToRespondToOutlookEvents.asp

http://builder.com.com/5100-6373-5032717.html

http://www.microsoft.com/france/msdn/technologies/outils/office/info/info.asp?mar=/france/msdn/technologies/outils/office/info/outlook2002-devsol.html&xmlpath=/france/msdn/technologies/outils/office/off_inforef.xml&rang=7


"Fred" <nospam> a écrit dans le message de
news:
bonjour

quelqu'un peut-il m'aider sur l'utilisation de getaddress en vba
(ouverture du carnet d'adresse outlook pour sélectionner
une adresse et l'insérer dans un document)
j'ai posé la question sur public.fr.word mais ça ne semble pas
inspirer les

gentils contributeurs.

merci

Fred




Avatar
Fred
bonjour

voir réponse sur microsoft.public.fr.word

fred

"Clément Marcotte" a écrit dans le message
de news:Oab$
Tu as posé ta question ce matin à 4 h27 et tu brailles que tu n'as pas
eu de réponse à peine 8 heures plus tard. Le service d'esclavage te
dis d'aller voir là et de te débrouiller tout seul.


http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnout98/html/msdn_ouvbsvba.asp



http://msdn.microsoft.com/library/default.asp?url=/library/en-us/off2000/html/olconUsingOutlookVBAToRespondToOutlookEvents.asp


http://builder.com.com/5100-6373-5032717.html


http://www.microsoft.com/france/msdn/technologies/outils/office/info/info.asp?mar=/france/msdn/technologies/outils/office/info/outlook2002-devsol.html&xmlpath=/france/msdn/technologies/outils/office/off_inforef.xml&rang=7



"Fred" <nospam> a écrit dans le message de
news:
bonjour

quelqu'un peut-il m'aider sur l'utilisation de getaddress en vba
(ouverture du carnet d'adresse outlook pour sélectionner
une adresse et l'insérer dans un document)
j'ai posé la question sur public.fr.word mais ça ne semble pas
inspirer les

gentils contributeurs.

merci

Fred







Avatar
Fred
bonjour

merci pour ta réponse mais j'ai du mal m'expliquer

je souhaite simplement pouvoir
en vba ouvrir la fenètre corespondant au bouton "insertion adresse"
de word
sélectionner le carnet
(dans mon cas un carnet outlook partagé)
puis le contact et insérer son adresse (définie par MiseEnPageAdresse)
dans le champ de formulaire.

merci

"michdenis" a écrit dans le message de
news:
Bonjour Fred,


Voilà , j'ai cette procédure dont j'ignore la provenance, et pour faire de
pair avec ton "GetAddress", les commentaires

sont en anglais.

Ceci est pour Microsoft Outlook.

Tu dois ajouter à ton projet : "Microsoft Outlook 10.0 Objects librairy"

Et dans la boîte de dialogue qui s'ouvre : Le respect de la casse est de
mise pour la recherche.



'---------------------------------------
Sub advancefind()

Dim myOlApp As Object
Dim myNameSpace As Object
Dim MyContacts As Object
'Get the name your looking for. Case sensitive and MUST be exact.
namex = InputBox("Enter the name of the contact your looking for" _
& Chr(13) & "This can be first, last or full name", _
"Search", "The search is Case sensitive")

'Create the Poper variable to access the contact items.
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set MyContacts = myNameSpace.GetDefaultFolder(olFolderContacts).Items

'Start searching thrue all the contacts one at a time
For Each cont In MyContacts
'Check all fields that you want to be part of the search.
'Fields can be added or removed from here.
If cont.FirstName = namex Or cont.LastName = namex Or _
cont.FullName = namex Then
A = cont.Gender
'once you find a match. check to make sure its
'the right one. You may have 5 John's listed...

Responce = MsgBox(cont.FullName & Chr(13) & _
"Is This the contact your looking for? " & Chr(13) & _
"Clicking Yes will open the contact and exit the search" & Chr(13)
& _

"Clicking No will resume the search", vbYesNo, "Search")

If Responce = vbYes Then
'If yes is clicked Display the contact and end the search
cont.Display
Exit Sub
End If
End If
Next cont
'Show that the search is done...
MsgBox "The search is done", vbOKOnly, "Search"
End Sub
'---------------------------------------


Salutations!



"Fred" <nospam> a écrit dans le message de
news:

bonjour

quelqu'un peut-il m'aider sur l'utilisation de getaddress en vba
(ouverture du carnet d'adresse outlook pour sélectionner
une adresse et l'insérer dans un document)
j'ai posé la question sur public.fr.word mais ça ne semble pas inspirer
les

gentils contributeurs.

merci

Fred