XL 2013 Déclencher un mail outlook à partir de plusieurs plages de données excel

fanch55 à dit:

Bonjour,
Code à tester dans celui de la feuille concernée.
Mettre 2 boutons et leur affecter les 2 subs .
Sélectionner une plage et presser le bouton de la sub Exemple

VB:

Dim MailItem    As Object
Dim Outlook     As Object
Dim Wins        As Object

Sub Exemple()
    If MailItem Is Nothing Then
        Set Outlook = CreateObject("Outlook.Application")
        Set MailItem = Outlook.CreateItem(olMailItem)
        With MailItem
    '        .To = "machin@toto.fr"
    '        .CC = ""
    '        .Subject = "An Email For You"
        End With
        Set Wins = MailItem.GetInspector.wordeditor
    End If
   
    Selection.CopyPicture
    With Wins.Paragraphs(Wins.Paragraphs.Count).Range
        .InsertParagraphAfter
        .Collapse Direction:=wdCollapseEnd
        .Paste
    End With

End Sub

Sub Show_Mail()
   
    MailItem.display
   
    Set Wins = Nothing
    Set MailItem = Nothing
    Set Outlook = Nothing

End Sub

Cliquez pour agrandir...