Hello everybody!
I'm facing a problem related with CDO.Message in a VB6 aplication.
The code below works fine but when executing in a 64-bit server it returns Automation Error: %1 is not a valid Win32 application.
In have referenced in my aplication "Microsoft CDO for windows 2000 Library" (cdosys.dll)
I had search the web and unable to find a definitive solution for this error message.
I would appreciate any help. Thanks!
Greetings to all!
HendelCwb
I'm facing a problem related with CDO.Message in a VB6 aplication.
The code below works fine but when executing in a 64-bit server it returns Automation Error: %1 is not a valid Win32 application.
In have referenced in my aplication "Microsoft CDO for windows 2000 Library" (cdosys.dll)
Code:
Public Function SendMail(sTo As String, sSubject As String, sFrom As String, _
sBody As String, sSmtpServer As String, iSmtpPort As Integer, _
sSmtpUser As String, sSmtpPword As String, _
sFilePath As String, bSmtpSSL As Boolean) As String
On Error GoTo SendMail_Error:
Dim lobj_cdomsg As CDO.Message
Set lobj_cdomsg = New CDO.Message
lobj_cdomsg.Configuration.Fields(cdoSMTPServer) = sSmtpServer
lobj_cdomsg.Configuration.Fields(cdoSMTPServerPort) = iSmtpPort
lobj_cdomsg.Configuration.Fields(cdoSMTPUseSSL) = bSmtpSSL
lobj_cdomsg.Configuration.Fields(cdoSMTPAuthenticate) = cdoBasic
lobj_cdomsg.Configuration.Fields(cdoSendUserName) = sSmtpUser
lobj_cdomsg.Configuration.Fields(cdoSendPassword) = sSmtpPword
lobj_cdomsg.Configuration.Fields(cdoSMTPConnectionTimeout) = 30
lobj_cdomsg.Configuration.Fields(cdoSendUsingMethod) = cdoSendUsingPort
lobj_cdomsg.Configuration.Fields.Update
lobj_cdomsg.To = sTo
lobj_cdomsg.From = sFrom
lobj_cdomsg.Subject = sSubject
lobj_cdomsg.TextBody = sBody
If Trim$(sFilePath) <> vbNullString Then
lobj_cdomsg.AddAttachment (sFilePath)
End If
lobj_cdomsg.Send
Set lobj_cdomsg = Nothing
SendMail = "ok"
Exit Function
SendMail_Error:
SendMail = Err.Description
End FunctionI would appreciate any help. Thanks!
Greetings to all!
HendelCwb