Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
789 connectés 

  FORUM HardWare.fr
  Windows & Software
  Logiciels

  envoi mail outlook par excel

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

envoi mail outlook par excel

n°2957793
Crochette
Posté le 19-08-2010 à 11:31:35  profilanswer
 

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


 
Merci de votre aide.  
 
Crochette.


Message édité par Crochette le 19-08-2010 à 11:32:31
mood
Publicité
Posté le 19-08-2010 à 11:31:35  profilanswer
 

n°2957797
Modération
Posté le 19-08-2010 à 12:16:40  answer
 

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


Aller à :
  FORUM HardWare.fr
  Windows & Software
  Logiciels

  envoi mail outlook par excel

 

Sujets relatifs
Display n'affiche pas (macro excel envoi mail via outlook)Recupérer dossiers Outlook après formatage
outlook express vers outlook 2010[Excel] Generer une base de donnée
[Excel] Copier le contenu d'une cellule sans caractère d'échappement?Excel : fonction recherchev +si
Plus de sujets relatifs à : envoi mail outlook par excel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR