Ocultar explorador al enviar WhatsApp |
Responder |
Autor | |
joanka
Habitual Unido: 07/Abril/2021 Localización: Lleida Estado: Sin conexión Puntos: 140 |
Opciones de entrada
Gracias(0)
Enviado: 23/Septiembre/2022 a las 13:44 |
Hola,
Gracias por la respuesta, he hecho la prueba (esto ya lo había probado). Function ShellExecuteVB() Dim objShell Set objShell = CreateObject("Shell.Application") Call objShell.ShellExecute("microsoft-edge:https://web.whatsapp.com/send?phone=" & "+34666666666" & "&text=" & "2/2/2022" & " - " & "ABC" & " - " & "DEF" & " " & "GHI", "", "", "open", 0) End Function Me ignora el modo de apertura, también he probado a sacar el "open" e igual, creo que el problema está en la ruta url concatenada con los datos a introducir. He probado a abrir el notepad.exe como en el ejemplo y sí funciona.
|
|
xavi
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya |||| Estado: Sin conexión Puntos: 14720 |
Opciones de entrada
Gracias(0)
|
Hola,
ShellExecute puede admitir varios argumentos. Uno de ellos es el modo de ventana. Si lo estableces a 0 (o la constante En la ayuda de ShellExecute algo dice al respecto. A ver si lo sacas por aqui. Un saludo
Editado por xavi - 23/Septiembre/2022 a las 12:53 |
|
joanka
Habitual Unido: 07/Abril/2021 Localización: Lleida Estado: Sin conexión Puntos: 140 |
Opciones de entrada
Gracias(0)
|
Hola a todos,
A ver si alguien me puede ayudar. Necesito enviar WhatsApp desde Access pero con el explorador oculto. El código funciona, lo que no puedo o no se implementarlo con createobject. Ahora funciona visualizando la ventana de WhatsApp. On Error Resume Next DoCmd.Hourglass (True) Dim objShell As Object Set objShell = CreateObject("Shell.Application") CreateObject("Shell.Application").ShellExecute "microsoft-edge:https://web.whatsapp.com/send?phone=" & "+34666666666" & "&text=" & Me.FECHA & " - " & Me.PERSONAL & " - " & Me.HORARIO & " " & Me.TRABAJOS Sleep 8000 SendKeys "{TAB}" SendKeys "(~)" Sleep 1000 SendKeys "^W", True DoCmd.Hourglass (False) Set objShell = Nothing |
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |