[vba] enregistrer copie mail en local

Résolu/Fermé

vba - 29 juil. 2009 à 14:55
benimiel - 19 nov. 2014 à 17:53

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!

A voir également:

[vba] enregistrer copie mail en local
Audacity enregistrer son pc - Guide
Yahoo mail - Guide
Appdata local - Guide
Enregistrer son ecran - Guide
Copie cachée - Guide

7 réponses

Réponse 1 / 7

melanie1324
30 juil. 2009 à 20:57

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.

Réponse 2 / 7

melanie1324
29 juil. 2009 à 21:03

Bonsoir,

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

Réponse 3 / 7

vba
30 juil. 2009 à 09:40

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 !

Réponse 4 / 7

vbacod
30 juil. 2009 à 14:07

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

vbacod
31 juil. 2009 à 15:25

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!

Réponse 6 / 7

vbacod
3 août 2009 à 09:38

quelqu'un sait?

Réponse 7 / 7

benimiel
19 nov. 2014 à 17:53

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.

Discussions similaires

Arnaque ou pas?

Discussions similaires

Newsletters