[VBA-E]envoi mail avec pièce jointe

Version imprimable

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:

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

19/03/2007, 10h27
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 ?
19/03/2007, 10h59
magictom42

je veux envoyer le mail avec Outlook.

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:

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

Procédure d'envoi

Code:

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:

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