Discussion :

[DuDe92]

Bonjour,
J'ai crée un petit form (merci la FAQ) me permettant d'envoyer des mails via outlook avec pièces jointes.
Cela fonctionne très bien lorsque je saisi ce

Code :

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

1
2
 
oMail.Attachments.Add ("E:\test.xls")

Ce que je souhaiterai faire et n'arrive pas c'est pouvoir choisir le fichier à attacher.
Comme lorsqu'on clique sur le "trombone" d'Outlook...

merci d'avance pour votre aide.

[Lou Pitchoun]

Salut,

Reprends le code de la FAQ pour récupérer le chemin complet du fichier, puis :

Code :

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

oMail.Attachments.Add (OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier Word", "doc"))

[DuDe92]

Voila ce qui arrive quand on ne lit pas les FAQ en entier
Merci infiniment...ça marche

Un dernière question
Comment éviter un message d'erreur d'exécution VB si je clique sur Annuler dans la fenêtre Parcourir ?

[Lou Pitchoun]

Je n'ai pas d'erreur de générée.

Insère une gestion d'erreur dans ta fonction d'envoi de mail.
Un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
On error goto err
...
...
...
Err:
    Select Case err.number
        case 0 ' pas d'erreur
        case 2522 'Erreur lors du clic sur annuler
        case else 'autres cas
    End select

[DuDe92]

Effectivement il n'y a pas d'erreur, j'avais mal placé mon code pour récupérer mon fichier.
Merci pour tout.