Dear friends,
I want to stop sending mail after sending once. In my code I tried to stop loop after sending the mail first time but in vain. So I'm pasting a peace of code where i have to add stop command after sending once on the day of expire. The code is:

Do
ActiveCell.Offset(1, 0).Select
adRow = ActiveCell.Row
If Range("ad" & adRow).Value = "-" Then GoTo lblLoop
If Cells(adRow, 31).Value <> "Expired" Then GoTo lblLoop
(here I want to add 3rd if command to stop mail for ever)
On Error GoTo lblLoop

Here I want to add third if command which stop the sending mail after sending first time. In short the message should be send only once and not after that in future. It's a condolence message which should be send on the day of expire only and stop after that.

Do suggest me a if command to perform this action.

Thanking you in anticipation.

Mukesh