Enrico,
>I don't like it very much because I still don't know what the error is so I can't trap it.
You don't need to know what it is, just loop back from where the msgInfo() displaying the error message (the one after the send).
James
local lError :=.f.
local nCounter:=0
local nTrys:=3
local nWait:= 5 // in seconds
...
do while lError .and. nCounter < nTrys
TRY
oEmailMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT oEmailMsg
...
:Send()
END WITH
SysRefresh()
CATCH oError
lError:=.t.
nCounter++
waitSeconds( nWait )
END
enddoJames Bott wrote:Enrico,
>I don't like it very much because I still don't know what the error is so I can't trap it.
You don't need to know what it is, just loop back from where the msgInfo() displaying the error message (the one after the send).
James
I prefer to know what I deal with... James Bott wrote:Enrico,
Here is a sample using a loop on error (not tested).
Enrico,
I just realized that you are probably going to need to set oError to nil in the CATCH oError routine--even if just for clarity.
James
Ok, thank you. I'm still waiting the client report after your SysRefresh() suggestion... 
EMG
