Visual Basic - Envio de correo

He realizado un programa en VB6 bastante simple para enviar correo. Utilizo el Outlook Express.

Hasta ahora todo ha ido muy bien.

El programa funcionaba dentro de su sencillez y simplicidad pero ete aqui que mi servidor de correo (ARSYS) dice que a partir de ahora para el envio de correo se debe autentificar.

Se ha modificado el Outlook y desde ahí funciona, pero mi programa NO.

La pregunta del millon es:

¿Como se hace en Visual Basic 6.0 para autentificar el envio de correo?

Este es el estracto del codigo para el envio del correo:

' </> ------------------------------------------------------------------- </>
' </> ---&--- Envio en si mismo ---&--- </>
' </> ------------------------------------------------------------------- </>

Function EnvioMail(CodPro As String, NomPro As String, _
E_Mail As String, Archiu As String, _
Idioma As String)

Dim Correo As Object, c_http As String, _
Config As Object, ObjFlds As Object

Dim Fch_Ok As String, _
Cuerpo As String, Reg As String, _
Asunto As String, _
Adjunt As String, c_File As String, Opc As Integer

' </> ---&--- </> Envi del Correo

Set Correo = CreateObject("CDO.Message")

' </> ---&--- </> Correo.To = E_Mail

Correo.From = "[email protected]"
Correo.To = E_Mail
Correo.BCC = "[email protected]"
Correo.Subject = Asunto
Correo.AddAttachment c_File
Correo.TextBody = Adjunt
Correo.Send
Set Correo = Nothing

End Function

Esto lo encontre navegando por la WEB pero no me funciona o algo lo hago MAL

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

Correo.Configuration.Fields.Item(c_http + "/smtpserverport") = 465
Correo.Configuration.Fields.Item(c_http + "/smtpusessl") = True
Correo.Configuration.Fields.Item(c_http + "/smtconnectiontimeout") = 60

Correo.Configuration.Fields.Item(c_http + "/smtpserver") = "mail.xxxxxxxxx.com"
Correo.Configuration.Fields.Item(c_http + "/smtpauthenticate") = 1
Correo.Configuration.Fields.Item(c_http + "/sendusername") = "xxxxxxx"
Correo.Configuration.Fields.Item(c_http + "/sendpassword") = "xxxxxx"


Muchas Gracias y un saludo para todos.