Bonjour, je souhaite envoyer directement un mail sur Excel VB avec comme pièce jointe le fichier Excel qui est ouvert. Merci de m'aider.
Voici le code :
Code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Dim Sujet As String Dim MailDest As String Dim objOLApp As Outlook.Application Dim Mail As Outlook.MailItem Dim ObjSession As Object ' Création de l'objet outlook Set objOLApp = CreateObject("Outlook.Application") ' Création de l'item pour le message Set Mail = objOLApp.CreateItem(olMailItem) ' Création de l'objet de gestion des messages Set ObjSession = objOLApp.GetNamespace("MAPI") ' Création du sujet du message Sujet = "Recap Pannes" ' Demande l'adresse du destinataire
Partager