Discussion :

[marcmarc150]

bonjour a tous,
j'ai trouvé via les forums comment envoyé un mail d'un état.
j'ai déjà le pdf de l'état, que j'appelle et dont le chemin se place dans mon champ : lienproforma
dans le code trouvé, pour le call mail_pdf , entre parenthèse un fichier test,
mais ce que j'aimerai , c'est qu'il prenne le fichier dont le chemin est dans : lienproforma

comment faire, je cale depuis 2 jours
est-il possible de m'aider a résoudre ce code.

en vous remerciant

marc marc

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
32
33
34
35
36
37
 
Private Sub proforma_Click()
Dim mon_fichier As String
 
Call mail_pdf(Me.lienproforma) '("C:\Users\marc\Desktop\mises\logo\testmailmarc.pdf")
End Sub
 
 
    Sub mail_pdf(fichier$)
    Dim OutApp As Object
    Dim OutMail As Object
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = "marc@monadressemail.com"
'        .CC = "Vous@mail.com"
'        .BCC = "unautre@mail.fr"
        .Subject = "Document proforma "
       .Body = "Bonjour" & vbCrLf & vbCrLf & "Voici votre proforma"
        .Attachments.Add fichier 'le fichier a envoyé en PDF est mis dans la parenthèse lors de l'appel de la fonction
        .Send
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
 
    Select Case MsgBox("Votre mail proforma est envoyé ", vbOKCancel, "Envoi du Proforma")
    Case vbOK
        Me.dateenvoiproforma.Value = Now
    Case vbCancel
        'procédure si click sur Annuler
End Select
End Sub

[tee_grandbois]

Bonsoir,
as-tu un message d'erreur ?
Me.lienproforma est-il correctement renseigné au moment de l'exécution du Sub ?

[marcmarc150]

bonsoir, je n'ai pas d’erreur lorsque le fichier est inscrit, mais ici c'est de prendre le fichier a la place de l'imposer dans le code
dans le code, ce que j'ai tester entre parenthèse dans la ligne call, c'est un test, je ne sais pas si c'est comme cela que je devait faire ...

je viens de re tester le message part via outlook, mais n'attache pas le pdf, qui est repris dans me.lienproforma

[tee_grandbois]

je ne comprend pas ton besoin

mais ici c'est de prendre le fichier a la place de l'imposer dans le code

Est-ce bien la valeur inscrite dans Me.lienproforma que tu veux pour faire un attachement ?
C'est ce que fait ton code.

[marcmarc150]

donc c'est l'envoi du pdf, mais il faut le reprendre ce pdf via le chemin de me.lienproforma, de l'ajouter dans le mail et de l'envoyer

pour info, je ne suis pas pro, du vba

[tee_grandbois]

je te confirme que le code est correct et si me.lienproforma n'était pas alimenté il y aurait un message d'erreur. Donc je ne vois pas où se situe le problème.
je suppose que proforma est un bouton qui exécute ce code

Code :

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

Call mail_pdf(Me.lienproforma)

ajoute cette instruction juste avant le Call de mail_pdf

Code :

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

Msgbox Me.lienproforma

Cela affichera la valeur contenue dans lienproforma.

[marcmarc150]

bonjour,

avec la message box, c'est ok, il me place le caractère # devant le chemin et il est correct
le mail part, mais il n'a pas intégrer le pdf dans le mail
donc l'envoi du mail est ok mais sans la pièce jointe ..

j'ai aussi, regarder les références, j'ai bien placer celle d'outlook dans access
quand je mets le chemin entre parenthèse a la place du champs, le mail part avec la pièce jointe

c'est la que je ne comprends plus ou pas...

[marcmarc150]

bonjour a tout le monde, le souci était le caractère : # qui était devant le chemin,
j'ai enlever le caractère et c'est réglé

merci de votre aide et vous souhaites une bonne année 2017
a bientôt