Envoy un mail et l'enregistrer dans un répertoire.

[alarevoyure]

Bonjour
J'ai un programme, qui fonctionne, qui envoie un mail et enregistre le mail en cours de création dans un répertoire sur le disque dur juste avant l'envoi.
Je souhaiterai enregistrer le mail une fois qu'il a été envoyé mais là j'ai une erreur qui me dit que l'objet a été déplacé.Seule solution parcourir tout le dossier éléments envoyés de la boîte outlook pour retrouver celui qui correspond mais c'est super lourd. Avez-vous une solution pour ne pas perdre l'objet mail quand on l'envoie et donc pouvoir travailler dessus ?

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
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Private Sub CommandeEnvoiMail_Click()
 
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim PieceAttachee As String
Dim CorpsMail As String
Dim Signature As String
 
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
 
With objOutlookMsg
 
    'Récupération de la signature outlook
    Signature = GetOutlookSignature()
    .BodyFormat = olFormatHTML
    CorpsMail = Replace(Me.txtMail.Value, Chr(13), "<BR>")
    .HTMLBody = CorpsMail + Signature
 
    Set objOutlookRecip = .Recipients.Add(Me.AdresseProMail.Value)
    objOutlookRecip.Type = olTo
 
    For Each objOutlookRecip In .Recipients
       objOutlookRecip.Resolve
    Next
 
    .SaveAs "d:\toto.msg"
    .Send
 
 
End With
 
Set objOutlook = Nothing
 
MsgBox "Le mail a été envoyé, il est présent dans vos éléments envoyés dans Outlook"

[Oliv-]

SAlut,
une solution, indiquer un dossier autre que élément envoyé qui serait vide
et donc une fois envoyé reprendre le mail pour l'enregistrer sur le disk puis le déplacer vers un autre dossier outlook pour que celui-ci soit de nouveau vide.
ca peut être un sous dossier de éléments envoyés.

Set Item.SaveSentMessageFolder = objFolder


Oliv'

[Vbapprentis]

Bonsoir,

Comment lui indiquer plutot un dossier de explorateur, des qu'il est envoyé?

[Oliv-]

Hellooo,
C'est simplement pas possible (by design), ou alors tu enregistres avant l'envoi c'est à dire le brouillon de ton mail sans sa date d'envoi comme le fait alarevoyure ci-dessus