Discussion :

[Brice1981]

Bonjour voilà j'ai creer 2 routine pour gerer un formulaire qui est composé des champs texte : destinataire,cc,cci,sujet, et texte message. Plus u n bouton envoyé et une case pour visualisé avant envois.
Tout fonctionnne bien si dans la commande sendobject je le choisi, mais je voudrais que l'utilisateur puisse le choisir de lui même avant l'envois et que celui ci soit bien evidement attaché au mail!!! voici mais 2 routine pouvez vous m'aider car je n'arrive pas a attaché le fichier selectionné

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
Public Sub envoyerEmail(ByVal strdestinataire As String, ByVal strcc As String, ByVal strBCC As String, ByVal strsujet As String, strmsg As String, ByVal blnedit As Boolean)
Dim wdApp As Word.Application, doc As Word.Document
 
 
On Error Resume Next
 
 
Dim fd As FileDialog, varfichier As Variant
Set fd = Application.FileDialog(msoFileDialogOpen)
fd.Title = "Choisissez un courrier"
fd.InitialFileName = "*.*doc"
fd.AllowMultiSelect = True
'ouvrire la boite de dialogue
If fd.Show = False Then
'l'action est annulée
    Set fd = Nothing
 
    Exit Sub
    End If
 
 
 
 
 
     DoCmd.SendObject , "", acFormatSNP, strdestinataire, , , strsujet, strmsg, blnedit
 
 
 
 
End Sub

Et

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
Private Sub btnEnvoyer_clic()
'quelques vérification...
If IsNull(Forms![Mailing]![destinataire]) Then
 
    MsgBox "renseignez la zone destinataire!", vbExclamation, "email"
    Forms![Mailing]![destinataire].SetFocus
 
    Exit Sub
    End If
 
 
'envoyer le message
     envoyerEmail Forms![Mailing]![destinataire], Nz(Forms![Mailing]![CC]), Nz(Forms![Mailing]![cci]), Nz(Forms![Mailing]![sujet]), Nz(Forms![Mailing]![message]), Forms![Mailing]![chkmodifier]
 
 
 
End Sub

'ai bien evidemment une fonction, sur mon bouton envoyer ,qui fais appelle a la derniere sub

[Dolphy35]

Salut,

Je ne comprend pas très bien ton problème, que veux-tu faire exactement ?

[edit] Je n'avais pas vu que tu avais poster un autre Post

bonjour ,
voilà Je m'explique j'ai un formulaire mailing dans celui ci j'ai mis un bouton parcourir qui en réalité me permet de récupérer le chemin complet d'un fichier puis de coller le nom dans une zone txt ...
Donc me voila avec le chemin complet dans une zone txt quelqu'un pourrait il me donné le code me permettant d'envoyer le fichier dont le chemin se trouve dans cette zone txt
Pour le moment c 'est
Code:

docmd.sendObject acsendreport, "Nomdel'état",acFormatsnp,"MAil@joueur.com"

Je précise que c un fichier word que je selectionne pas un état Merci

réponse Comment envoyer un mail avec une pièce attachée ?

[/edit]

Dolphy