Error sen email in VB6

[hoabattu7641]

Hi everybody!

I have created a project that sends e-mail functionality using VB6. Previously the program runs smoothly. Recent program error "Runtime error 429. Active X component can't create object."

This is mycode:

Private Sub Command1_Click()
Dim Flds
Dim iMsg As New CDO.Message
Dim iConf As New CDO.Configuration
Set Flds = iConf.Fields

schema = "

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

Flds.Item(schema & "sendusing") = cdoSendUsingPort
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 25
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "******@gmail.com"
Flds.Item(schema & "sendpassword") = "*****"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "autocar.hanoi@gmail.com"
.From = "*****@gmail.com" '
.Subject = "ODER FROM"
.HTMLBody = "Hello, This is a Test Mail"

Set .Configuration = iConf
.Send
End With
MsgBox "The End"
End Sub

 

[strongm]

See if anything here helps (ignore the fact that the example code is not for VB6; it is irrelevant).