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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  prob vba

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

prob vba

n°1372852
mlcor
Posté le 23-05-2006 à 10:26:48  profilanswer
 

bonjour
voila mon probleme je souhaite créer une macro qui me permet d'envoyer une page d'un classeur excel par mail (en lançant outlook) juste en cliquant sur un bouton de commande.
le probleme c'est que je n'y connais pas grand chose en vb
help me!!!!!

mood
Publicité
Posté le 23-05-2006 à 10:26:48  profilanswer
 

n°1372882
kiki29
Posté le 23-05-2006 à 10:47:34  profilanswer
 


 
 
Sub SendMail_Outlook ()  
'Avant de lancer cette macro, Dans l'éditeur VBA:  
'Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"  
 
   Dim ol As New Outlook.Application  
   Dim olmail As MailItem  
   Dim CurrFile As String  
 
   Set ol = New Outlook.Application  
   Set olmail = ol.CreateItem(olMailItem)  
   With olmail  
      .To = range("a3" ).value  
      .Subject = Range("a1" ).Value  
      .Body = "Contenu " & Range("a2" ).Value  
      .Attachments.Add "c:\data\essai.doc"  
      .Display '.Send  
 'On peut switcher entre .send et .display selon que l'on veut envoyer  
 'le mail (send) ou seulement le préparer et le vérifier(display)  
   End With  
End Sub  
   
Sub Quit_Outlook()  
'Demander à Excel de Quitter Outlook  
    Set myOlApp = CreateObject("Outlook.Application" )  
    myOlApp.Quit  
End Sub  
 
ou http://www.exceltip.com/st/Control [...] l/464.html


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  prob vba

 

Sujets relatifs
Prob installe java, pourtant c pas dur !!!!prob rechargement xmlHttpRequest
[PHP] Prob requete[php] Prob formulaires
prob avec struct sockaddr_in et inet_addr[PHP][resolu] prob pour l'ajout de photo
prob upload fichier dans popupprob sérialisation
prob checkbox[RESOLU] PROB liste chainée d'objet push_back()
Plus de sujets relatifs à : prob vba


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)