Display n'affiche pas le mail (envoi mail outlook via vba excel) [Résolu]

cs_Crochette 3 Messages postés mercredi 18 août 2010Date d'inscription 19 août 2010 Dernière intervention - 18 août 2010 à 15:48 - Dernière réponse : cs_Le Pivert 5144 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 19 mai 2018 Dernière intervention
- 19 août 2010 à 17:14
Bonjour,

J'ai trouvé une macro excel qui envoie des mails avec images via outlook, elle fonctionne très bien (merci à l'auteur: Ron de Bruin), cependant je souhaite voir le mail avant de l'envoyer. J'ai essayé de changer .Send par .Display mais cela ne fonctionne pas et je ne trouve pas de solution.
Quelqu'un a-t-il une explication?

Voici le code:

Sub Send_Selection_Or_ActiveSheet_with_MailEnvelope()
    Dim Sendrng As Range

    On Error GoTo StopMacro

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    'Note: if the selection is one cell it will send the whole worksheet
    Set Sendrng = Selection

    'Create the mail and send it
    With Sendrng

        ActiveWorkbook.EnvelopeVisible = True
        With .Parent.MailEnvelope

            ' Set the optional introduction field thats adds
            ' some header text to the email body.
            .Introduction = "This is a test mail."

            ' In the "With .Item" part you can add more options
            ' See the tips on this Outlook example page.
            ' http://www.rondebruin.nl/mail/tips2.htm
            With .Item
                .Display
                .To = ""
                .Subject = "My subject"
            End With

        End With
    End With

StopMacro:
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    ActiveWorkbook.EnvelopeVisible = False

End Sub


Merci de votre attention.

Crochette
Afficher la suite 

Votre réponse

4 réponses

cs_Le Pivert 5144 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 19 mai 2018 Dernière intervention - 18 août 2010 à 16:45
+3
Utile
Bonjour,
Il suffit de supprimer la ligne:

ActiveWorkbook.EnvelopeVisible = False

@+
Le Pivert
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_Le Pivert
cs_Crochette 3 Messages postés mercredi 18 août 2010Date d'inscription 19 août 2010 Dernière intervention - 18 août 2010 à 17:40
0
Utile
Merci beaucoup! ça marche au poil!

Crochette
Commenter la réponse de cs_Crochette
cs_Crochette 3 Messages postés mercredi 18 août 2010Date d'inscription 19 août 2010 Dernière intervention - 19 août 2010 à 11:24
0
Utile
Bonjour Le Pivert,

J'ai une autre question sur laquelle tu pourras peut-être m'aider: le mail s'affiche maintenant directement dans excel et je suis donc obligée de l'envoyer, est-ce possible de l'ouvrir dans une feuille outlook directement? (j'ai trouvé des codes faisant ça mais ils n'envoient pas d'images comme celui posté ci-dessus).

Encore Merci.

Crochette
Commenter la réponse de cs_Crochette
cs_Le Pivert 5144 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 19 mai 2018 Dernière intervention - 19 août 2010 à 17:14
0
Utile
J'ai juste cela qui te permet de mettre des informations dans une plage de cellule, en l'occurence: A1:B4
Le sujet est en A4

Private Sub CommandButton1_Click()
    Dim MailAd As String
    Dim Msg As String
    Dim Subj As String
    Dim URLto As String
    Dim Maplage As Range
    Sheets("Feuil1").Select
    Set Maplage = Range("A1:B4") 'definition de la plage contenant le Message
    MailAd = Range("A1")
    Subj = Range("A4")
    'boucle qui récupère le texte du message
   For Each Cell In Maplage 'dans chaque cellule de MaPlage...
        Msg Msg & "  " & Cell.Value & "%0D%0A" ' Message Message + Valeur de ma cellule
    Next 'Suite de la boucle
 URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
    ActiveWorkbook.FollowHyperlink Address:=URLto
   End Sub


Dans ce cas tu as le message et rien ne t'empêche de faire une insertion d'image.
@+
Le Pivert
Commenter la réponse de cs_Le Pivert

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.