Macro

Fermé
ubik51 Messages postés 1 Date d'inscription lundi 18 février 2019 Statut Membre Dernière intervention 18 février 2019 - Modifié le 18 févr. 2019 à 14:53
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 - 18 févr. 2019 à 16:10
Bonjour,

Je viens de découvrir la macro et je souhaite automatisé l'envoi d'un document une fois celui ci compléter. J'ai écris ce que je pensais être le code mais cela ,e marche pas. Quelqu'un pourrait il m'aider ?
Merci d'avance.
"feuil5"
        derlig = Range("C65")
        For L = 1 To derlig
            strbody = ""
            If Range("A65") = "complet" Then
                Set OutApp = CreateObject("Outlook.Application")
                Set OutMail = OutApp.CreateItem(0)
                strbody = .Range("A" & L) & " et " & .Range("B" & L) & " sont disponibles"
                'On Error Resume Next
                With OutMail
                    .To = "xxxxxx@xxxxx.fr"
                    .CC = ""
                    .BCC = ""
                    .Subject = "A vérifier"
                    .Body = strbody
                    .Display 'visu @Mail
                    '.Send       '
                End With
                On Error GoTo 0
            End If
            Set OutMail = Nothing
            Set OutApp = Nothing
        Next L
    End With
End Sub
A voir également:

2 réponses

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
18 févr. 2019 à 15:48
0
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
18 févr. 2019 à 16:10
Bonjour a tous,

mais cela ,e marche pas.
Qu'est-ce qui ne marche pas????
0