Envoi d'1 feuille ou classeur / outlook

[Bruno]

Bonjour à tous,

je souhaiterais envoyer par mail, la feuille active ou un classeur se trouvant dans 1 endroit déterminé par mail (outlook express-messagerie par defaut sur mon systeme).

Merci de vos reponse a tous

 

[schmail]

Bonjour bruno et le forum

En pièce jointe, une démo de Vériland

@+ et bonne journée

 

[Pascal]

Salut Bruno,

Une autre façon ...

Sub envoie()
Set ol = CreateObject("outlook.application")
Set mail = ol.createitem(olmailitem)
mail.Recipients.Add "machin@truc.fr"
mail.Recipients.Add "bidule@truc.fr"
:
:
mail.Subject = "Inscrire ici le sujet de l'envoie" (peut faire réference à une cellule)
mail.body = "Inscrire ici le corps du message" (peut faire réference à une cellule)
mail.Attachments.Add "C:\...\ nom_fichier1"
mail.Attachments.Add "C:\...\ nom_fichier2"
:
:
mail.OriginatorDeliveryReportRequested = True (accusé de reception)
mail.ReadReceiptRequested = True (accusé de lecture)
mail.send
end sub

Bon courage

Pascal