je continue dans ma demande d'aide sur les macros outlook
je cherche toujours à recuperer les caracteristiques du contact actif pour
les utiliser dans une autre application office (Word ou Excel).
pour l'instant j'en suis à (exemple trouvé dans la doc)
Private Sub CommandButton1_Click()
Dim myOlApp As New Outlook.Application
Dim myInspectors As Outlook.Inspectors
Dim x As Integer
Dim iCount As Integer
Set myInspectors = myOlApp.Inspectors
iCount = myOlApp.Inspectors.Count
If iCount > 0 Then
For x = 1 To iCount
MsgBox myInspectors.Item(x).Caption
Next x
Else
MsgBox "No inspector windows are open."
End If
End Sub
cette macro me renvoie la propriété caption des differentes fenêtres de
contacts ouverts mais j'ai ensuite du mal à arriver jusqu'à la valeur
Lastname (ou autre ) de ce contact ouvert.
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
Boursicot
re,
en fait je voudrais dans la macro suivante trouver le N° d'item correspondant au dernier contact ouvert (à la place du 5).
Sub dernierContact() 'Finds and displays last contacted
Dim olApp As Outlook.Application Dim objContact As Outlook.ContactItem Dim objContacts As Outlook.MAPIFolder Dim objNameSpace As Outlook.NameSpace Dim objProperty As Outlook.UserProperty
Set olApp = CreateObject("Outlook.Application") Set objNameSpace = olApp.GetNamespace("MAPI") Set objContacts = objNameSpace.GetDefaultFolder(olFolderContacts) Set objContact = objContacts.Items.Item(5)
a = objContact.LastName b = objContact.FirstName
MsgBox "Contact trouvé : " & a & " " & b
End Sub
"Boursicot" a écrit dans le message de news: 424e7bd3$0$11967$
Bonjour,
je continue dans ma demande d'aide sur les macros outlook
je cherche toujours à recuperer les caracteristiques du contact actif pour les utiliser dans une autre application office (Word ou Excel).
pour l'instant j'en suis à (exemple trouvé dans la doc)
Private Sub CommandButton1_Click() Dim myOlApp As New Outlook.Application Dim myInspectors As Outlook.Inspectors Dim x As Integer Dim iCount As Integer Set myInspectors = myOlApp.Inspectors iCount = myOlApp.Inspectors.Count If iCount > 0 Then For x = 1 To iCount MsgBox myInspectors.Item(x).Caption Next x Else MsgBox "No inspector windows are open." End If End Sub
cette macro me renvoie la propriété caption des differentes fenêtres de contacts ouverts mais j'ai ensuite du mal à arriver jusqu'à la valeur Lastname (ou autre ) de ce contact ouvert.
toute idée sera la bienvenue.
Cordialement.
re,
en fait je voudrais dans la macro suivante trouver le N° d'item
correspondant au dernier contact ouvert (à la place du 5).
Sub dernierContact()
'Finds and displays last contacted
Dim olApp As Outlook.Application
Dim objContact As Outlook.ContactItem
Dim objContacts As Outlook.MAPIFolder
Dim objNameSpace As Outlook.NameSpace
Dim objProperty As Outlook.UserProperty
Set olApp = CreateObject("Outlook.Application")
Set objNameSpace = olApp.GetNamespace("MAPI")
Set objContacts = objNameSpace.GetDefaultFolder(olFolderContacts)
Set objContact = objContacts.Items.Item(5)
a = objContact.LastName
b = objContact.FirstName
MsgBox "Contact trouvé : " & a & " " & b
End Sub
"Boursicot" <nospam_takron@free.fr> a écrit dans le message de news:
424e7bd3$0$11967$626a14ce@news.free.fr...
Bonjour,
je continue dans ma demande d'aide sur les macros outlook
je cherche toujours à recuperer les caracteristiques du contact actif pour
les utiliser dans une autre application office (Word ou Excel).
pour l'instant j'en suis à (exemple trouvé dans la doc)
Private Sub CommandButton1_Click()
Dim myOlApp As New Outlook.Application
Dim myInspectors As Outlook.Inspectors
Dim x As Integer
Dim iCount As Integer
Set myInspectors = myOlApp.Inspectors
iCount = myOlApp.Inspectors.Count
If iCount > 0 Then
For x = 1 To iCount
MsgBox myInspectors.Item(x).Caption
Next x
Else
MsgBox "No inspector windows are open."
End If
End Sub
cette macro me renvoie la propriété caption des differentes fenêtres de
contacts ouverts mais j'ai ensuite du mal à arriver jusqu'à la valeur
Lastname (ou autre ) de ce contact ouvert.
en fait je voudrais dans la macro suivante trouver le N° d'item correspondant au dernier contact ouvert (à la place du 5).
Sub dernierContact() 'Finds and displays last contacted
Dim olApp As Outlook.Application Dim objContact As Outlook.ContactItem Dim objContacts As Outlook.MAPIFolder Dim objNameSpace As Outlook.NameSpace Dim objProperty As Outlook.UserProperty
Set olApp = CreateObject("Outlook.Application") Set objNameSpace = olApp.GetNamespace("MAPI") Set objContacts = objNameSpace.GetDefaultFolder(olFolderContacts) Set objContact = objContacts.Items.Item(5)
a = objContact.LastName b = objContact.FirstName
MsgBox "Contact trouvé : " & a & " " & b
End Sub
"Boursicot" a écrit dans le message de news: 424e7bd3$0$11967$
Bonjour,
je continue dans ma demande d'aide sur les macros outlook
je cherche toujours à recuperer les caracteristiques du contact actif pour les utiliser dans une autre application office (Word ou Excel).
pour l'instant j'en suis à (exemple trouvé dans la doc)
Private Sub CommandButton1_Click() Dim myOlApp As New Outlook.Application Dim myInspectors As Outlook.Inspectors Dim x As Integer Dim iCount As Integer Set myInspectors = myOlApp.Inspectors iCount = myOlApp.Inspectors.Count If iCount > 0 Then For x = 1 To iCount MsgBox myInspectors.Item(x).Caption Next x Else MsgBox "No inspector windows are open." End If End Sub
cette macro me renvoie la propriété caption des differentes fenêtres de contacts ouverts mais j'ai ensuite du mal à arriver jusqu'à la valeur Lastname (ou autre ) de ce contact ouvert.
toute idée sera la bienvenue.
Cordialement.
Boursicot
re,
En fait voilà la réponse à ma question
Sub renvoieItem() Dim myOlApp As New Outlook.Application Dim myItem As Object Dim objContact As Outlook.ContactItem Set myItem = myOlApp.ActiveInspector.CurrentItem
a = myItem.LastName b = myItem.FirstName MsgBox "Contact trouvé : " & a & " " & b
End Sub
A+ à tous
"Boursicot" a écrit dans le message de news: 424e7bd3$0$11967$
Bonjour,
je continue dans ma demande d'aide sur les macros outlook
je cherche toujours à recuperer les caracteristiques du contact actif pour les utiliser dans une autre application office (Word ou Excel).
pour l'instant j'en suis à (exemple trouvé dans la doc)
Private Sub CommandButton1_Click() Dim myOlApp As New Outlook.Application Dim myInspectors As Outlook.Inspectors Dim x As Integer Dim iCount As Integer Set myInspectors = myOlApp.Inspectors iCount = myOlApp.Inspectors.Count If iCount > 0 Then For x = 1 To iCount MsgBox myInspectors.Item(x).Caption Next x Else MsgBox "No inspector windows are open." End If End Sub
cette macro me renvoie la propriété caption des differentes fenêtres de contacts ouverts mais j'ai ensuite du mal à arriver jusqu'à la valeur Lastname (ou autre ) de ce contact ouvert.
toute idée sera la bienvenue.
Cordialement.
re,
En fait voilà la réponse à ma question
Sub renvoieItem()
Dim myOlApp As New Outlook.Application
Dim myItem As Object
Dim objContact As Outlook.ContactItem
Set myItem = myOlApp.ActiveInspector.CurrentItem
a = myItem.LastName
b = myItem.FirstName
MsgBox "Contact trouvé : " & a & " " & b
End Sub
A+ à tous
"Boursicot" <nospam_takron@free.fr> a écrit dans le message de news:
424e7bd3$0$11967$626a14ce@news.free.fr...
Bonjour,
je continue dans ma demande d'aide sur les macros outlook
je cherche toujours à recuperer les caracteristiques du contact actif pour
les utiliser dans une autre application office (Word ou Excel).
pour l'instant j'en suis à (exemple trouvé dans la doc)
Private Sub CommandButton1_Click()
Dim myOlApp As New Outlook.Application
Dim myInspectors As Outlook.Inspectors
Dim x As Integer
Dim iCount As Integer
Set myInspectors = myOlApp.Inspectors
iCount = myOlApp.Inspectors.Count
If iCount > 0 Then
For x = 1 To iCount
MsgBox myInspectors.Item(x).Caption
Next x
Else
MsgBox "No inspector windows are open."
End If
End Sub
cette macro me renvoie la propriété caption des differentes fenêtres de
contacts ouverts mais j'ai ensuite du mal à arriver jusqu'à la valeur
Lastname (ou autre ) de ce contact ouvert.
Sub renvoieItem() Dim myOlApp As New Outlook.Application Dim myItem As Object Dim objContact As Outlook.ContactItem Set myItem = myOlApp.ActiveInspector.CurrentItem
a = myItem.LastName b = myItem.FirstName MsgBox "Contact trouvé : " & a & " " & b
End Sub
A+ à tous
"Boursicot" a écrit dans le message de news: 424e7bd3$0$11967$
Bonjour,
je continue dans ma demande d'aide sur les macros outlook
je cherche toujours à recuperer les caracteristiques du contact actif pour les utiliser dans une autre application office (Word ou Excel).
pour l'instant j'en suis à (exemple trouvé dans la doc)
Private Sub CommandButton1_Click() Dim myOlApp As New Outlook.Application Dim myInspectors As Outlook.Inspectors Dim x As Integer Dim iCount As Integer Set myInspectors = myOlApp.Inspectors iCount = myOlApp.Inspectors.Count If iCount > 0 Then For x = 1 To iCount MsgBox myInspectors.Item(x).Caption Next x Else MsgBox "No inspector windows are open." End If End Sub
cette macro me renvoie la propriété caption des differentes fenêtres de contacts ouverts mais j'ai ensuite du mal à arriver jusqu'à la valeur Lastname (ou autre ) de ce contact ouvert.
toute idée sera la bienvenue.
Cordialement.
JièL Goubert
Bonjoir(c) Boursicot
Repassez quand vous voulez, ça fait toujours plaisir de voir quelqu'un qui répond à ses propres questions ;-)
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/
Le 02/04/2005 16:17 vous avez écrit ceci :
re,
En fait voilà la réponse à ma question
Sub renvoieItem() Dim myOlApp As New Outlook.Application Dim myItem As Object Dim objContact As Outlook.ContactItem Set myItem = myOlApp.ActiveInspector.CurrentItem
a = myItem.LastName b = myItem.FirstName MsgBox "Contact trouvé : " & a & " " & b
End Sub
A+ à tous
"Boursicot" a écrit dans le message de news: 424e7bd3$0$11967$
Bonjour,
je continue dans ma demande d'aide sur les macros outlook
je cherche toujours à recuperer les caracteristiques du contact actif pour les utiliser dans une autre application office (Word ou Excel).
pour l'instant j'en suis à (exemple trouvé dans la doc)
Private Sub CommandButton1_Click() Dim myOlApp As New Outlook.Application Dim myInspectors As Outlook.Inspectors Dim x As Integer Dim iCount As Integer Set myInspectors = myOlApp.Inspectors iCount = myOlApp.Inspectors.Count If iCount > 0 Then For x = 1 To iCount MsgBox myInspectors.Item(x).Caption Next x Else MsgBox "No inspector windows are open." End If End Sub
cette macro me renvoie la propriété caption des differentes fenêtres de contacts ouverts mais j'ai ensuite du mal à arriver jusqu'à la valeur Lastname (ou autre ) de ce contact ouvert.
toute idée sera la bienvenue.
Cordialement.
Bonjoir(c) Boursicot
Repassez quand vous voulez, ça fait toujours plaisir de voir quelqu'un qui
répond à ses propres questions ;-)
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
Le 02/04/2005 16:17 vous avez écrit ceci :
re,
En fait voilà la réponse à ma question
Sub renvoieItem()
Dim myOlApp As New Outlook.Application
Dim myItem As Object
Dim objContact As Outlook.ContactItem
Set myItem = myOlApp.ActiveInspector.CurrentItem
a = myItem.LastName
b = myItem.FirstName
MsgBox "Contact trouvé : " & a & " " & b
End Sub
A+ à tous
"Boursicot" <nospam_takron@free.fr> a écrit dans le message de news:
424e7bd3$0$11967$626a14ce@news.free.fr...
Bonjour,
je continue dans ma demande d'aide sur les macros outlook
je cherche toujours à recuperer les caracteristiques du contact actif pour
les utiliser dans une autre application office (Word ou Excel).
pour l'instant j'en suis à (exemple trouvé dans la doc)
Private Sub CommandButton1_Click()
Dim myOlApp As New Outlook.Application
Dim myInspectors As Outlook.Inspectors
Dim x As Integer
Dim iCount As Integer
Set myInspectors = myOlApp.Inspectors
iCount = myOlApp.Inspectors.Count
If iCount > 0 Then
For x = 1 To iCount
MsgBox myInspectors.Item(x).Caption
Next x
Else
MsgBox "No inspector windows are open."
End If
End Sub
cette macro me renvoie la propriété caption des differentes fenêtres de
contacts ouverts mais j'ai ensuite du mal à arriver jusqu'à la valeur
Lastname (ou autre ) de ce contact ouvert.
Repassez quand vous voulez, ça fait toujours plaisir de voir quelqu'un qui répond à ses propres questions ;-)
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/
Le 02/04/2005 16:17 vous avez écrit ceci :
re,
En fait voilà la réponse à ma question
Sub renvoieItem() Dim myOlApp As New Outlook.Application Dim myItem As Object Dim objContact As Outlook.ContactItem Set myItem = myOlApp.ActiveInspector.CurrentItem
a = myItem.LastName b = myItem.FirstName MsgBox "Contact trouvé : " & a & " " & b
End Sub
A+ à tous
"Boursicot" a écrit dans le message de news: 424e7bd3$0$11967$
Bonjour,
je continue dans ma demande d'aide sur les macros outlook
je cherche toujours à recuperer les caracteristiques du contact actif pour les utiliser dans une autre application office (Word ou Excel).
pour l'instant j'en suis à (exemple trouvé dans la doc)
Private Sub CommandButton1_Click() Dim myOlApp As New Outlook.Application Dim myInspectors As Outlook.Inspectors Dim x As Integer Dim iCount As Integer Set myInspectors = myOlApp.Inspectors iCount = myOlApp.Inspectors.Count If iCount > 0 Then For x = 1 To iCount MsgBox myInspectors.Item(x).Caption Next x Else MsgBox "No inspector windows are open." End If End Sub
cette macro me renvoie la propriété caption des differentes fenêtres de contacts ouverts mais j'ai ensuite du mal à arriver jusqu'à la valeur Lastname (ou autre ) de ce contact ouvert.
