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

Display n'affiche pas (macro excel envoi mail via outlook) - Logiciels - Windows & Software

Marsh Posté le 18-08-2010 à 16:16:13    

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?  
 

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.                 .Send
  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
  41.     ActiveWorkbook.EnvelopeVisible = False
  43. End Sub


 
Merci de votre aide.
 
Crochette. :??:

Reply

Marsh Posté le 18-08-2010 à 16:16:13   

Reply

Marsh Posté le 18-08-2010 à 17:44:27    

La solution était de supprimer la ligne 41, maintenant ça marche nickel.
 
Merci.

Reply

Marsh Posté le 18-08-2010 à 17:56:00    

Ce sujet a été déplacé de la catégorie Hardware vers la categorie Windows & Software par DraCuLaX

Message cité 1 fois

---------------
| Un malentendu du cul | boum boum ! | La roulette
Reply

Marsh Posté le 19-08-2010 à 13:36:26    

DraX a écrit :

Ce sujet a été déplacé de la catégorie Hardware vers la categorie Windows & Software par DraCuLaX


 
C'est moi-même qui ai écrit la solution à mon problème sur ce poste, je sais bien qu'il est résolu! Alors pourquoi bloquer mon sujet d'aujourd'hui, je suis toujours sur le même code mais ma question est totalement différente et n'a à mon sens rien à faire ici!

Reply

Sujets relatifs:

Leave a Replay

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