Discussion :

[alexhsh]

Bonjour,
Comme évoqué dans l'intitulé de cette discussion, je posséde un fichier excel avec pas mal de boutons pointant vers du code vba et me permettant dans un cadre associatif d'écrire des mails avec des PJ recherchées automatiquement dans mon PC etc... Aujourd'hui je souhaite pousser le vice un peu plus loin et crée un mail automatiquement avec un certain texte à l'interieur, ça je sais faire mais je veux joindre à ce mail et en PJ le dernier mail reçu qui se trouve donc dans la boite de reception
J'ai commencé à élaborer ce code (uniquement pour enregistrer le dernier mail reçu sur le bureau) mais je sèche, bref j'ai besoin de votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Dim MonOutlook As Object, MonMail As Object
 Dim ImpDefaut As String
 Dim myItem As Outlook.MailItem
 
 
 Set MonOutlook = CreateObject("Outlook.Application")
        With MonOutlook.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
        If .Items.Count > 0 Then Set MonMail = .Items(1)
        End With
        .Item(1).SaveAsFile ("C:\Users\MOI\Desktop\" & ActiveWorkbook.Sheets("Accueil").Range("C51").Value & ".msg")
 
End Sub

Merci de votre retour et bonne journée

[alexhsh]

Pour ceux que ça intéresse,
je suis parvenu à réaliser ce que je voulais, c'est à dire depuis Excel enregistrer le dernier mail reçu dans outlook, je vous laisse le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub enregistrerderniermailRECU()
 
 Dim MonOutlook As Object, MonMail As Object
 'Dim ImpDefaut As String
 Dim myItem As Outlook.MailItem
 Dim myAttachments As Outlook.Attachments
 
 Set MonOutlook = CreateObject("Outlook.Application")
        With MonOutlook.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
        If .Items.Count > 0 Then Set MonMail = .Items(1)
        MonMail.SaveAs ("C:\Users\MOI\Desktop\" & ActiveWorkbook.Sheets("Accueil").Range("C51").Value & ".msg"), OlSaveAsType.olMSG
 
 End With
End Sub