Macro Excel Envoyer mail

Résolu
Rayan75 Messages postés 3 Date d'inscription   Statut Membre -  
 néné -
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. néné
     
    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
    0
  2. pepe35
     
    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
    -1