Créer un bouton et lui affecter une macro

Le
Fredo(67)
Bonjour,
Je souhaiterai créer un bouton et lui affecter la macro suivante :
Transférer l'email sélectionné à l'adresse test@test.fr

Je connais pas mal les macros de Excel, mais là j'avoue que je sèche
un peu

Est-ce possible ?
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fredo(67)
Le #19576501
Bonjour,

Pas d'idée ?

On 15 juin, 17:39, "Fredo(67)"
Bonjour,
Je souhaiterai créer un bouton et lui affecter la macro suivante :
Transférer l'email sélectionné à l'adresse

Je connais pas mal les macros de Excel, mais là j'avoue que je sèche
un peu

Est-ce  possible ?


Fredo(67)
Le #19576541
La réponse :

En considérant comme étant le destinataire :

Sub Transfert()

Dim oOlExp As Explorer
Dim oOlSel As Selection
Dim oOlItm As MailItem
Dim oOlFwd As MailItem

Set oOlExp = ActiveExplorer
Set oOlSel = oOlExp.Selection

For Each oOlItm In oOlSel
Set oOlFwd = oOlItm.Forward
oOlFwd.Recipients.Add ""
oOlFwd.Send
Next oOlItm

Set oOlFwd = Nothing
Set oOlItm = Nothing
Set oOlSel = Nothing
Set oOlExp = Nothing

End Sub


On 16 juin, 09:44, "Fredo(67)"
Bonjour,

Pas d'idée ?

On 15 juin, 17:39, "Fredo(67)"


> Bonjour,
> Je souhaiterai créer un bouton et lui affecter la macro suivante :
> Transférer l'email sélectionné à l'adresse

> Je connais pas mal les macros de Excel, mais là j'avoue que je sèch e
> un peu

> Est-ce  possible ?- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Publicité
Poster une réponse
Anonyme