Discussion :

[nouha_79]

bonjour,

svp comment envoyer un email ?mais pas automatiquement .
moi je veux quand je clique sur le button envoyer sa sort la fenetre ou je peux choisir le fichier que je veux envoyer et apres l envoyer par mail mais pas automatiquement mais ca serait mieux si ca sort la fenetre de outlook et la piece jointe dedans .


merci pour votre aide

[SilkyRoad]

bonjour

Tu peux tester cette procédure:

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
Dim Ol As Object, ObjItem As Object
 
Set Ol = CreateObject("outlook.application")
Set ObjItem = Ol.CreateItem(0)
 
With ObjItem
    .to = "destinataire@dvp.fr"
    .Subject = "Le sujet"
    .Body = "Bonjour," & vbCrLf & "Ci joint le fichier." & _
        vbCrLf & vbCrLf & "Cordialement." & vbCrLf & Environ("username")
    .Attachments.Add "C:\NomFichier.xls"
    .Display
    '.Send
End With
 
Set Ol = Nothing

michel