Este es el código que utilizo para enviar un e-mail:

Function EnviarCorreo()

    Dim objOutlook As Outlook.Application
    Dim objMailItem As Outlook.MailItem

    Set objOutlook = CreateObject("outlook.application")

    Set objMailItem = objOutlook.CreateItem(olMailItem)
    objMailItem.Recipients.Add "billgates@microsoft.com"
    objMailItem.Body = "Enviando e-mail desde Código"
    objMailItem.Attachments.Add "C:\BILL\GATES.BMP"
    objMailItem.Subject = "PRUEBA DE AUTOMATIZACION"
    objMailItem.Send
    objOutlook.Quit
    Set objOutlook = Nothing

End Function
Esto funciona, pero... lo único que hace, es ubicar el mensaje en la bandeja de salida, pero no lo envía efectivamente, es decir, no se conecta telefónicamente para enviarlo.
Mas concreto aún, lo que estoy buscando es que mi programa haga lo mismo que hace el OUTLOOK 97 con la opción del menú HERRAMIENTAS\BUSCAR CORREO NUEVO,( que tiene como tecla rápida: F5).
¿Alguien sabe cómo se hace esto?

Alejandro Belkin
abelkin@bas.com.ar