Seleccionar una carpeta en Outlook

Artículo original: Choosing a folder in Outlook
http://www.foxpert.com/KnowlBits_200609_8.htm
Autor: Christof Wollenhaupt (http://www.foxpert.com/knowlbits.htm)
Traducido por: Ana María Bisbé York (amby@telefonica.net)
Para: PortalFox (http://www.portalfox.com)

Cuando buscamos ejemplos de Automatización Outlook, vemos que la mayoría de los elementos se crean en las carpetas predeterminadas o en la ruta en el código de programa. Sin embargo, en el mundo real, la carpeta en la que se crea el elemento, frecuentemente tiene que ser configurable. Afortunadamente, hay una función API que lo hace:

Local loOutlook, loNamespace, loFolder
loOutlook = CreateObject("outlook.application")
loNamespace = loOutlook.GetNamespace("MAPI")
loFolder = loNamespace.PickFolder()
If Vartype(m.loFolder) == "O"
  * Hacer algo con el elemento de la carpeta
  ? loFolder.FolderPath
EndIf

PickFolder automáticamente pregunta al usuario por el perfil, nombre de usuario y palabra clave si el usuario no ha iniciado aun sesión. Sin embargo, existe un inconveniente de PickFolder(). Si tiene la ventana Outlook visible, esta ventana se mueve del fondo y se convierte en la ventana activa y superior.