MACRO OUTLOOKRésolu

Question

BONJOUR &#192; TOUS,



Quelqu'un pourrait-il me dire comment faire pour r&#233;cup&#233;rer les &#233;l&#233;ments
d'un mail qu'on a s&#233;lectionn&#233; sous outlook par le code VBA.



Genre .item.subject...



Je ne vois pas d&#233;signer le mail qui est s&#233;elctionn&#233;.



Et ensuite, j'aimerais savoir comment transf&#233;rer un mail (au lieu de l'envoyer)



Merci de votre aide
TBBUIM

cuq · Accepted Answer

pas loin ton genre le code c'est  : Application.ActiveExplorer.Selection

Voila un exemple qui me permet sur un mail s&#233;lectionn&#233; d'avoir des infos :

Public Sub Info()
    Dim lItem As Object
Dim ind As Integer


    
    For Each lItem In Application.ActiveExplorer.Selection
        On Error Resume Next
            ' si c'est un mail
        If IsObject(lItem) Then
            If lItem.Class = olMail Then
            'Contenu HTML
                'MsgBox lItem.HTMLBody
                ' nom du destinataire
                MsgBox "Nom du destinataire    :" & lItem.ReceivedByName _
            & Chr(10) & "Confirmation relecture :" & lItem.ReadReceiptRequested _
            & Chr(10) & "Destinataires de la r&#233;ponse    :" & lItem.ReplyRecipientNames _
            & Chr(10) & "Destinataires                  :" & lItem.To _
            & Chr(10) & "Destinataires     CC           :" & lItem.CC _
            & Chr(10) & "Destinataires     BCC          :" & lItem.BCC _
            & Chr(10) & "SenderName                     :" & lItem.SenderName _
            & Chr(10) & "SentOnBehalfOfName             :" & lItem.SentOnBehalfOfName _
            & Chr(10) & "ReplyRecipients                :" & lItem.ReplyRecipients.Count _
            & Chr(10) & "ReplyRecipients                :" & lItem.Session.AddressLists.Count
            End If
        End If
        For ind = 0 To lItem.Session.AddressLists.Count


        Next ind
        
    Next
End Sub

tbbuim1 · Answer

Merci beaucoup  



En fait, j'aimerais transf&#233;rer un mail s&#233;lectionn&#233; &#224; quelqu'un.

C'est pourquoi je cherchais comment pointer sur le mail s&#233;lectionn&#233;.

Saurais-tu comment faire? par le plus grand des hasards...

Ou alors, ou je pourrais trouver les infos, car j'ai regard&#233; dans l'aide d&#233;j&#224; pour faire ce que tu m'as &#233;crit, et y avait &#231;a:

Set myInspector = Application.ActiveInspector
MsgBox "The active item is " &amp; myInspector.CurrentItem.Subject

Mais &#231;a ne marche pas du tout lol
Il me dit block with non d&#233;fini (91)
Alors bon, si l'aide est fausse... o&#249; va t-on?



TBBUIM

cuq · Answer

Pourtant c'est simple ... dans l'aide tu regardes : L'objet    MailItem , ses m&#233;thodes . tu trouveras  Forward 

Forward : Execute l'action transf&#233;rer pour un element . Renvoie la copie r&#233;sultante sous la forme d'un nouvel objet 
Ensuite tu regardes dans l'exemple :

un truc du style : 

Dim Myforward  As Object

Set Myforward  = lItem

Myforward .Recipients.add [mailto:toto@va_a_la_page.com toto@va_a_la_page.com]
Myforward .send

Bon j'ai pas test&#233; mais ca doit &#234;tre un truc de ce genre

tbbuim1 · Answer

lol exact j'ai trouv&#233; au moment o&#249; tu m'as r&#233;pondu 

Un grand merci en tout cas.

TBBUIM

MACRO OUTLOOK

4 réponses

Discussions similaires