envoie d email en vba excel

bonjour,

svp comment envoyer un email ?mais pas automatiquement .
moi je veux quand je clique sur le button envoyer sa sort la fenetre ou je peux choisir le fichier que je veux envoyer et apres l envoyer par mail mais pas automatiquement mais ca serait mieux si ca sort la fenetre de outlook et la piece jointe dedans .


merci pour votre aide

bonjour

Tu peux tester cette procédure:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim Ol As Object, ObjItem As Object   Set Ol = CreateObject("outlook.application") Set ObjItem = Ol.CreateItem(0)   With ObjItem .to = "destinataire@dvp.fr" .Subject = "Le sujet" .Body = "Bonjour," & vbCrLf & "Ci joint le fichier." & _ vbCrLf & vbCrLf & "Cordialement." & vbCrLf & Environ("username") .Attachments.Add "C:\NomFichier.xls" .Display '.Send End With   Set Ol = Nothing

---

michel