Pièce jointe à un mail via excel

[letroubadour]

Bonjour à tous

voici la commande qui permet d'envoyer un mail , ainsi qu'une pièce jointe (myitem.Attachments.Add "D:\essai\IMG_9067.jpg")

Pour que les utilisateurs n'aillent pas modifier le chemin dans la macro je voudrais que l'utilisateur puisse modifier ou mettre le chemin d'accès dans une case , L13 par exemple et que cette case modifie la macro pour y ajouter la PJ


MERCI

RAPHAEL

Function EnvoiMail(Ligne)
Set myitem = Outlook.Application.CreateItem(olMailItem)

Agrement = Cells(Ligne, 2)
Nom = Cells(Ligne, 3)
Expiration = Cells(Ligne, 5)
MailResp = Cells(Ligne, 6)
Mailcc = Cells(4, 13)
MailBcc = Cells(5, 13)

objet = "Agrement n° " & Agrement
myitem.Subject = "Agrément  arrive a échéance"
myitem.To = MailResp
myitem.CC = Mailcc
myitem.BCC = MailBcc
myitem.Attachments.Add "D:\essai\IMG_9067.jpg"
myitem.Display

' on ajoute texte dans le message au format HTML
    myitem.HTMLBody = "<p>Bonjour, </p>  <p>Votre agrément  arrive à échéance dans 1 mois.</p>Vous étes prié de le renouveler dans les plus bref délais.</p>" & _
    "<p>nous nous tenons à votre disposition   <B>" & _
    "<p></B>prenez contact avec M. HEON <B>" & _
    "<p></B>Cordialement. </p> N. DET </p>" & myitem.HTMLBody
    
'Activer la ligne suivante si on veut que les mails soit directement envoyés
'myitem.Send
End Function

 

[Compte Supprimé 979]

Re : Pièce jointe à un mail via excel

Salut LeTrouBadour ;-)

Tout simple, a tester

myitem.Attachments.Add Sheets("NomFeuille").Range("L13").Value

A+

 

[letroubadour]

Re : Pièce jointe à un mail via excel

Merci Bruno

c'est tout simplement parfait !!


RAPHAEL