sauver et envoyer feuille via outlook

Gullycousse

XLDnaute Nouveau
bonjour à tous,
J'aimerais voir feuille attachée dans un premier temps via macro enregistrer la feuille initialement remplie pour ensuite l'envoyer direstement via une autre macro à la personne désirée.
Quelqu'un peut-il m'aider?????
 

Pièces jointes

  • essai email.xlsx
    16.4 KB · Affichages: 19

camarchepas

XLDnaute Barbatruc
Re : sauver et envoyer feuille via outlook

Bonjour ,

Dans un premier temps , code a copier dans un module standard ,

Le classeur sera à sauvegarder sous xlsm si Excel 2007 ou 2010

A ADAPTER : Adresse mail , Chemin et nom de pièce jointe

ensuite , il faudra mieux définir ton besoin final

Code:
Sub Pilotage_Outlook()
 Dim OutApp As Object, OutMail As Object
 Dim Nom As String, Chemin As String
 Set OutApp = CreateObject("Outlook.Application")
 
Set OutMail = OutApp.CreateItem(0)
 With OutMail
     .To = "vv@pigeon.fr"           'A
    ' .From = "xxx.yyyy@zzzz.fr"      'De
     '.CC = "adresse mail complémentaire si besoin"
     .Subject = "Ton Objet"
     .Body = "Ton Corps de texte"
     'Spécifie le chemin de stockage des pdf
      Chemin = "C:\temp\"
     'Ajoute les fichiers en pièces jointes
       'Composition du nom du fichier
        Nom = "Piece_Jointe.xlsx"
       'Ajoute piece jointe
       .Attachments.Add Chemin & Nom_Pdf
  
      .Display 'pour voir et modifier ou envoyer
      If MsgBox("A envoyer ?", vbYesNo) = vbYes Then .Send 'Pour envoyer directement
   End With
   MsgBox "Mail envoyé"
 Set OutMail = Nothing
 Set OutApp = Nothing
 End Sub
 

Discussions similaires

Réponses
8
Affichages
1 K

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 849
dernier inscrit
florentMIG