Discussion :

[magictom42]

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

[illight]

Rien compris a ton code..

Déja met le dans entre les balises code (#) ça sera beaucoup plus lisible.

De 2, de quelle messagerie tu veux envoyer ce mail ?

[magictom42]

je veux envoyer le mail avec Outlook.

[cwain]

Bonjour,
j'utilise ce code (merci à son créateur) pour envoi de mail automatique avec piece jointe, sous Outlook. Bon par contre pour envoyer le classeur actif, il faut que tu le sauves quelque part et que tu récupères chemin+nom du fichier
Procédure d'appel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call EnvoyerMail("prenom.nom@tchoubidouha.com", "TitreMail", "corps du mail", "piecejointe")

Procédure d'envoi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub EnvoyerMail(AdresseMail As String, ObjetMail As String, CorpsMail As String, AttachMail As String)
'envoi de mail automatique
'initialisation des objets
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
'construction du mail
With objMail
    .To = AdresseMail
    .Subject = ObjetMail
    .Body = CorpsMail
    If AttachMail <> "" Then
        .Attachments.Add AttachMail
    End If
    .Display
End With
'attente de 3 secondes le temps que tous les pcs aient le tps de réagir
Attendre (3)
'simulation d'appui des touches du clavier
SendKeys "%v", True
'réinitialisation des variables
Set objMail = Nothing
Set objOL = Nothing
End Sub

Procédure d'attente

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Attendre(Secondes As Integer)
' Cette procédure temporise pendant le nombre
' de secondes qu'on lui transmet en argument
Dim Début As Long, Fin As Long, Chrono As Long
Début = Timer
Fin = Début + Secondes
Do Until Timer >= Fin
    DoEvents
Loop
End Sub

Cwain