XL 2013 problème code vba mail

[alexis14000]

Bonsoir à tous,

suite à ma question précédente, je voudrais envoyé un mail par codification VBA par exemple lorsque le mot "rupture" est affiché dans le rang "J" je voudrais qu'un mail s'envoie automatiquement, seulement je voudrais que le mail ne s'envoie qu'une seul fois et non à chaque ouverture du fichier. si cela est possible bien évidemment

merci d'avance

 

[alexis14000]

après quelques recherche j'ai fini par trouver la solution seulement la mail ne s'envoie pas automatiquement auriez vous une idée
Private Sub mail()

Dim outapp As Object
Dim outmail As Object
Dim strbody As String
With Worksheets("tableau de bord")
derlig = Range("k" & Rows.Count).End(xlUp).Row
For L = 1 To derlig
strbody = ""
If Range("k" & L) = "à commander" Then
Set outapp = CreateObject("outlook.application")
Set outmail = outapp.CreateItem(0)
strbody = .Range("f" & L) & "et" & .Range("b" & L) & " a commmander"
With outmail
.To = "alexis.cagnard@spie.com"
.CC = ""
.BCC = ""
.Subject = "a commander"
.Body = strbody
.Send
End With
.Range("k" & L) = "à commander" & " ok"
On Error GoTo 0
End If
Set outmail = Nothing
Set outapp = Nothing
Next L
End With


End Sub