Try to add call to GetNameSpace().

o = CreateObject("OutLook.Application")
oNs = o.GetNameSpace("MAPI")
...

>Hello Everyone,
>I am using a code similar to the one bellow to send e-mail from VFP 5.0/7.0
>using Microsoft OutLook
>
>o = CreateObject("OutLook.Application")
>oItem = o.CreateItem(0)
>oItem.Subject = "Email From VFP5/VFP7"
>oItem.To = "MyName@MyCompany.Com"
>oItem.Body = "This mail was sent from vfp using Outlook 2000"
>oItem.Send()
>o = .null.
>
>The code was working fine before under Windows 98 and NT 4.0, but under 2000
>I'm getting this error :
>
>"OLE IDispatch exception code 61704 from Microsoft OutLook:
>Internal application error..."
>
>when I try to execute the second line in the code, which is:
>oItem = o.CreateItem(0)
>
>Any ideas what could be causing it?
>
>THIS.Thanks("in advance")