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.