Discussion :

[ullyse31]

Bonjour à tous,
Je viens vers vous car j’aurais besoin d’aide afin d’envoyer un mail outlook via une macro en fonction de données du TCD suivant





Voici le code que j'ai essayé mais ça ne marche pas et je ne comprends pas pourquoi

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
Sub macor()
Dim Objet As String
Dim OutlookApp As Object
Dim OutlookMail As Object
 
 
    'Initialisation des variables
 
    Objet = "pointage factures"
 
 
    Set OutlookApp = CreateObject("outlook.application")
    Set OutlookMail = OutlookApp.createitem(0)
 
 
    With OutlookMail
        .To = Range("B3")
        .Subject = Objet
        .body = "Bonjour," & vbCrLf & "Vous n'avez pas pointé les factures des périodes suivantes: " & vbCrLf &  Range("A7:A20") & vbCrLf  & "Bien cordialement"
        .Display
 
 
 
    End With
 
End Sub

Je ne comprends pas pourquoi pas ça ne marche pas. J’ai mis Range("A7:A20") car le nombre de factures à pointer peut varier de 1 à 13.
PS : voici la base de données utilisée si ça peut vous aider pour mieux comprendre le problème





Merci de votre aide, je débute sur VBA