Ocultar explorador al enviar WhatsApp
Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86476
Fecha de impresión: 24/Abril/2024 a las 04:17
Tema: Ocultar explorador al enviar WhatsApp
Publicado por: joanka
Asunto: Ocultar explorador al enviar WhatsApp
Fecha de publicación: 23/Septiembre/2022 a las 12:00
|
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 |
Respuestas:
Publicado por: xavi
Fecha de publicación: 23/Septiembre/2022 a las 12:52
|
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. https://learn.microsoft.com/es-es/windows/win32/shell/shell-shellexecute" rel="nofollow - Método Shell.ShellExecute (Shldisp.h) - Win32 apps | Microsoft Learn A ver si lo sacas por aqui. Un saludo
------------- Xavi, un minyó de Terrassa http://www.llodax.com" rel="nofollow - Mi web 
|
Publicado por: joanka
Fecha de publicación: 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.
|