[OL-2003] Envoye de mail avec pièce jointe sélectionnée

[pauol]

Bonjour,

Je cherche à faire un envoye semi-automatique de mail avec Outlook.

Seule intervention d'utilisateur: la sélection du fichier à envoyer.

Pouvez-vuos me dire comment m'y prendre(pour la sélection du fichier, pour le reste c'est bon), sachant que je suis sur outlook 2003?

Merci d'avance.

P.S. Actuellement le code ressemble à ça:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 Sub Send()
 
 
     Dim strRetourInput As String
     strRetourInput = InputBox("Saisir le numéro de fax:", "Numéro fax:", "")
        If strRetourInput = "" Then
        MsgBox "Action annulée par l'utilisateur ou bien aucune saisie de l'utilisateur."
      End If
 
 
   Dim olApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Set olApp = Outlook.Application
    Set objMail = olApp.CreateItem(olMailItem)
    With objMail
    .BodyFormat = olFormatPlain
    .Subject = "Fax"
    .Body = "xxxxxx"
    .To = strRetourInput + "@fax.xxxx.fr"
    .Display
    End With
 
 
End Sub

[helas]

Bonjour,
ajouter une piece jointe

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Send()
     Dim strRetourInput As String
     strRetourInput = InputBox("Saisir le numéro de fax:", "Numéro fax:", "")
     If strRetourInput = "" Then
        MsgBox "Action annulée par l'utilisateur ou bien aucune saisie de l'utilisateur."
     End If
 
    Dim olApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Set olApp = Outlook.Application
    Set objMail = olApp.CreateItem(olMailItem)

    Dim FichierJoint As Outlook.Attachments
    Set FichierJoint = objMail.Attachments
    fichier = "C:\dossier1\fichier1.xls"
    FichierJoint.Add fichier, olByValue, 1, ""

    With objMail
    .BodyFormat = olFormatPlain
    .Subject = "Fax"
    .Body = "xxxxxx"
    .To = strRetourInput + "@fax.xxxx.fr"
    .Display
    End With
 
 
End Sub