Discussion :

[Duffyduff]

Bonjour a tous,

Je me casse la tête pour retrouver un bout de code que j'ai egaré.
Je dispose d'une macro qui me génère un mail; jusque la pas de soucis.

Mais je cherche, dans la même procédure a sauvegarder ce mail, une fois envoyer, dans un dossier sur le disque dur.

Help me please (car je commence a affuter une hache)

[SilkyRoad]

Bonjour,

Tu peux utiliser :

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
Sub Test()
    Dim OLapp As Outlook.Application
    Dim OLspace As Outlook.Namespace
    Dim OLinbox As Outlook.MAPIFolder
    Dim oMt As Outlook.MailItem
    Dim oItem As Outlook.Items
 
    Set OLapp = CreateObject("Outlook.application")
    Set OLspace = OLapp.GetNamespace("MAPI")
    Set OLinbox = OLspace.GetDefaultFolder(olFolderInbox)
 
    'Identifie le dernier message de la boite de réception
    Set oMt = OLinbox.Items(OLinbox.Items.Count)
 
    oMt.SaveAs "C:\essai.msg"
 
    Set oMt = Nothing
    Set oItem = Nothing
    Set OLinbox = Nothing
    Set OLspace = Nothing
    Set OLapp = Nothing
End Sub

bonne soirée
michel

[Duffyduff]

Oh purée génial le code fonctionne a merveille.
Merci beaucoup.

La seul modif a effectué c'est lorsque l'on edite la variable OLinbox de définir le dossier cible olFolderInbox par olFolderSentMail (pour les éléments envoyer)
Merci beaucoup