Enregistrer un mail envoyé
Bonjour,
dans le cadre de mon fichier comprenant ma base donnée je souhaiterais savoir comment procéder afin d'effectuer un enregistrement d'un mail envoyé
je m'explique:
lorsque l'on envoi un mail on a les champs suivant
With Olmail
.To = destinataires
.CC = copy
.Subject = "Reminder"
.add.attachments (fichiers)
.HTMLBody = ""et après on fait .sent ou .display
dans les deux cas je souhaiterais mettre en place un système de suivi des envois
aussi j'ai ajouté un onglet dans le lequel je vais stocker les informations
With Sheets("Exchanges")
derlign = .Cells(Rows.Count, "A").End(xlUp).row + 1
.Range("A" & derlign) = Date
.Range("B" & derlign) = Subject
.Range("C" & derlign) = destinataires
.Range("D" & derlign) = copy
End Withmaintenant la question est de savoir comment je peux procéder afin d'enregistrer le mail envoyé après les possibles ajout après le display et avant envoi?
En effet
.SaveAs ThisWorkbook.Path & "\Exchanges\Suivi Activité" & Format(Now(), "DD-MM-YYYY") & ".oft", OlSaveAsType.olTemplate
ne prends pas en compte les ajouts d'apres
Merci à vous par avance
bonne journée
Bonjour,
Je ne suis pas certain d'avoir bien saisie ton intention.
D'abord l'onglet journal est une excellente idée.
Tu veux enregistrer en .oft qui est un modèle, or tu envoies ici un mail réel ... dans un tel cas, je me mettais en copie cachée du mail pour les avoir dans ma messagerie, sachant que le journal indiquait le jour (et l'heure) d'envoi.