** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Reloj de Arena
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoReloj de Arena

 Responder Responder
Autor
Mensaje
ximo Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 03/Marzo/2006
Localización: España
Estado: Sin conexión
Puntos: 2085
Enlace directo a este mensaje Tema: Reloj de Arena
    Enviado: 26/Abril/2020 a las 17:54
Hola,

Estoy adaptando un viejo código para mandar correos, de esta forma mando las facturas por correo CDO.
Me he encontrado con un problemilla que he solucionado pero me gustaría saber el porque y el como.
Como dice el asunto, no me reonoce el DoCmd.

 'docmd.Hourglass True (esto no lo reconoce (DoCmd)
    Application.Cursor = xlWait (he cambiado por esto y es el disco azul)
    ' Y ! POR FIN !  enviamos
    ObjetoMensajeLibre.Send
    'Screen.MousePointer = 0
    If Not ObjetoMensajeLibre Is Nothing Then
        Set ObjetoMensajeLibre = Nothing
    End If
    MsgBox "Factura enviada", vbInformation, "Envio Correo"
    Application.Cursor = xlDefault
    'Screen.MousePointer = vbNormal

Hay alguna forma de mostrar el reloj de arena mientras se envia el correo.


Saludos, ximo
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 26/Abril/2020 a las 18:23
Pues tendrás que enviar tu ordenata al psicólogo ... Sonrisa maligna

Copia/Pega de una aplicación:
    DoCmd.Hourglass True

Yo juraría que es idéntico. ¿Te ocurre en otra aplicación?


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 26/Abril/2020 a las 18:51
Uno de los ilustres me dice por privado que soy un cateto (y tiene razón, tengo la horrosa costumbre de no fijarme en el forero que hace la pregunta ni el foro en el que la hace), en Excel no existe el objeto DoCmd.

Prueba con Application.Cursor = xlWait
el normal es Application.Cursor = xlNormal
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
ximo Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 03/Marzo/2006
Localización: España
Estado: Sin conexión
Puntos: 2085
Enlace directo a este mensaje Enviado: 26/Abril/2020 a las 19:02
Hola Jesús,

Pues eso el lo que he hecho, pero tenía mis aquellos, y las dudas me corroen mientras no encuentro explicación.

Gracias por todo, podemos cerrar.
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable