Discussion :

[Didier CH]

Bonjour,

Le code ci-dessous est censé envoyer ma facture automatiquement par mail.
J'ai bien une adresse mail dans ma fiche client, ma facture a bien été créée en PDF et stockée dans le bon répertoire.
Mais il n'y a pas d'envoi ni trace de mail dans OUTLOOK.
Qu'est ce qui cloche ?
Merci de votre aide
Cordialement
Didier

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
Private Sub Report_Activate()
Dim fichier As String
Dim base As Database: Dim requete As String
Dim client_msg As New Outlook.Application
Dim message As Outlook.MailItem
Dim adresse As String: Dim ligne As Recordset
 
fichier = Application.CurrentProject.Path & "\Archives_factures\facture_" & Com_num.Value & ".pdf"
DoCmd.OutputTo acOutputReport, , acFormatPDF, fichier, False
 
Set base = Application.CurrentDb
requete = "UPDATE Commandes SET Com_facture='facture_" & Com_num.Value & ".pdf'WHERE Com_num=" & Com_num.Value
base.Execute requete
 
Set ligne = base.OpenRecordset("SELECT mail FROM Clients WHERE Code_client=" & Code_Client.Value, dbOpenDynaset)
 
ligne.MoveFirst
adresse = ligne.Fields("mail").Value
 
ligne.Close
base.Close
Set ligne = Nothing
Set base = Nothing
 
MsgBox adresse
 
End Sub

[hyperion13]

Salut
Pourriez-vous encapsulez votre code avec les octothorpes (balise CODE) svp
Je ne vois nul part dans votre code la commande SEND !
Une lecture s'impose ici

[Didier CH]

Salut
Pourriez-vous encapsulez votre code avec les octothorpes (balise CODE) svp
Je ne vois nul part dans votre code la commande SEND !
Une lecture s'impose ici

Je manque de connaissance en VBA, pouvez-vous compléter mon code ?
En vous remerciant

Cordialement
Didier

[hyperion13]

re
une proc basique

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
Public Sub SendEmail_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim strFilepath As String, strFolder As String
Dim strSql As String
 
strFilepath = CurrentProject.Path
strFolder = "\nomDossier\"
strFilepath = strFilepath & strFolder
 
Dim outApp As Outlook.Application
Dim outMail As Outlook.MailItem
 
Set dbs = CurrentDb
 
strSql = "SELECT * FROM maTable WHERE id = " & Me.id
Set rst = dbs.OpenRecordset(strSql, dbOpenDynaset)
 
Set outApp = New Outlook.Application
Set outMail = OutlookApp.CreateItem(olMailItem)
 
With outMail
    .To = rst.Fields("nomChamp").Value
    .Subject = "facture N°" & rst.Fields("nomChamp").Value
    .Body = "Voir pj"
    .Attachments = strFilepath & rst.Fields("nomChamp").Value
    .Display ' ou .Send
End With
 
rst.Close
Set rst = Nothing
Set dbs = Nothing
Set outMail = Nothing
Set outApp = Nothing
End Sub