Extraer dominio de direccion de correo

Jaime Infante ha escrito:

como puedo extraer el dominio de estos correos

Prueba:


Dim Int As Integer = InStr(dirCorreo, "@")
Dim Dominio As String = Mid(dirCorreo, Int)


en Dominio tendrás sólo la parte del dominio.


Espero te ayude.

Muchas gracias


"canel" escribió en el mensaje
news:

Jaime Infante ha escrito:

como puedo extraer el dominio de estos correos

Prueba:


Dim Int As Integer = InStr(dirCorreo, "@")
Dim Dominio As String = Mid(dirCorreo, Int)


en Dominio tendrás sólo la parte del dominio.


Espero te ayude.