VBA envoyer par mail en modifiant le nom

Valérie55555555

XLDnaute Nouveau
Bonjour,

Je souhaite envoyer par mail un document en modifiant son nom mais uniquement dans le mail pas dans le fichier de base. C'est-à-dire que je veux qu'une copie de mon fichier source soit envoyé non pas l'original.

Private Sub CommandButton5_Click()



Set myApp = CreateObject("Outlook.Application")
Set myItem = myApp.CreateItem(olMailItem)
myItem.Subject = "Test RGA : " & Range("H10")
myItem.Body = "Veuillez trouver ci-joint le document de l'inspection " & Range("H10")
myItem.Attachments.Add ActiveWorkbook.FullName
myItem.to = "xxxxx@a"
myItem.Display
myItem.Send



MsgBox "The email is sent"

End Sub


Merciii
 

Valérie55555555

XLDnaute Nouveau
Salut,

J'aimerais bien que mon fichier actif soit envoyer par mail, jusque là j'ai trouvé.
Mais j'aimerais que ce fichier soit renommer en tant que pièce jointe avec un nom que j'aurais déterminé.
Est-ce que vous pensez que c'est possible ?

myItem.Attachments.Add ActiveWorkbook.FullName
En clair, j'aimerais donné un nom à mon travail pour changer son nom dans la pièce jointe
 

Discussions similaires


Haut Bas