problems with CDO

[INFORMAT]

Hi,

I have made a program to send out our newsletters to all are clients. No i want to deploy this program on a other pc (who will be responsible for the newsletters), but when I want to mail the newsletters from my app on his pc, I get an error. I have been able to figure out that the problem was when he has to update the configuration fields:

this is my code:


Dim msgoutlook As New CDO.Message
Dim objConfig As New CDO.Configuration
Dim fields
objConfig.Load(CdoConfigSource.cdoDefaults)

fields = objConfig.Fields

' Set config fields we care about
With fields
.Item("

http://schemas.microsoft.com/cdo/configuration/sendusing")

= 2
.Item("

http://schemas.microsoft.com/cdo/configuration/smtpserver")

= "mysmtpserver"
.item("

http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")

= 30
.item("

http://schemas.microsoft.com/cdo/configuration/smtpserverport")

= 25
.item(4) = "someone"
.item("

http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")

= 1
.item("

http://schemas.microsoft.com/cdo/configuration/sendusername")

= "someone"
.item("

http://schemas.microsoft.com/cdo/configuration/sendpassword")

= "password"
.Update()
End With

if I put the update() in a try - catch, than I get an error when I want to send the email.

because I have made a reference to an COM-object (cdosys.dll), VS.net has made an interop.cdo.dll
the problem should be in de interop.cdo dll.
has anyone has an idea on how I can solve this problem?

thanks
Björn

 

[RichS]

Zarcom wrote a neat little FAQ on sending email. You may want to change your code to use the .NET Mail class:

FAQ796-2119