Sin Sleep.... o se estara dormiendo el hilo... un Doevents quisas o esta funcion...

 
Option Explicit
 
Private Declare Function WaitMessage Lib "user32" () As Long
 
Enum eTime
    AñoBisiesto = 31622400
    Año = 31536000
    Semanas = 604800
    Dias = 86400
    Horas = 3600
    Minutos = 60
    Segundos = 1
End Enum
 
Public Sub Wait(ByVal vToWait&, Optional ByVal ThisWait As eTime = Segundos, Optional ByVal UseAllProc As Boolean = False)
Dim vDateE      As Date
    vDateE = DateAdd("s", vToWait& * (ThisWait + 0), Time)
    Do While vDateE > Time
        Call WaitMessage
        If Not UseAllProc Then DoEvents
    Loop 
End Sub
 
 

ademas el ProgressBAr seria para otras cosas...

Dulce Infierno Lunar!¡.

@evillcs

Usa CDO.

P.D.: No cites todo el post ¬¬" se vuelve ilegible el hilo,

Dulces Lunas!¡.

HOLA!!!

Mira no me suena a lammer me suena MUY LAMMER.

Pero en fin. Estamos para ayudar.

Esto es lo mas facil que encontre, por que si no sabes hacer un bucle for next solo copias y pegas.

Aca lo tenes (Alternativa si lo que puso BlackZ.X te parecio dificil):

http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/21-dll-vb-send-mail-para-enviar-correo.htm

P.D.1: Dios Google no muerde y siempre te va a perdonar.
P.D.2: Recursos VB tiene la respuesta al 90% de las preguntas.
P.D.3: Si es para sacar una contraseña de algun correo tengo una sugerencia "Buscate una Vida".
P.D.4: Disculpen mi lenguaje y forma de expresarme.


GRACIAS POR LEER!!!