0

Estoy trabajando en un proyecto para poder enviar mensajes de WhatsApp con contactos de una base de datos desde Excel solo que me gustaria cargar las imagenes que tengo desde mi ordenador ya que actualmente solo copio pego una imagen en un hoja de excel especifica y de ahi ya lo envio cuando lo necesite, como podria hacer lo de cargar las imagenes desde el ordenador? Estoy trabajando con Macros en Excel con Visual Basic, Gracias de antemano

 Sub envioMensaje() 
    
    Dim Rango As Range
    Dim x
    Dim Mensaje As String
    
    
    
    Application.ScreenUpdating = False ' Inabilitar la pantalla
    
    
    For Each Rango In Hoja2.Range("Contactos[Cliente]") 'Nombre de la tabla y columna
    
   Mensaje = VBA.Replace("whatsapp://send?phone=" & "57" & Rango.Offset(0, 6).Value & "&text=" & _
"Hola " & Rango.Value & " le escribimos desde ABC para informarle que al día de hoy tenemos una factura pendiente por pagar " & Rango.Offset(0, 1).Value & " del día " & Rango.Offset(0, 2).Value & " con un saldo de " & Rango.Offset(0, 5).Value & ", agradecemos enviarnos el comprobante de pago para cruzar el saldo. Muchas Gracias.", " ", "%20") 'indicativo + número + texto, utilizamos  VBA.Replace para reemplazar los espacios por %20 porque para whatsapp el espacio es %20


    
    
    
    x = ShellExecute(hwnd, "Open", Mensaje, &O0, &O0, SW_NORMAL)  'Para obtener el mensaje
    
    Application.Wait Now + TimeValue("00:00:04")
    
    
    
    ''' para la imagen
    Hoja4.Select
    'ActiveSheet.Shapes.Range(Array("Picture 4")).Select
    ActiveSheet.Shapes(1).Copy
    Selection.Copy
    Call SendKeys("^v", True)
    Application.Wait Now + TimeValue("00:00:04") 'Para esperar 4 segundos la ejecucion'
    
    
    
    Call SendKeys("~", True)  'El caracter ~ es para presionar enter y enviar el mensaje
    
    Call SendKeys("~", True) 'El caracter ~ es para presionar enter y enviar el mensaje
    
    
    Application.Wait Now + TimeValue("00:00:04") 'Para esperar 4 segundos la ejecucion
    
    
    Call SendKeys("~", True)  'El caracter ~ es para presionar enter y enviar el mensaje
    
    
    Application.CutCopyMode = False  'Vaciar de nuevo la memoria
    
    Windows(ThisWorkbook.Name).Activate   'Volver la ventana
    Application.Wait Now + TimeValue("00:00:04") 'Para esperar 2 segundos la ejecucion
    
    
    Next Rango
    
    
    Hoja1.Select
    
    Application.ScreenUpdating = False ' Habilitar la pantalla lo que hace
    
    MsgBox ("Mensaje con Exito"), vbInformation
    
    End Sub
0

0

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

Examina otras preguntas con la etiqueta o formula tu propia pregunta.