Macro
ubik51
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
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.
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
2 réponses
-
Bonjour
Voir ici, des exemples à télécharger
http://www.maitrise-excel.com/excel-outlook-envoi-mail-macro-excel-envoi-email-piece-jointe/
-
Bonjour a tous,
mais cela ,e marche pas.
Qu'est-ce qui ne marche pas????
