Quel code Vba pour action renvoyer mail

* Bonjour, *

Comment puis faire en Vba pour renvoyer une série de mail se trouvant dans le dossier "éléments envoyés"

Cela marche un par un si l'on fait les opérations suivantes
- ouvrir le message
- menu action, Renvoyer le message
- cliquer sur Envoyer.

L'idéal serait de pouvoir répéter cette chaîne sans ouvrir le message.

Autre Méthode, glisser les messages de nouveau dans la boite envoi, ceci est possible,
mais les messages restent dans la boite envoi et donc ne partent pas.
Pourquoi ?

d'avance merci pour toute réponse.

Bonjour,
Avec ce code sur le mail ouvert.

Code:

---

1 2 3 4 5 6 7

Sub controle_meeting() Dim oitem Set oitem = ActiveInspector.CurrentItem oitem.Send   End Sub

---

Avec celui-ci sur une selection

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub EnvoiTouteLaSelection() Dim MonOutlook As Outlook.Application Dim Mail As Object Dim LeMail As Outlook.MailItem Dim LesMails As Object Set MonOutlook = Outlook.Application Set LesMails = MonOutlook.ActiveExplorer.Selection For Each LeMail In LesMails LeMail.send Next LeMail Set LesMails = Nothing End Sub

---

Ca marche ?
Oliv' :aie:

Merci
c'est bien OK

Bonjour,
Je fais remonter ce topic car la réponse ne fonctionne pas chez moi.

Quand j’exécute la macro pour une sélection, j'obtiens l'erreur :
'Incompatibilité de type'.

Merci d'avance ;)

Salut,
j'ai un peu dormi depuis ...
Sans doute dans ta selection tu as autre chose que des mails, teste le type de LeMail avant le send

Oui en fait ce sont des mails "Non remis" provenant de l'administrateur (moi-même...) parce que j'avais dépassé un certain quota.

Outlook propose l'option "renvoyer" mais il faut obligatoirement ouvrir le mail (j'en ai 400 ;( )

J ai déjà traite automatiquement ce genre de truc faut que je retrouve comment