[VBA - O] Récupération infos [A Faire] [Résolu]

[helios77]

Bonjour,

J'avasi déjà posé une question similaire sur ce forum mais les propriétés de Outlook ne me permettent visiblement pas de le faire alors je me suis orienté vers une autre méthode

Voilà, je reçois un mail dont l'expéditeur est est par exemple :
groupes@yahoo.fr vous envoie ce mail de la part de Toto[Toto@yahoo.fr]
Si je fais un sendername je récup^ère groupes@yahoo.fr
Si je fais un senderonbehalfname, je récupère Toto

Mais moi, je veux réupérer Toto mais aussi toto@yahoo.fr

Ce que je voudrais faire c'est carrément récupérer toute la chaine de caractère et la retravailler à ma façon pour stocker les infos qui m'interesse

Merci d'avance si quelqu'un a une idée

[helios77]

J'ai peut être trouvé une piste en récupéreant le mail.reply.body et en scannat cequ'il y a dedans

Si quelqu'un a un truc de plus robuste et plus rapide, je suis preneur

[cavo789]

Bonjour

J'ai eu exactement le même besoin cette semaine-ci et j'ai glané quelques infos sur Internet, infos qui m'ont permis de programmer la fonction ci-dessous.

Cette fonction retourne l'adresse SMTP et devrait donc t'aider.

Christophe

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 
' MAPI property tag for SMTP address
 
Private Const CdoPR_EMAIL = &H39FE001E
 
' --------------------------------------------------------------------------------------------------------
'
' Return the SMTP email address like Toto@yahoo.fr
'---------------------------------------------------------------------------------------------------------
 
Function GetSMTPAddress(ByRef oMailItem As MailItem) As String
 
Dim oSession As MAPI.Session
Dim sSMTPAddress As String
Dim oMsg As MAPI.Message
 
   ' Create an anonymous CDO session on the current existing Outlook one
 
   Set oSession = CreateObject("MAPI.Session")
   oSession.Logon , , False, False
 
   ' Retrieve the mail based on his EntryID
 
   Set oMsg = oSession.GetMessage(oMailItem.EntryID)
 
   ' Retrieve the sender of this mail
 
   sSMTPAddress = oMsg.Sender.Fields(CdoPR_EMAIL).Value
 
   ' Logoff the anonymous session and release objects
 
   oSession.Logoff
 
   Set oSession = Nothing
   Set oMsg = Nothing
 
   GetSMTPAddress = sSMTPAddress
 
End Function