Récupérer une adresse complète proveannt d'Outlook
10 réponses
Sophy
Bonjour,
J'ai créé un objet outlook application et je voudrais effectuer une
recherche de mails portant sur l'adresse de l'expéditeur.
Voici ma déclaration de variables :
Public ol As Outlook.Application
Public olFolder As MAPIFolder
Public olDestFolder As MAPIFolder
Public olItems As Items
Public olMail As MailItem
Set ol = New Outlook.Application
Set olFolder = ol.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olItems = olFolder.Items
Je parcours olItems et récupère chaque mail dans olMail
Or, quand je consulte olMail.SenderName je n'ai qu'un alias (ex : "Sophie
GRAIGNIC") et j'aurais voulu travailler sur l'adresse complète (ex :
"sophie_graignic@hotmail.com)
Ceci dans le but de ne garder que les mails provenant d'un fournisseur
particulier (ex : tous ceux qui ont une adresse "hotmail")
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
Jacques93
Bonjour Sophy, Sophy a écrit :
Bonjour,
J'ai créé un objet outlook application et je voudrais effectuer une recherche de mails portant sur l'adresse de l'expéditeur.
Voici ma déclaration de variables : Public ol As Outlook.Application Public olFolder As MAPIFolder Public olDestFolder As MAPIFolder Public olItems As Items Public olMail As MailItem
Set ol = New Outlook.Application Set olFolder = ol.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) Set olItems = olFolder.Items
Je parcours olItems et récupère chaque mail dans olMail Or, quand je consulte olMail.SenderName je n'ai qu'un alias (ex : "Sophie GRAIGNIC") et j'aurais voulu travailler sur l'adresse complète (ex : ") Ceci dans le but de ne garder que les mails provenant d'un fournisseur particulier (ex : tous ceux qui ont une adresse "hotmail")
Utilises la propriété SenderEmailAddress :
olMail.SenderEmailAddress
-- Cordialement,
Jacques.
Bonjour Sophy,
Sophy a écrit :
Bonjour,
J'ai créé un objet outlook application et je voudrais effectuer une
recherche de mails portant sur l'adresse de l'expéditeur.
Voici ma déclaration de variables :
Public ol As Outlook.Application
Public olFolder As MAPIFolder
Public olDestFolder As MAPIFolder
Public olItems As Items
Public olMail As MailItem
Set ol = New Outlook.Application
Set olFolder = ol.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olItems = olFolder.Items
Je parcours olItems et récupère chaque mail dans olMail
Or, quand je consulte olMail.SenderName je n'ai qu'un alias (ex : "Sophie
GRAIGNIC") et j'aurais voulu travailler sur l'adresse complète (ex :
"sophie_graignic@hotmail.com)
Ceci dans le but de ne garder que les mails provenant d'un fournisseur
particulier (ex : tous ceux qui ont une adresse "hotmail")
J'ai créé un objet outlook application et je voudrais effectuer une recherche de mails portant sur l'adresse de l'expéditeur.
Voici ma déclaration de variables : Public ol As Outlook.Application Public olFolder As MAPIFolder Public olDestFolder As MAPIFolder Public olItems As Items Public olMail As MailItem
Set ol = New Outlook.Application Set olFolder = ol.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) Set olItems = olFolder.Items
Je parcours olItems et récupère chaque mail dans olMail Or, quand je consulte olMail.SenderName je n'ai qu'un alias (ex : "Sophie GRAIGNIC") et j'aurais voulu travailler sur l'adresse complète (ex : ") Ceci dans le but de ne garder que les mails provenant d'un fournisseur particulier (ex : tous ceux qui ont une adresse "hotmail")
Utilises la propriété SenderEmailAddress :
olMail.SenderEmailAddress
-- Cordialement,
Jacques.
Sophy
Bonjour Jacques,
En fait cette propriété n'est pas accessible pour mon objet olMail ("L'objet ne gère pas cette propriété ou cette méthode") Je n'ai que la propriété SenderName...
"Jacques93" a écrit :
Bonjour Sophy, Sophy a écrit : > Bonjour, > > J'ai créé un objet outlook application et je voudrais effectuer une > recherche de mails portant sur l'adresse de l'expéditeur. > > Voici ma déclaration de variables : > Public ol As Outlook.Application > Public olFolder As MAPIFolder > Public olDestFolder As MAPIFolder > Public olItems As Items > Public olMail As MailItem > > Set ol = New Outlook.Application > Set olFolder = ol.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) > Set olItems = olFolder.Items > > Je parcours olItems et récupère chaque mail dans olMail > Or, quand je consulte olMail.SenderName je n'ai qu'un alias (ex : "Sophie > GRAIGNIC") et j'aurais voulu travailler sur l'adresse complète (ex : > ") > Ceci dans le but de ne garder que les mails provenant d'un fournisseur > particulier (ex : tous ceux qui ont une adresse "hotmail")
Utilises la propriété SenderEmailAddress :
olMail.SenderEmailAddress
-- Cordialement,
Jacques.
Bonjour Jacques,
En fait cette propriété n'est pas accessible pour mon objet olMail ("L'objet
ne gère pas cette propriété ou cette méthode")
Je n'ai que la propriété SenderName...
"Jacques93" a écrit :
Bonjour Sophy,
Sophy a écrit :
> Bonjour,
>
> J'ai créé un objet outlook application et je voudrais effectuer une
> recherche de mails portant sur l'adresse de l'expéditeur.
>
> Voici ma déclaration de variables :
> Public ol As Outlook.Application
> Public olFolder As MAPIFolder
> Public olDestFolder As MAPIFolder
> Public olItems As Items
> Public olMail As MailItem
>
> Set ol = New Outlook.Application
> Set olFolder = ol.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
> Set olItems = olFolder.Items
>
> Je parcours olItems et récupère chaque mail dans olMail
> Or, quand je consulte olMail.SenderName je n'ai qu'un alias (ex : "Sophie
> GRAIGNIC") et j'aurais voulu travailler sur l'adresse complète (ex :
> "sophie_graignic@hotmail.com)
> Ceci dans le but de ne garder que les mails provenant d'un fournisseur
> particulier (ex : tous ceux qui ont une adresse "hotmail")
En fait cette propriété n'est pas accessible pour mon objet olMail ("L'objet ne gère pas cette propriété ou cette méthode") Je n'ai que la propriété SenderName...
"Jacques93" a écrit :
Bonjour Sophy, Sophy a écrit : > Bonjour, > > J'ai créé un objet outlook application et je voudrais effectuer une > recherche de mails portant sur l'adresse de l'expéditeur. > > Voici ma déclaration de variables : > Public ol As Outlook.Application > Public olFolder As MAPIFolder > Public olDestFolder As MAPIFolder > Public olItems As Items > Public olMail As MailItem > > Set ol = New Outlook.Application > Set olFolder = ol.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) > Set olItems = olFolder.Items > > Je parcours olItems et récupère chaque mail dans olMail > Or, quand je consulte olMail.SenderName je n'ai qu'un alias (ex : "Sophie > GRAIGNIC") et j'aurais voulu travailler sur l'adresse complète (ex : > ") > Ceci dans le but de ne garder que les mails provenant d'un fournisseur > particulier (ex : tous ceux qui ont une adresse "hotmail")
Utilises la propriété SenderEmailAddress :
olMail.SenderEmailAddress
-- Cordialement,
Jacques.
Jacques93
Bonjour Sophy, Sophy a écrit :
Bonjour Jacques,
En fait cette propriété n'est pas accessible pour mon objet olMail ("L'objet ne gère pas cette propriété ou cette méthode") Je n'ai que la propriété SenderName...
Quelle version d'Outlook utilises tu ? Avec 2003 c'est OK pour la propriété SenderEmailAddress. Je n'ai pas d'autres versions sous la main.
-- Cordialement,
Jacques.
Bonjour Sophy,
Sophy a écrit :
Bonjour Jacques,
En fait cette propriété n'est pas accessible pour mon objet olMail ("L'objet
ne gère pas cette propriété ou cette méthode")
Je n'ai que la propriété SenderName...
Quelle version d'Outlook utilises tu ? Avec 2003 c'est OK pour la
propriété SenderEmailAddress. Je n'ai pas d'autres versions sous la main.
En fait cette propriété n'est pas accessible pour mon objet olMail ("L'objet ne gère pas cette propriété ou cette méthode") Je n'ai que la propriété SenderName...
Quelle version d'Outlook utilises tu ? Avec 2003 c'est OK pour la propriété SenderEmailAddress. Je n'ai pas d'autres versions sous la main.
-- Cordialement,
Jacques.
Sophy
Flûte, j'ai la version 2000. Et je viens de lire que cette propriété n'existe que depuis la version 2003 justement... Tu ne connais pas un autre moyen par hasard ? (même + tordu !)
"Jacques93" a écrit :
Bonjour Sophy, Sophy a écrit : > Bonjour Jacques, > > En fait cette propriété n'est pas accessible pour mon objet olMail ("L'objet > ne gère pas cette propriété ou cette méthode") > Je n'ai que la propriété SenderName... >
Quelle version d'Outlook utilises tu ? Avec 2003 c'est OK pour la propriété SenderEmailAddress. Je n'ai pas d'autres versions sous la main.
-- Cordialement,
Jacques.
Flûte, j'ai la version 2000. Et je viens de lire que cette propriété n'existe
que depuis la version 2003 justement...
Tu ne connais pas un autre moyen par hasard ? (même + tordu !)
"Jacques93" a écrit :
Bonjour Sophy,
Sophy a écrit :
> Bonjour Jacques,
>
> En fait cette propriété n'est pas accessible pour mon objet olMail ("L'objet
> ne gère pas cette propriété ou cette méthode")
> Je n'ai que la propriété SenderName...
>
Quelle version d'Outlook utilises tu ? Avec 2003 c'est OK pour la
propriété SenderEmailAddress. Je n'ai pas d'autres versions sous la main.
Flûte, j'ai la version 2000. Et je viens de lire que cette propriété n'existe que depuis la version 2003 justement... Tu ne connais pas un autre moyen par hasard ? (même + tordu !)
"Jacques93" a écrit :
Bonjour Sophy, Sophy a écrit : > Bonjour Jacques, > > En fait cette propriété n'est pas accessible pour mon objet olMail ("L'objet > ne gère pas cette propriété ou cette méthode") > Je n'ai que la propriété SenderName... >
Quelle version d'Outlook utilises tu ? Avec 2003 c'est OK pour la propriété SenderEmailAddress. Je n'ai pas d'autres versions sous la main.
-- Cordialement,
Jacques.
Jacques93
Bonjour Sophy, Sophy a écrit :
Flûte, j'ai la version 2000. Et je viens de lire que cette propriété n'existe que depuis la version 2003 justement... Tu ne connais pas un autre moyen par hasard ? (même + tordu !)
Si c'est le nom de l'expéditeur qui est renvoyé par SenderName, je suppose que c'est parce qu'il est connu via ton carnet d'adresse. Tu pourrais donc y rechercher ce nom et récupérer son adresse. Le code qui suit fonctionne sous 2003, essaie le, et si c'est OK fais en une fonction qui renvoie l'adresse correspondant à un nom.
Dim olAddrList As AddressList Dim olAddrs As AddressEntries Dim olAddr As AddressEntry
Private Sub ListContact () ' Adapter le nom du carnet d'adresse. Ici "Contacts" Set olAddrList = ol.GetNamespace("MAPI").AddressLists("Contacts") Set olAddrs = olAddrList.AddressEntries For Each olAddr In olAddrs Debug.Print olAddr.Name & " : " & olAddr.Address Next End Sub
-- Cordialement,
Jacques.
Bonjour Sophy,
Sophy a écrit :
Flûte, j'ai la version 2000. Et je viens de lire que cette propriété n'existe
que depuis la version 2003 justement...
Tu ne connais pas un autre moyen par hasard ? (même + tordu !)
Si c'est le nom de l'expéditeur qui est renvoyé par SenderName, je
suppose que c'est parce qu'il est connu via ton carnet d'adresse. Tu
pourrais donc y rechercher ce nom et récupérer son adresse. Le code qui
suit fonctionne sous 2003, essaie le, et si c'est OK fais en une
fonction qui renvoie l'adresse correspondant à un nom.
Dim olAddrList As AddressList
Dim olAddrs As AddressEntries
Dim olAddr As AddressEntry
Private Sub ListContact ()
' Adapter le nom du carnet d'adresse. Ici "Contacts"
Set olAddrList = ol.GetNamespace("MAPI").AddressLists("Contacts")
Set olAddrs = olAddrList.AddressEntries
For Each olAddr In olAddrs
Debug.Print olAddr.Name & " : " & olAddr.Address
Next
End Sub
Flûte, j'ai la version 2000. Et je viens de lire que cette propriété n'existe que depuis la version 2003 justement... Tu ne connais pas un autre moyen par hasard ? (même + tordu !)
Si c'est le nom de l'expéditeur qui est renvoyé par SenderName, je suppose que c'est parce qu'il est connu via ton carnet d'adresse. Tu pourrais donc y rechercher ce nom et récupérer son adresse. Le code qui suit fonctionne sous 2003, essaie le, et si c'est OK fais en une fonction qui renvoie l'adresse correspondant à un nom.
Dim olAddrList As AddressList Dim olAddrs As AddressEntries Dim olAddr As AddressEntry
Private Sub ListContact () ' Adapter le nom du carnet d'adresse. Ici "Contacts" Set olAddrList = ol.GetNamespace("MAPI").AddressLists("Contacts") Set olAddrs = olAddrList.AddressEntries For Each olAddr In olAddrs Debug.Print olAddr.Name & " : " & olAddr.Address Next End Sub
-- Cordialement,
Jacques.
Sophy
Et bien non, les contacts dont il s'agit ne font partie ni de mes contacts, ni du carnet d'adresses ! C'est leur fournisseur, je pense, qui formate leur adresse de cette façon (ex : "Sophie GRAIGNIC [mailto:]")
"Jacques93" a écrit :
Bonjour Sophy, Sophy a écrit : > Flûte, j'ai la version 2000. Et je viens de lire que cette propriété n'existe > que depuis la version 2003 justement... > Tu ne connais pas un autre moyen par hasard ? (même + tordu !)
Si c'est le nom de l'expéditeur qui est renvoyé par SenderName, je suppose que c'est parce qu'il est connu via ton carnet d'adresse. Tu pourrais donc y rechercher ce nom et récupérer son adresse. Le code qui suit fonctionne sous 2003, essaie le, et si c'est OK fais en une fonction qui renvoie l'adresse correspondant à un nom.
Dim olAddrList As AddressList Dim olAddrs As AddressEntries Dim olAddr As AddressEntry
Private Sub ListContact () ' Adapter le nom du carnet d'adresse. Ici "Contacts" Set olAddrList = ol.GetNamespace("MAPI").AddressLists("Contacts") Set olAddrs = olAddrList.AddressEntries For Each olAddr In olAddrs Debug.Print olAddr.Name & " : " & olAddr.Address Next End Sub
-- Cordialement,
Jacques.
Et bien non, les contacts dont il s'agit ne font partie ni de mes contacts,
ni du carnet d'adresses ! C'est leur fournisseur, je pense, qui formate leur
adresse de cette façon (ex : "Sophie GRAIGNIC
[mailto:sophie_graignic@hotmail.com]")
"Jacques93" a écrit :
Bonjour Sophy,
Sophy a écrit :
> Flûte, j'ai la version 2000. Et je viens de lire que cette propriété n'existe
> que depuis la version 2003 justement...
> Tu ne connais pas un autre moyen par hasard ? (même + tordu !)
Si c'est le nom de l'expéditeur qui est renvoyé par SenderName, je
suppose que c'est parce qu'il est connu via ton carnet d'adresse. Tu
pourrais donc y rechercher ce nom et récupérer son adresse. Le code qui
suit fonctionne sous 2003, essaie le, et si c'est OK fais en une
fonction qui renvoie l'adresse correspondant à un nom.
Dim olAddrList As AddressList
Dim olAddrs As AddressEntries
Dim olAddr As AddressEntry
Private Sub ListContact ()
' Adapter le nom du carnet d'adresse. Ici "Contacts"
Set olAddrList = ol.GetNamespace("MAPI").AddressLists("Contacts")
Set olAddrs = olAddrList.AddressEntries
For Each olAddr In olAddrs
Debug.Print olAddr.Name & " : " & olAddr.Address
Next
End Sub
Et bien non, les contacts dont il s'agit ne font partie ni de mes contacts, ni du carnet d'adresses ! C'est leur fournisseur, je pense, qui formate leur adresse de cette façon (ex : "Sophie GRAIGNIC [mailto:]")
"Jacques93" a écrit :
Bonjour Sophy, Sophy a écrit : > Flûte, j'ai la version 2000. Et je viens de lire que cette propriété n'existe > que depuis la version 2003 justement... > Tu ne connais pas un autre moyen par hasard ? (même + tordu !)
Si c'est le nom de l'expéditeur qui est renvoyé par SenderName, je suppose que c'est parce qu'il est connu via ton carnet d'adresse. Tu pourrais donc y rechercher ce nom et récupérer son adresse. Le code qui suit fonctionne sous 2003, essaie le, et si c'est OK fais en une fonction qui renvoie l'adresse correspondant à un nom.
Dim olAddrList As AddressList Dim olAddrs As AddressEntries Dim olAddr As AddressEntry
Private Sub ListContact () ' Adapter le nom du carnet d'adresse. Ici "Contacts" Set olAddrList = ol.GetNamespace("MAPI").AddressLists("Contacts") Set olAddrs = olAddrList.AddressEntries For Each olAddr In olAddrs Debug.Print olAddr.Name & " : " & olAddr.Address Next End Sub
-- Cordialement,
Jacques.
Jacques93
Bonjour Sophy, Sophy a écrit :
Et bien non, les contacts dont il s'agit ne font partie ni de mes contacts, ni du carnet d'adresses ! C'est leur fournisseur, je pense, qui formate leur adresse de cette façon (ex : "Sophie GRAIGNIC [mailto:]")
Exact, j'aurais du regarder dans ma boite avant de répondre :-( Pas d'autres idées pour le moment, mais apparement tu n'es pas seule à rencontrer ce problème :
Tu y trouveras peut être une solution, ou un contournement.
-- Cordialement,
Jacques.
Bonjour Sophy,
Sophy a écrit :
Et bien non, les contacts dont il s'agit ne font partie ni de mes contacts,
ni du carnet d'adresses ! C'est leur fournisseur, je pense, qui formate leur
adresse de cette façon (ex : "Sophie GRAIGNIC
[mailto:sophie_graignic@hotmail.com]")
Exact, j'aurais du regarder dans ma boite avant de répondre :-(
Pas d'autres idées pour le moment, mais apparement tu n'es pas seule à
rencontrer ce problème :
Et bien non, les contacts dont il s'agit ne font partie ni de mes contacts, ni du carnet d'adresses ! C'est leur fournisseur, je pense, qui formate leur adresse de cette façon (ex : "Sophie GRAIGNIC [mailto:]")
Exact, j'aurais du regarder dans ma boite avant de répondre :-( Pas d'autres idées pour le moment, mais apparement tu n'es pas seule à rencontrer ce problème :
Tu y trouveras peut être une solution, ou un contournement.
-- Cordialement,
Jacques.
Sophy
OK, en tout cas merci pour ton aide ! Je vais poster une autre question à propos d'outlook. Peut-être t'y reverrai-je ? :-)
"Jacques93" a écrit :
Bonjour Sophy, Sophy a écrit : > Et bien non, les contacts dont il s'agit ne font partie ni de mes contacts, > ni du carnet d'adresses ! C'est leur fournisseur, je pense, qui formate leur > adresse de cette façon (ex : "Sophie GRAIGNIC > [mailto:]")
Exact, j'aurais du regarder dans ma boite avant de répondre :-( Pas d'autres idées pour le moment, mais apparement tu n'es pas seule à rencontrer ce problème :
Tu y trouveras peut être une solution, ou un contournement.
-- Cordialement,
Jacques.
OK, en tout cas merci pour ton aide !
Je vais poster une autre question à propos d'outlook. Peut-être t'y
reverrai-je ?
:-)
"Jacques93" a écrit :
Bonjour Sophy,
Sophy a écrit :
> Et bien non, les contacts dont il s'agit ne font partie ni de mes contacts,
> ni du carnet d'adresses ! C'est leur fournisseur, je pense, qui formate leur
> adresse de cette façon (ex : "Sophie GRAIGNIC
> [mailto:sophie_graignic@hotmail.com]")
Exact, j'aurais du regarder dans ma boite avant de répondre :-(
Pas d'autres idées pour le moment, mais apparement tu n'es pas seule à
rencontrer ce problème :
OK, en tout cas merci pour ton aide ! Je vais poster une autre question à propos d'outlook. Peut-être t'y reverrai-je ? :-)
"Jacques93" a écrit :
Bonjour Sophy, Sophy a écrit : > Et bien non, les contacts dont il s'agit ne font partie ni de mes contacts, > ni du carnet d'adresses ! C'est leur fournisseur, je pense, qui formate leur > adresse de cette façon (ex : "Sophie GRAIGNIC > [mailto:]")
Exact, j'aurais du regarder dans ma boite avant de répondre :-( Pas d'autres idées pour le moment, mais apparement tu n'es pas seule à rencontrer ce problème :
Tu y trouveras peut être une solution, ou un contournement.
-- Cordialement,
Jacques.
Sophy
Le lien que tu m'as fourni a résolu mon problème. Merci Jacques et bonne fin de journée !
"Jacques93" a écrit :
Bonjour Sophy, Sophy a écrit : > Et bien non, les contacts dont il s'agit ne font partie ni de mes contacts, > ni du carnet d'adresses ! C'est leur fournisseur, je pense, qui formate leur > adresse de cette façon (ex : "Sophie GRAIGNIC > [mailto:]")
Exact, j'aurais du regarder dans ma boite avant de répondre :-( Pas d'autres idées pour le moment, mais apparement tu n'es pas seule à rencontrer ce problème :
Tu y trouveras peut être une solution, ou un contournement.
-- Cordialement,
Jacques.
Le lien que tu m'as fourni a résolu mon problème.
Merci Jacques et bonne fin de journée !
"Jacques93" a écrit :
Bonjour Sophy,
Sophy a écrit :
> Et bien non, les contacts dont il s'agit ne font partie ni de mes contacts,
> ni du carnet d'adresses ! C'est leur fournisseur, je pense, qui formate leur
> adresse de cette façon (ex : "Sophie GRAIGNIC
> [mailto:sophie_graignic@hotmail.com]")
Exact, j'aurais du regarder dans ma boite avant de répondre :-(
Pas d'autres idées pour le moment, mais apparement tu n'es pas seule à
rencontrer ce problème :
Le lien que tu m'as fourni a résolu mon problème. Merci Jacques et bonne fin de journée !
"Jacques93" a écrit :
Bonjour Sophy, Sophy a écrit : > Et bien non, les contacts dont il s'agit ne font partie ni de mes contacts, > ni du carnet d'adresses ! C'est leur fournisseur, je pense, qui formate leur > adresse de cette façon (ex : "Sophie GRAIGNIC > [mailto:]")
Exact, j'aurais du regarder dans ma boite avant de répondre :-( Pas d'autres idées pour le moment, mais apparement tu n'es pas seule à rencontrer ce problème :
