Créer un lien fichier joint excel vers outlook..??

Envoyer la feuille active par mail ( seulement pour Outlook )

Sub envoiMailEtFeuilleActive()
activeSheet.Copy ' créée une copie de la feuille active
activeWorkbook.sendMail Recipients:='forumXLD@test.net' 'envoi Mail
Application.displayAlerts = False
activeWorkbook.Close ' supprime le classeur créé après l'envoi
Application.displayAlerts = True
End Sub

#

Envoyer le classeur actif par mail ( seulement pour Outlook )

Sub envoiMailclasseurActif()
Application.dialogs(xlDialogSendMail).Show 'forum@xld.fr', 'Test d'envoi '
End Sub

#

Envoyer le classeur actif par mail , 2eme méthode

Sub envoiMailClasseurActifV02()
activeWorkbook.sendMail Recipients:='xld@forum.fr'
End Sub

Cliquez pour agrandir...