envoi mail outlook par excel

envoi mail outlook par excel - Logiciels - Windows & Software

Marsh Posté le 19-08-2010 à 11:31:35    

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 :
  1. Sub Send_Selection_Or_ActiveSheet_with_MailEnvelope()
  2.     Dim Sendrng As Range
  4.     On Error GoTo StopMacro
  6.     With Application
  7.         .ScreenUpdating = False
  8.         .EnableEvents = False
  9.     End With
  11.     'Note: if the selection is one cell it will send the whole worksheet
  12.     Set Sendrng = Selection
  14.     'Create the mail and send it
  15.     With Sendrng
  17.         ActiveWorkbook.EnvelopeVisible = True
  18.         With .Parent.MailEnvelope
  20.             ' Set the optional introduction field thats adds
  21.             ' some header text to the email body.
  22.             .Introduction = "This is a test mail."
  24.             ' In the "With .Item" part you can add more options
  25.             ' See the tips on this Outlook example page.
  26.             ' http://www.rondebruin.nl/mail/tips2.htm
  27.             With .Item
  28.                 .Display
  29.                 .To = ""
  30.                 .Subject = "My subject"
  31.             End With
  33.         End With
  34.     End With
  36. StopMacro:
  37.     With Application
  38.         .ScreenUpdating = True
  39.         .EnableEvents = True
  40.     End With
  42. End Sub


 
Merci de votre aide.  
 
Crochette.


Message édité par Crochette le 19-08-2010 à 11:32:31
Reply

Marsh Posté le 19-08-2010 à 11:31:35   

Reply

Marsh Posté le 19-08-2010 à 12:16:40    

Pourquoi reposer la question, alors que la réponse figure dans l'autre sujet :??: :
http://forum.hardware.fr/hfr/Windo [...] 8903_1.htm

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed