[vba] enregistrer copie mail en local Résolu

Question

Bonjour,
j'ai une macro qui envoi un mail, je voudrai qu'une fois le mail envoyé, une copie s'enregistre dans un dossier ex : c:\mail. commen faire ? (je suis sur office 2000)

Sub SendMail_Outlook()
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = 
.Subject = 
.Body = 
.Attachments.Add 
.Attachments.Add 
.Send '.display
End With
End Sub

Merci de m'aider!

melanie1324 · Answer

Bonsoir,

With ActiveWorkbook
.SaveAs Filename:="C:\mail..xls"
End With

vba · Answer

Merci melanie, 
le problème avec ce bou de code c'est que tout mon classeur est enregistré. or, je voudrai que seul l'email soit sauvegardé au format mail outlook comme *.oft par exemple.
Une idée? merci !

vbacod · Answer

peut etre que l'explication n'est pas claire? merci de m'aider.

melanie1324 · Answer

Bonsoir,

Je crains que cela ne dépasse mes compétences.
Et je ne suis pas sure que cela puisse se faire parce que vba correspond à excel et l'envoi de mail est lié à ton outil de mail (outlook) par exemple.
Il se serait peut être mieux de chercher sur outook comment enregistrer un mail plutot que par vba.

vbacod · Answer

pourquoi avec ce code ActiveSheet.SaveAs filename:="test.txt", FileFormat:= _
    xlText, CreateBackup:=False 

mon fichier test.txt en aussi enregistrer dans mon classeur excel? 
merci!

vbacod · Answer

quelqu'un sait?

benimiel · Answer

Tu fais ça:

.Send
.display
.SaveA "Mon mail.msg"


Par défaut le mail s'enregistrera dans le répertoire où est situé le classeur Excel.

[vba] enregistrer copie mail en local

7 réponses

Discussions similaires

Newsletters