This worked for quite sometime, and now it has stopped working and I do not know why. No error message appears and the object oMSG is valid. The code runs each line as it should but the messages appear to be lost in la la land. I am concerned because I have no idea what made it stop successfully sending messages.
I know that it requires winsock2 but that should not be a problem on Windows 2000 or Windows XP systems.
In my testing, I have Windows XP Pro SP2. It quit working in VFP8 and VFP9 on my system during testing.
oMSG = CREATEOBJECT("CDO.Message")
IF TYPE('oMSG') = "O" .AND. !ISNULL(oMSG)
oMSG.TO = "myemail.hotmail.com"
oMSG.FROM = "me@mywork.com"
oMSG.TextBody = "Error Report"
oMSG.Subject = "Error Report Test"
oMSG.SEND()
ENDIF
oMSG = NULL
RELEASE oMSG
.·*´¨)
.·`TCH
(..·*
010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"