Run time errors 429 ActiveX component cant create object

See more:

VB

VB6 aplication - Ok it Working Fine on my mashine but if i give it 2 enybody they get an error wen sending the data
Run time errors 429 ActiveX component cant create object ....

My code

Private Sub Command1_Click()
     

    Dim oSmtp As New EASendMailObjLib.Mail
    oSmtp.LicenseCode = "TryIt"
    oSmtp.FromAddr = "xxxxx@xxxx.com"
    oSmtp.AddRecipientEx Text1.Text + "@xxxxx.lv", 0
    oSmtp.Subject = "SmS"
    oSmtp.BodyText = Text2.Text
    oSmtp.ServerAddr = "smtp.xxxxxxx.com"
    oSmtp.ServerPort = "465"
    oSmtp.UserName = "xxx@xxxxx.com"
    oSmtp.Password = "xxxxxxxxx"
    oSmtp.SSL_init
    If oSmtp.SendMail() = 0 Then
 Text1.Text = ""
 Text2.Text = ""
    End If
    
End Sub

Thats a SMS sending thru smtp mybe someone can give some other comand's 2 use not EASendMailObjLib becouse nothing els @ the code and geting an eroor on other mashines =[ i need tomake something thats working 2 everyone with no extra files.