Macro Excel Envoyer mail

Résolu
Bonjour,

Je voudrai créer, si c'est possible, une macro sur Excel, capable d'envoyer une feuille d'un classeur dans le corps du message (sur out look).

Pouvez vous me conseiller merci d'avance.
Configuration: Windows XP
Internet Explorer 6.0

2 réponses

  1. Bonjour

    Voici une macro

    Sub EnvoiUnMail()
    Dim MailAd As String
    Dim Msg As Range
    Dim Maplage As Range
    Dim Subj As String
    Dim URLto As String
    MailAd = "adressedestinataire@free.fr"
    Subj = "Envoi d'une sélection"
    Set Maplage = Application.InputBox(Prompt:="Sélectionnez la plage à imprimer", Title:="Imprimer", Type:=8)
    Maplage.Copy

    URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & "Une fois sur le corps d'Outlook faites coller"
    ActiveWorkbook.FollowHyperlink Address:=URLto
    End Sub
    1. Bonjour,
      Si c'est ponctuel, le plus simple est de faire un copier-coller.
      Sinon tu peux toujours envoyer ton tableau en pièce jointe.

      A+

      pepe35