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

chac10

XLDnaute Junior
Supporter XLD
Bonjour à la communauté,

Je souhaiterais avoir une macro qui me permet de déclencher un mail Outlook à partir de plusieurs plages de données excel sélectionnées préalablement. Est ce possible ?
Avec un copier-coller, image si possible.
Ne pas indiquer de destinataire
Ni d'objet

Seulement déclencher les plages de donnée que j'aurais sélectionné , dans l'idéal , dans l'ordre que j'aurais choisi.

En vous remerçiant,

Chac10
 

fanch55

XLDnaute Barbatruc
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:
Code supprimé
 
Dernière édition:

chac10

XLDnaute Junior
Supporter XLD
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
Bonjour Merci pour votre réponse,
malheureusement la macro ne fonctionne pas.
il y a un beug sur cette ligne
Set Wins = MailItem.GetInspector.wordeditor Set Wins = MailItem.GetInspector.wordeditor

Chac 10
 

fanch55

XLDnaute Barbatruc
Bonjour, cela vous-a-t-il servi ?

1630659404027.png
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
294 371
Messages
1 938 081
Membres
188 641
dernier inscrit
pcayet