La Web del Programador: Comunidad de Programadores
 
    Pregunta:  21979 - TRAER PROFILE DE OUTLOOK
Autor:  jonathan rivera
Hola a todos!
Quisiera saber como puedo hacer para extraer el profile defaul de mi cliente de outlook por medio de codigo en visual basic.

de antemano muchas gracias.

  Respuesta:  jose hernandez
mete esto en un boton:
Dim MiOjbetoOutlook As Object
Dim perfil As Object
Set MiOjbetoOutlook = GetObject("", "OutLook.Application")
Set mynamespace = MiOjbetoOutlook.GetNamespace("MAPI")
Set perfil = mynamespace.currentuser
If perfil Is Nothing Then
MsgBox ("perfil no disponible")
Exit Sub
Else
MsgBox perfil
End If