---

Why the body of mine mails it is cancelled after 10-15 minuteren?

My code is:
Public Function SendMail(vSMTPServer As Variant, _
vMittente As Variant, _
vDestinatario As Variant, _
vOggetto As Variant, _
vCorpo As Variant, _
vHTML As Variant)

Dim iMsg As New CDO.Message
Dim iConf As New CDO.Configuration

Dim Flds As ADODB.Fields
Set Flds = iConf.Fields

With Flds

.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = vSMTPServer
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPAuthenticate) = cdoAnonymous
.Update

End With

With iMsg
Set .Configuration = iConf
.From = vMittente
.To = vDestinatario
.Subject = vOggetto
.TextBody = vCorpo
.HTMLBody = vHTML
.Send
End With

End Function


Please help me!
Mimmo