In addition to Mike's advice, I noticed your code does not seem to Log-on to Outlook (I don't know if it is needed in your case):
* Instanciate and logon to Outlook Application Object
oOL=CREATEOBJECT('Outlook.Application')
oNS=oOL.GetNamespace("MAPI")
oNS.Logon
If I remember correctly, Outlook needs to be setup as the "default mail" program also.
>my system needs to send automatic emails, has been using automation of office2000 without problems aside from crashes automating excel (see previous post) aq thought I had on this was to update/upgrade office to see if that helped.
>
>thats when I discovered... yep ms's secret plan to bugger up anyone automating emails.
>
>the simple code I use is:
>
> oOutlook = CreateObject("Outlook.Application")
> ASclientmail = oOutlook.CreateItem(0)
> ASclientmail.to = ASemailto
> If ASemailsubject = ""
> ASclientmail.subject = alltrim(jobname) + " Processing Report " + alltrim(dtoc(date()))
> Else
> ASclientmail.subject = alltrim(ASemailsubject)
> Endif
> ASclientmail.body = ASemailtext
> If file(fullpath(ASemailattach))
> ASclientmail.Attachments.Add(fullpath(ASemailattach))
> Endif
> ASclientmail.send
> ASclientmail = .null.
> oOutlook = .null.
>
>ok so how do I make this work with hideous outlook xp? thanks in advance.
Imagination is more important than knowledge