Discussion :

[Stach]

Bonjour à tous,

Par automation VBA sous Excel 2000, je crée plusieurs emails contenant chacun une pièce jointe (un bulletin d'analyse en .pdf par email).

Avant d'envoyer ces emails j'aimerai pouvoir ajouter également par VBA à certains d'entre eux une pièce jointe supplémentaire.

Dés lors, comment puis-je récupérer la liste de mes emails en attente d'envois afin de pouvoir cibler le bon email auquel ajouter ma pièce jointe supplémentaire?

Merci d'avance pour votre aide.

Stach ;-)

[SilkyRoad]

bonjour

j'espère que cet exemple pourra t'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim Ol As Outlook.Application
Dim Ns As Outlook.Namespace
Dim Dossier As Outlook.MAPIFolder
Dim Cible As MailItem
 
Set Ol = New Outlook.Application
Set Ns = Ol.GetNamespace("MAPI")
 
'Identifie le répertoire "Brouillons"
Set Dossier = Ns.GetDefaultFolder(olFolderDrafts)
 
'Recherche un mail dont le sujet est "test" dans le dossier "Brouillons"
Set Cible = Dossier.Items.Find("[Subject] = 'test'")
 
If Not Cible Is Nothing Then
        'Ajoute une pièce jointe
        Cible.Attachments.Add "C:\dossier\Classeur2.xls"
        'Définit le destinataire
        'Cible.To = "NomPrenom@mail.fr"
        'Envoie le message
        Cible.Send
    Else
        MsgBox "Non trouvé."
End If

bonne soirée
michel

[Stach]

Salut Michel,

Un grand merci, je vais tester ça et voir si je m'en sors.

Stach ;-)

[Stach]

Michel,

Le code que tu m'as donner me donne déjà une bonne piste.

Lorsque j'essaye d'adapter ton code pour essayer de faire ma liste, j'essaye de faire:

Code :

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

1
2
3
For Each Item in Dossier.Items
     Debug.print Item.Name
Next

Mais la méthode échoue

J'ai également essayer avec "Caption" ou "Value", mais ce n'est pas mieux.

Pourrais-tu me dire comment récupérer les noms (via leur sujet) des mails afin de pouvoir m'en servir par la suite pour y attacher ma pièce jointes supplémentaire?

Merci et bonne soirée.

Stach ;-)

[Stach]

Salut,

J'ai fais le test ce matin au boulot. Le problème est que mes mails, une fois créés, ne se mettent pas dans le dossier "Brouillon" de Outlook 2000. La solution que tu me proposais était tentente, dommage.

Aurais-tu alors une idée pour lister toutes les fenêtres ouvertes dans ma barre des tâches? ainsi je pourrais récupérer le fenêtre de l'email auquel je veux ajouter ma pièce jointe...

Merci d'avance.

Stach ;-)

[Stach]

Voilà, j'ai ma solution pour récupérer la liste de mes emails en attente d'envois

Tout d'abord, lorsque je crée mes emails de départ, je les sauvegarde afin que ceux-ci soient dans mon sous-dossier "Brouillons" de Outlook.

Ensuite,pour récupérer la liste de ces emails se trouvant dans "Brouillons" dans une feuille Excel (MyMails):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub btnENVOYER_Click()
Dim Line As Integer, I As Integer
Dim Myolapp As New Outlook.Application, MySpace As Outlook.Namespace, MyFolder As Outlook.MAPIFolder, MySubFold As Outlook.MAPIFolder, MyMail As Object
 
'Récupération des nouveaux emails ouverts (sauvegardé dans "Brouillons")
 
Set Myolapp = CreateObject("Outlook.Application")
Set MySpace = Myolapp.GetNamespace("MAPI")
Set MyFolder = MySpace.Folders("Dossiers Personnels")
Set MySubFold = MyFolder.Folders("Brouillons")
 
Sheets("MyMails").Cells.Clear
Line = 1
 
For I = 1 To MySubFold.Items.Count
        Set MyMail = MySubFold.Items(I)
 
        Sheets("MyMails").Cells(Line, 1) = MyMail
        Line = Line + 1
Next
 
End Sub

Ce n'était pas trop compliqué, mais il fallait savoir comment s'y prendre.

Pour info, j'envoi la liste récupérée ddans une liste déroulante se trouvant dans un UserForm. De là, je pourrais sélectionner dans quel email je veux joindre mon attachement supplémentaire.

Encore merci d'avoir chercher avec moi.

Stach ;-)