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

Question

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

cs_Le Pivert · Accepted Answer

Bonjour, 
Il suffit de supprimer la ligne:

 ActiveWorkbook.EnvelopeVisible = False

@+
Le Pivert

cs_Crochette · Answer

Merci beaucoup! ça marche au poil!

Crochette

cs_Crochette · Answer

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

cs_Le Pivert · Answer

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

Display n'affiche pas le mail (envoi mail outlook via vba excel)

4 réponses

Votre réponse

Discussions similaires