This is a workaround
http://www.dimastr.com/redemption/


>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.