Discussion :

[Asdorve]

Bonjour,

Lorsque j'utilise la fonction suivante, j'arrive à récupérer l'adresse de réception d'un mail:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Private Function GetSMTPAddressForRecipients(MAIL As Outlook.MailItem) As String
    Dim recips As Outlook.Recipients
    Dim recip As Outlook.Recipient
    Dim pa As Outlook.PropertyAccessor
    Const PR_SMTP_ADDRESS As String = _
        "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
    Set recips = MAIL.Recipients
    For Each recip In recips
        Set pa = recip.PropertyAccessor
        Debug.Print recip.Name & " SMTP=" _
           & pa.GetProperty(PR_SMTP_ADDRESS)
        GetSMTPAddressForRecipients = pa.GetProperty(PR_SMTP_ADDRESS)
    Next
End Function

Je souhaiterais modifier la valeur de pa.GetProperty(PR_SMTP_ADDRESS).

Comment peut-on faire?

Merci

[ProgElecT]

Salut

SetProperty Method [Outlook 2007 Developer Reference]

Peut être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

pa.SetProperty(PR_SMTP_ADDRESS,  "La Nouvelle adresse")

, je n'y connais rien en MAIL Outlook

[Asdorve]

Salut,

J'ai testé, sans succès