Envoi mail avec piece jointe

[KImi9664]

Bonjour, je possède un fichier excel où j'ai créer une macro qui enregistre le fichier sous format PDF.
Maintenant je voudrai une autre macro pour envoyé ce fichier PDF en piece jointe d'un mail.

J'ai deja trouvé l'ouverture de la boite mail et d'un nouveau message avec destinataire préremplie mais je ne trouve pas comment ajouter la pieces jointes.

Voila ou j'en suis :

Private Sub Envoimail_Click()
Dim strdest As String

'adresse = "xxxx.xxxxx@xxxx"
Sujet = "Prestation prix de revient"
txt = "Ci-joint le document PDF correspondant à la prestation Prix de Revient"

' On demande l'adresse e-mail du destinataire
strdest = InputBox("Saisissez le prénom et le nom du destinataire, exemple : prénom.nom@xxxxx", "Messagerie Access", "@xxxxx")
If strdest = "" Then Exit Sub


URLto = "mailto:" & strdest & "?subject=" & Sujet & "&body=" & msg & txt

ActiveWorkbook.FollowHyperlink Address:=URLto

 

[hajorinette]

Re : Envoi mail avec piece jointe

I2:I3 sont des cellules fusionnées auquelles est renvoyé un N°, ne sachant pas si c'est le fait que ces cellules soit fusionnées qui pose problème j'ai gardé que I2

Et devinez quoi ça marche!!!

Dernier petit soucis:

les macros détaillées dans mon message précédent me copient bien la feuille que je veux dans un nouveau fichier, avec le nom que je veux , mais mon fichier initial est renommé aussi!!!! avec le même nom.
des idées

 

[hajorinette]

Re : Envoi mail avec piece jointe

C'était parce que les deux cellules étaient scindées.
J'ai gardé que I2 qui contient un Nombre renvoyé par une macro et ça marche bien.

Le seul souci c'est que ça me renomme mon fichier initial également !

Merci pour tout

 

[golden]

Re : Envoi mail avec piece jointe

Est-ce qu'il ne faut pas tout simplement déclarer "nomfichier as string" plutot que "as workbook" ?

 

[degap05]

Re : Envoi mail avec piece jointe

Bonjour,

Tout sur les envois par mail:

Ron's Excel page