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
Partager