Mail automatique

Bonjour,

Je dois envoyer systématiquement un mail de factures acquittées aux clients qui ont payés. Est il possible vu que dans mon tableau Excel j'ai une colonne avec l'adresse mail du client, d'envoyer un mail automatique? J'aimerai si possible prédéfinir une texte genre " Monsieur (Madame),

Nous accusons réception de votre règlement dont nous vous remercions.

Vous trouverez, ci-joint, votre facture acquittée.

Nous vous en souhaitons bonne réception.

Veuillez agréer, Monsieur (Madame), nos salutations distinguées.

et pouvoir y joindre une pièce jointe.

Merci d'avance

Barbara

Bonjour,

sans fichier, on doit faire des suppositions : toutes les lignes où il est marqué supposition sont potentiellement à modifier.

Sub SendWithAtt()

    Set olApp = CreateObject("Outlook.Application")
    dl = Cells(Rows.Count, "A").End(xlUp).Row
    Set olMail = olApp.CreateItem(0)

    For i = 2 To dl
        statutfacture = Cells(i, "G")    ' en supposant que le statut de la facture soit en colonne G
        If statutfacture = "payé" Then    ' on teste le statut de la facture
            statutenvoi = Cells(i, "H")    ' en supposant que le statut de l'envoi soit en colonne H
            If statutenvoi <> "envoyé" Then    ' on teste si pas encore envoyé
                With olMail
                    .to = Cells(i, "F")    ' en supposant que l' adresse mail soit en colonne F
                    '.CC = "name2@domain2.com"
                    .Subject = "accusé de réception de votre paiement"
                    msg = "Monsieur (Madame)," & vbCrLf & vbCrLf
                    msg = msg & "Nous accusons réception de votre règlement ce dont nous vous remercions." & vbcrlfr
                    msg = msg & "Vous trouverez, ci-joint, votre facture acquittée." & vbCrLf
                    msg = msg & "Nous vous en souhaitons bonne réception." & vbCrLf & vbCrLf
                    msg = msg & "Veuillez agréer, Monsieur (Madame), nos salutations distinguées."
                    .Body = msg
                    .Attachments.Add Cells(i, "I") 'en supposant que l'adresse de l'annexe se trouve en colonne I
                    .Display    '.Send
                End With

                Set olMail = Nothing
                Cells(i, "H") = "envoyé" 'supposition cfr plus haut
            End If
        End If
    Next i
    Set olApp = Nothing
End Sub

Merci beaucoup!!!!!