Macro copier le text dans le mail selectionner ?

Bonjour,
Je suis nouveau mais ce code me semble proche de ce que je cherche à faire.
Je vous pose donc ma question.

Je cherche à coller dans le corps d'un mail sous outlook 2003 une plage de
cellule en provenance d'Excel.
Depuis outlook, j'arrive à lancer outlook, remplir tous les champs mais je
n'arrive pas à passer une palge de cellulle. Pouvez-vous m'aider?

Merci d'avance pour votre aide

"Oliv'" wrote:

*TroXsA <troxsa@gmail.com> que je salue a écrit *:

J'ai fini par trouve pourquoi ça ne fonctionnais pas ! :)
parceque le mail n'est pas ouvert !

Y a t'il un moyen a partir du code donner de la faire a partir du mail
qui est selectionné et non ouvert ?
j'ai deux partie une partie a gauche qui est mes elements (boite de
reception, element supprimer, boite d'envois, brouillons, ....) et la
partie de droite qui est la partie d'exploration des mails recu quand
je suis dans boite de reception ....

En faisant un lien d'une macro sur un bouton, j'aimerais simplement
selectionner le mail non ouvert cliquer sur ce bonton puis me copie le
texte

c'est possible ou pas ?

Merci

Oui bien sur comme ceal par exemple.


Sub PutBrutinClipboard()
'by Oliv' 25/6/2007
Dim oitem As Outlook.MailItem
On Error Resume Next
If ActiveInspector.CurrentItem Is Nothing Then
ActiveExplorer.Selection.Item(1).Display

Set oitem = ActiveInspector.CurrentItem

On Error GoTo 0

toto = "DE: " & oitem.SenderName & " (" & oitem.SenderEmailAddress & ")"
toto = toto & Chr(13) & "ENVOYE LE : " & oitem.SentOn
toto = toto & Chr(13) & "A: " & oitem.To
toto = toto & Chr(13) & "CC: " & oitem.CC
toto = toto & Chr(13) & "OBJET: " & oitem.Subject
toto = toto & Chr(13) & oitem.Body

With New DataObject
..SetText toto
..PutInClipboard

End With
oitem.Close olDiscard
End Sub


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

C'est super merci Oliv :P c'est exactement ce que je recherchait a
faire !

j'ai juste fait une petite remise en forme du code

_____________________________________________
Sub PutBrutinClipboard2()
'by Oliv' 25/6/2007

Dim oItem As Outlook.MailItem

On Error Resume Next

If ActiveInspector.CurrentItem Is Nothing Then

ActiveExplorer.Selection.Item(1).Display

Set oItem = ActiveInspector.CurrentItem


On Error GoTo 0

toto = "De : " & oItem.SenderName & " (" &
oItem.SenderEmailAddress & ")" & vbCrLf
toto = toto & Chr(13) & "Envoyé : " & oItem.SentOn & vbCrLf
toto = toto & Chr(13) & "À : " & oItem.To & vbCrLf
If oItem.CC <> "" Then
toto = toto & Chr(13) & "Cc : " & oItem.CC & vbCrLf
End If
toto = toto & Chr(13) & "Objet : " & oItem.Subject & vbCrLf
toto = toto & Chr(13) & oItem.Body & vbCrLf & vbCrLf


With New DataObject
.SetText toto
.PutInClipboard
End With
End If

oItem.Close olDiscard
End Sub
________________________________________________________________

Merci enormemant bonne journée