Discussion :

[nico0007]

Bonjour,

Je suis en train de développer une petite appli qui va me permettre d'envoyer des mails génériques par Outlook. Pour cela j'affiche une Userform qui donne à l'utilisateur le choix de l'adresse du destinataire du mail ainsi que l'objet du mail.
Mon seul problème est la pièce jointe. J'arrive à afficher la boîte de dialogue Open, sélectionner mon fichier, seulement j'aimerai récupérer le chemin du fichier que je sélectionne car la méthode d'envoi du mail est ainsi écrite:

Code :

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

1
2
3
4
5
6
7
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
       .To = ComboBox1.Value
       .Subject = ComboBox2.Value
       .Attachments.Add (MonCheminDeFichier)
       .Send
End With

Quelqu'un pourrait-il m'aider?
Merci

[Jean-Philippe André]

bonjour,
peux-tu nous indiquer comment tu ouvre la boite de dialogue stp ?

[nico0007]

Voici mon code:

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
24
25
26
27
28
29
30
31
Public fd As FileDialog
Public fic As String
 
Private Sub CommandButton1_Click()
'Set myOlApp = CreateObject("Outlook.Application")
Dim objOutlook As New Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
       .To = ComboBox1.Value
       .Subject = ComboBox2.Value
       '.Body = TextBox1.Value
       .Attachments.Add (fic)
 
End With
Set objOutlookMsg = Nothing
 
End Sub
 
Private Sub CommandButton2_Click()
Unload UserForm1
ActiveWorkbook.Close
End Sub
 
Private Sub CommandButton3_Click()
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
        .Show
End With
fic = fd.InitialFileName
End Sub

Merci de votre aide

[Jean-Philippe André]

d'accord, alors comme tu es sous Excel, je te propose d'utiliser cette méthode :

Code :

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

1
2
3
4
5
dim fic as Variant
fic = Application.GetOpenFileName()
if fic <> "" Then
msgbox fic
end if

tu peux l'adapter aisément à ton code déjà existant

[nico0007]

merci, ça marche impeccable!!
Je me prenais un peu trop la tête dans des bidouilles, là c'est plus simple et plus rapide!!

Merci encore