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) mais elle ouvre le mail directement dans excel et je suis obligée d'envoyer mon fichier avant de pouvoir retravailler dessus.
Quelqu'un pourrait-il m'indiquer comment ouvrir directement une fenetre outlook indépendante?
Je sais qu'il y a de nombreux codes le font mais je n'en ai trouvé aucun qui permette l'envoi d'images comme celui-ci:
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
- End Sub
|
Merci de votre aide.
Crochette.
Message édité par Crochette le 19-08-2010 à 11:32:31
: