Issue on send mail by using CDOSYS.DLL

[Atenza]

Hi all,

I develop an VB6 program to send email by using CDOSYS.DLL. It works fine as
follow:

Dim iMsg As New CDO.Message
Dim iDsrc As CDO.IDataSource
Set iDsrc = iMsg ' (QueryInterface )
Dim iConf As New CDO.Configurati on
Dim Flds As ADODB.Fields
Set Flds = iConf.Fields

With Flds
.Item(cdoSendUs ingMethod) = cdoSendUsingPor t
.Item(cdoSMTPSe rver) = "smtp.myServer. com"
.Item(cdoSMTPSe rverPort) = "123"
.Item(cdoSMTPCo nnectionTimeout ) = 10 ' quick timeout
.Item(cdoSMTPAu thenticate) = cdoBasic
.Item(cdoSMTPUs eSSL) = True
.Item(cdoSendUs erName) = "user"
.Item(cdoSendPa ssword) = "password"

.Update
End With

With iMsg
Set .Configuration = iConf
.To = "ot***@myServer .com"
.From = "[e-mail] m"
.Subject = "Testing 123"
.Send
End With
However, when i migrate to VB.NET as follow:
Dim iMsg As New CDO.Message
Dim iConf As New CDO.Configurati on
Dim iFlds As ADODB.Fields
Dim oField As ADODB.Field

iFlds = iConf.Fields

Try
oField = iFlds(CDO.CdoCo nfiguration.cdo SendUsingMethod )
oField.Value = CDO.CdoSendUsin g.cdoSendUsingP ort
oField = iFlds(CDO.CdoCo nfiguration.cdo SMTPServer)
oField.Value = "smtp.myServer. com"
oField = iFlds(CDO.CdoSe ndUsing.cdoSend UsingPort)
oField.Value = 123
oField = iFlds(CDO.CdoCo nfiguration.cdo SMTPAuthenticat e)
oField.Value = CDO.CdoProtocol sAuthentication .cdoBasic
oField = iFlds(CDO.CdoCo nfiguration.cdo SMTPUseSSL)
oField.Value = True
oField = iFlds(CDO.CdoCo nfiguration.cdo SendUserName)
oField.Value = "user"
oField = iFlds(CDO.CdoCo nfiguration.cdo SendPassword)
oField.Value = "password"

iFlds.Update()

iMsg.Configurat ion = iConf
iMsg.From = "ot***@myServer .com"
iMsg.To = "[e-mail] m"
iMsg.Subject = "Testing 123"
iMsg.Send()
Catch ex As Exception
Console.Write(e x)
Finally
End Try

I've got an error when execute the .Send() method:
System.Runtime. InteropServices .COMException (0x80040213): The transport
failed to connect to the server.
at CDO.MessageClas s.Send()
at WindowsApplicat ion1.Form1.Butt on1_Click(Objec t sender, EventArgs e)

Both VB6 and VB.NET program are executed on the same XP machine without
exchange or outlook client is installed. I found that the VB.NET program can
be successfully executed on an XP machine WITH an outlook 2003 application
installed.

From MSDN, it seems that CDOSYS.DLL is target for exchange client installed?
is it true? but how come the VB6 program can be executed on XP machine
without exchange or outlook is installed (except outlook express)? Any
suggestion is appreciated!!

Thanks in advance!!
Martin