Runtime error 429 in Win NT but not Win 2000

chewychewy · Mar 25, 2003

I have a Word document that email some forms in it to my address using our companies Exchange Server. It works great on my computer which runs Win 2000. But On the computers with Win NT it gives a runtime error 429. At first I thought it was the references but no matter which ones I use it doesnt seem to work. Is there something that NT needs that will allow this to work? I am totally at a standstill on this. I cant figure this out. Any ideas?

andrew299 · Mar 25, 2003

I have found this problem several times in excel it runs perfect on 2000 but not on NT. I found that there is almost aleways a workaround piece of code or slight alteration you can make to the offending line. For example in excel 2000 the hyperlink code can incude a text to display in cell command buyt his is not accepted by excel NT. The code works fine if this bit is removed.
I have almost always found that the code used in 2000 contains to much 'fine detail' than NT can cope with.
But to help solve your problem you would have to post the offending piece of code on the forum and hope somebody will know the problem or a workaround.

Andrew299 It may have hit every branch on its way out of the ugly tree, but hey! It works. (but don't quote me on that)

chewychewy · Mar 25, 2003

Thanks for the reply! Here is the code behind the Word document.

It craps out on the line
Set iMsg = CreateObject("CDO.Message&quot

Hopefully someone knows whats going on. This is the error it gives:
Run-time error '429'
ActiveX component can't create object

Option Explicit

'declare a record type to break down the user info
Private Type UserRec
bMach(1 To 32) As Byte ' 1st 32 bytes hold machine name
bUser(1 To 32) As Byte ' 2nd 32 bytes hold user name
End Type

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
'Returns the network login name

Dim lngLen As Long, lngX As Long
Dim strUserName As String

strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX <> 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If
End Function

Private Sub cmdSend_Click()
Dim user As Variant
user = fOSUserName()

Dim mail

Dim TestInput As Variant
'Me.TestInput.SetFocus
'TestInput = Me.TestInput.Text
'Me.MailTo.SetFocus
'MailTo = Me.MailTo.Text
'Me.MailFrom.SetFocus
'MailFrom = Me.MailFrom.Text
'Me.MailSubject.SetFocus
'MailSubject = Me.MailSubject.Text

Set mail = Nothing

' Send by connecting to port 25 of the SMTP server.
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML

Const cdoSendUsingPort = 2

Set iMsg = CreateObject("CDO.Message&quot

Set iConf = CreateObject("CDO.Configuration&quot

Set Flds = iConf.Fields

' Set the CDOSYS configuration fields to use port 25 on the SMTP server.

With Flds
.Item("

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

= cdoSendUsingPort
'ToDo: Enter name or IP address of remote SMTP server.
.Item("

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

= "XONEIDA"
.Item("

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

= 10
.Update
End With

' Build HTML for message body.
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & " "
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"

' Apply the settings to the message.
With iMsg
Set .Configuration = iConf
.To = "mmajewski@alliancebankna.com" 'ToDo: Enter a valid email address.
.From = "PhoneUpdate@AllianceBankna.com" 'ToDo: Enter a valid email address.
.Subject = "Phonebook change for " & Me.txtCurrentName
.HTMLBody = user & " " & Me.txtDate & " " & Me.txtCurrentName & " with Title: " & Me.txtCurrentTitle & " at " & Me.txtCurrentBranch.Text & " with phone number: " & Me.txtCurrentPhone & " info has changed to " & " " & vbCr & Me.txtCurrentName & " with Title: " & Me.txtNewTitle & " at " & Me.txtNewBranch.Text & " with phone number: " & Me.txtNewPhone & "." & " " & Me.txtOther.Text
.Send
End With

MsgBox "Message sent to Matt Majewski! Thank you!"

' Clean up variables.
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
'Me.MailFrom = ""
'Me.MailTo = ""
'Me.MailSubject = ""
'Me.TestInput = ""
End Sub

Private Sub Document_Open()
Me.txtCurrentName.Text = ""
Me.txtCurrentTitle.Text = ""
Me.txtCurrentPhone.Text = ""
Me.txtNewTitle.Text = ""
Me.txtNewPhone.Text = ""
Me.txtCurrentBranch.Text = ""
Me.txtNewBranch.Text = ""
Me.txtOther.Text = ""
Me.txtDate = Date & " " & Time()
End Sub

chewychewy · Mar 25, 2003

I found this on Microsofts help site.

BUG: COM/OLE Server Fails to Start on Windows NT 4.0
The information in this article applies to:
Microsoft Office XP Developer
Microsoft Office 2000 Developer
Microsoft Visual Basic for Applications 5.0, when used with:
the operating system: Microsoft Windows NT 4.0
Microsoft Visual Basic for Applications 6.0, when used with:
the operating system: Microsoft Windows NT 4.0

Does this mean that it is hopeless using NT?

chewychewy · Mar 26, 2003

im sorry to be a pain but does anyone have an idea? Or something to use other than createobject?

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Runtime error 429 in Win NT but not Win 2000

chewychewy

Technical User

andrew299

Technical User

chewychewy

Technical User

chewychewy

Technical User

chewychewy

Technical User

Similar threads

Part and Inventory Search

Sponsor