Renvoyer des messages en masse

[hannib]

J'essaye d'écrire une macro outlook pour un besoin particulier. Je souhaite retourner tous les messages sélectionnés dans un repertoire de la boite à reception à leurs expéditeurs sans oublier les PJ.

Quelqu'un a une idée pour me dépanner ?

Merci d'avance,

[Oliv-]

Voici un début :Avec ce code sur le mail ouvert :

Code :

1
2
3
4
5
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
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

Il faut avant l'envoi (LeMail.send) changer le destinataire

un truc comme
LeMail.to =Lemail.from

[hannib]

Merci pour ces informations, ça correspond tout à fait à mon besoin.

Par contre lorsque je l'exécute, j'ai un message d'erreur : "Vous n'avez pas la permission d'envoyer le message sous le nom d'utilisateur spécifié."
A quel endroit dans ce programme puis je identifier l'utilisateur ?

Merci d'avance,

[Oliv-]

SAlut,
Suffit de relire la réponse. non ?

[Dolphy35]

Salut,

Envoyé par hannib

Merci pour ces informations, ça correspond tout à fait à mon besoin.

Par contre lorsque je l'exécute, j'ai un message d'erreur : "Vous n'avez pas la permission d'envoyer le message sous le nom d'utilisateur spécifié."
A quel endroit dans ce programme puis je identifier l'utilisateur ?

Merci d'avance,

en reprenant le code d'Oliv- il te suffit d'ajouter l'adresse de l'expéditeur par ce code

Code :

LeMail.To = LeMail.SenderEmailAddress

Dolphy