CDO unable to send with Outlook 2003

[grittyskibum]

Hello,
The following VB code worked nicely before Outlook 2003. It now fails to send email and returns no error message. The only change on the PC was the installation of Outlook 2003. Any ideas would be approciated. Thanks

Dim iMessage As New CDO.Message
Dim iConf As New CDO.Configuration
iMessage.Configuration = iConf
iMessage.Subject = "Resource Advisory"
iMessage.Sender = "my_email"
iMessage.To = "my_email"
iMessage.TextBody = "Please see the attached Excel file"
'iMessage.AddAttachment "c:\temp\readme.xls"

iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1

iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"

iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp server"

iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic


iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user_account"


iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pwd"


iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

iConf.Fields.Update

iMessage.Send