Discussion :

[AlexFred]

* 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.

[Oliv-]

Bonjour,
Avec ce code sur le mail ouvert.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Darktrouble]

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

[Oliv-]

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

[Darktrouble]

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 ;( )

[Oliv-]

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