trunks222
asked on
RunTime Error 429 - ActiveX Component cant create....
Hi, I know there is already a topic about this, but it does not solve my problem.
Actually my code works on Win 2000 and Win XP, looks like Win 98 is not compatible though.
What I am trying to do is to send an email using CDO.MESSAGE.
As I said everything works except for Win98.
I installed latest MDAC, latest Microsoft run-time Scripts, checked the common files in program files,
and it just wont work!
I tried the "hot topic" in experts-exchange,
by doing
Dim iMsg As CDO.Message
then
Private Sub Form_Load()
Set iMsg = New CDO.Message
All it does is that it shows error 429 at run-time.
So I guess thats the problem.. when it tries to create that object.
And here's the rest of the code for email
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = txtSMTP.Text
.Item(cdoSMTPConnectionTim eout) = 10 ' quick timeout
.Item(cdoSMTPAuthenticate) = cdoBasic
' IMPORTANT: Storing user names and passwords inside source code
' can lead to security vulnerabilities in your software. Do not
' store user names and passwords in your production code.
.Item(cdoSendUserName) = ""
.Item(cdoSendPassword) = ""
.Item(cdoURLProxyServer) = "server:80"
.Item(cdoURLProxyBypass) = "<local>"
.Item(cdoURLGetLatestVersi on) = True
.Update
End With
With iMsg
Set .Configuration = iConf
.To = """XXXXX"" <X@X>"
.From = """XXXX"" <X@X>"
.Subject = "XXXXXXr"
.TextBody = "ok"
'.AddAttachment "C:\files\mybook.doc"
Me.MousePointer = 11
.Send
Me.MousePointer = 0
MsgBox "SMTP Address connection was a success", vbExclamation, "OK"
End With
anyone could help me out ?
Actually my code works on Win 2000 and Win XP, looks like Win 98 is not compatible though.
What I am trying to do is to send an email using CDO.MESSAGE.
As I said everything works except for Win98.
I installed latest MDAC, latest Microsoft run-time Scripts, checked the common files in program files,
and it just wont work!
I tried the "hot topic" in experts-exchange,
by doing
Dim iMsg As CDO.Message
then
Private Sub Form_Load()
Set iMsg = New CDO.Message
All it does is that it shows error 429 at run-time.
So I guess thats the problem.. when it tries to create that object.
And here's the rest of the code for email
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = txtSMTP.Text
.Item(cdoSMTPConnectionTim
.Item(cdoSMTPAuthenticate)
' IMPORTANT: Storing user names and passwords inside source code
' can lead to security vulnerabilities in your software. Do not
' store user names and passwords in your production code.
.Item(cdoSendUserName) = ""
.Item(cdoSendPassword) = ""
.Item(cdoURLProxyServer) = "server:80"
.Item(cdoURLProxyBypass) = "<local>"
.Item(cdoURLGetLatestVersi
.Update
End With
With iMsg
Set .Configuration = iConf
.To = """XXXXX"" <X@X>"
.From = """XXXX"" <X@X>"
.Subject = "XXXXXXr"
.TextBody = "ok"
'.AddAttachment "C:\files\mybook.doc"
Me.MousePointer = 11
.Send
Me.MousePointer = 0
MsgBox "SMTP Address connection was a success", vbExclamation, "OK"
End With
anyone could help me out ?
ASKER
well what component would it be ??
CDO uses CDO.dll
On some systems it's the
C:\windows\SYSTEM32\cdonts .dll
C:\windows\SYSTEM32\cdonts
Or on NT systems:
c:\WINNT\SYSTEM32\CDO.DLL
c:\WINNT\SYSTEM32\CDO.DLL
ASKER
ok thanx guys I just checked and the dll's are missing. I'll try it out
ASKER
i added the 2 dlls and it still does not work
Register it:
shell("regsvr32 c:\WINNT\SYSTEM32\CDO.DLL" )
shell("regsvr32 c:\WINNT\SYSTEM32\CDO.DLL"
Sorry: shell "regsvr32 c:\WINNT\SYSTEM32\CDO.DLL"
ASKER
nah it wont work
look at that topic
https://www.experts-exchange.com/questions/20161263/download-CDO-CDONTS.html
look at that topic
https://www.experts-exchange.com/questions/20161263/download-CDO-CDONTS.html
ASKER
and its not win 2k, its win 98 :P
path is c:\windows\system\
for some reason the CDO.dll is under
c:\program files\common files\system\Mapi\1033\
path is c:\windows\system\
for some reason the CDO.dll is under
c:\program files\common files\system\Mapi\1033\
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
emoreau, I tried the vbSendMail you suggest, it works under XP after registering the .dll
but for Win98 it still does not work. I get to register the .dll, (it says its a success), but when I open the application it still says "active X component missing"
So I tried to put the dll in c:\windows\system\ on both my development machine, and the test machine, and register the DLL that way, so it has the same path (lets say it matters I dont know)
and it still wont work for win98...
So i guess that isn't the problem :(
It's weird...
but for Win98 it still does not work. I get to register the .dll, (it says its a success), but when I open the application it still says "active X component missing"
So I tried to put the dll in c:\windows\system\ on both my development machine, and the test machine, and register the DLL that way, so it has the same path (lets say it matters I dont know)
and it still wont work for win98...
So i guess that isn't the problem :(
It's weird...
W98 does not support SMTP, you must be running NT4 or W2K. -Get an entire CDO / CDONTS script here
http://www.asp101.com/samples/viewasp.asp?file=email%5Fhtml%2Easp
http://www.asp101.com/samples/viewasp.asp?file=email%5Fhtml%2Easp
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
actually, I registered MSWINSCK, it wouldn't work
I added up cdosys.dll in windows\system\
I registered it, and it worked.
So now it fully works yeeeyaah!
A full day of work only on that topic :)
I added up cdosys.dll in windows\system\
I registered it, and it worked.
So now it fully works yeeeyaah!
A full day of work only on that topic :)
I have a problem!!! And I need an urgent answer! I have just installed a SDL Translator software,and everything was fine....,but I had a problem while I pushed the automatic tranlsation button on the tool bar,and it was written <ActiveX Component cant create object >.
I would be very happy if you could help me!!!
So I hope you can give me an easy answer to solve this problem,which is a big problem for me because I need to work by using this SDL Translator software.
ps: I'm not very practice with computer,so as I said, I need an easy answer.
Thank You,
Chritian M Kilgore
I would be very happy if you could help me!!!
So I hope you can give me an easy answer to solve this problem,which is a big problem for me because I need to work by using this SDL Translator software.
ps: I'm not very practice with computer,so as I said, I need an easy answer.
Thank You,
Chritian M Kilgore
shell("regsvr32 c:\myPath\myOcx.ocx")