Hello, No problem. There is no error message. That's why it strange. But, i think i may rewrite the OnSMTPData as this : ' Sub OnSMTPData(oClient, oMessage) Sub OnSMTPData(oClient, oMessage) Result.Value = 0 blockedVarLenEnd = Array(".bid", ".best", ".casa", ".club", ".com.au", ".cn", ".cyou", ".dat...