Mail avec outlook mais pas outlook express

Merci !

mais je n'ai pas trouvé mon bonheur

car il parle de outlook express mais mois je ne possède pas car c'est version ancienne

j'ai microsoft outlook 2003

merci

Salut Chinel,

dans la procédure Workbook_Open de ThisWorkbook, tu ajoutes ceci:

Application.OnKey "{F12}", "Envoyer_Feuille"

La touche F12 va déclencher l'envoi du email

met ceci dans un module

Sub Envoyer_Feuille()
ThisWorkbook.Sheets("Nom_de_ta_feuille").Copy
    With ActiveWorkbook
         .SendMail Recipients:="le email du destinataire", _
          Subject:="Voici le fichier demandé "
         .Close SaveChanges:=False
    End With   
End Sub

Ce que ca fait:

• isole la feuille voulue hors du classeur de départ
• envoie un nouveau classeur contenant la feuille isolée à l'adresse voulue
• ferme le nouveau classeur sans l'enregistrer

Il faut que ton client mail (Outlook ou autre) soit ouvert. Outlook2003 va te demander de confirmer l'envoi d'un email "dans ton dos". Tu cliques sur "Oui" et voilà.

Si tu as d'autres questions, n'hésites pas.

A+

F.

Salut le forum

Chinel tu aurais du demeurer sur la même ficelle, ou du moins donner une

réponse à Amadéus. (Il attend encore devant son PC, si sa réponse fonctionne.)

• <Le lien de la question originale, avec la réponse donné par Amadéus.>

P.S. Un retour de message à Francois de sa réponse, qu'elle soit bonne ou pas,

nous ne sommes pas des robots, mais juste des bénévoles qui aiment Excel et vous

donnes une partie de notre temps.

Je vais encore passer pour être le rebelle des forums.......