VBA: pièce jointe supplémentaire

Version imprimable

12/05/2008, 13h15
Stach

VBA: pièce jointe supplémentaire

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

bonjour

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

Code:

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

12/05/2008, 22h37
Stach

Salut Michel,

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

Stach ;-)
12/05/2008, 23h16
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:

1 2 3 For Each Item in Dossier.Items Debug.print Item.Name Next
Mais la méthode échoue :cry:

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 ;-)
13/05/2008, 10h09
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 ;-)

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

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:

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