Quel code Vba pour action renvoyer mail [Résolu]

[AlexFred]

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.

[Oliv-]

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'

[AlexFred]

Merci
c'est bien OK