Jump to content

Macro para Enviar Whatsapp con archivo adjunto


Recommended Posts

Hola 

Una consulta quizas alguien me puede ayudar

Tengo hecho el código para enviar whatsapp desde excel. Quiero adjuntarle pdf. Para enviar lista de precio a clientes.

Tengo hecho lo de buscar el pdf, traerlo, me falta lo de enviarlo

Aquí les muestro el código

 

Sub dale_Click()  Este boton manda el whatsapp

Dim mensaje As String
Dim numero As String

numerodatos = Hoja13.Range("c" & Rows.Count).End(xlUp).Row
    'MsgBox (numerodatos)
        
        
For fila = 8 To numerodatos


        'me busca en los datos los numeros a los que mandar
        
        numero = Cells(fila, 3).Value
        mensaje = Range("H6")
        pdfok = pdf  'esto no me funciona lo de adjuntar el pdf
        

seguir = "https://api.whatsapp.com/send?phone=" & numero & "&Text=" & mensaje & pdfok

ActiveWorkbook.FollowHyperlink seguir


Application.Wait (Now + TimeValue("00:00:03"))
ActiveWindow.Application.SendKeys "{TAB}"
ActiveWindow.Application.SendKeys "(~)" 'abre whatsapp
Application.Wait (Now + TimeValue("00:00:07"))
Call SendKeys(pdfok, True) esto no me funciona
ActiveWindow.Application.SendKeys "(~)"  'manda el mensaje

Range("f1").Select
    Application.CutCopyMode = False


Next
End Sub

 

Private Sub UserForm_Initialize()
With Me
    .btnCargarPDF.Enabled = False
    .txtNombrePDF.Enabled = False
End With
End Sub
'
Private Sub btnCargarPDF_Click() 'carga el pdf al formulario
Me.WebBrowser1.Navigate Me.txtNombrePDF.Value
Value = pdf esto le agregue pensando que iba funcionar pero no
End Sub
'
Private Sub btnExaminar_Click() 'busca el pdf 
With Application.FileDialog(msoFileDialogOpen)
    .InitialFileName = Application.DefaultFilePath & " \ "
    .Title = "Programas a Medida - Abrir archivo PDF"
    .Filters.Clear
    .Filters.Add "PDF files", "*.pdf"
    .InitialView = msoFileDialogViewDetails
    .Show
    If .SelectedItems.Count = 0 Then
    Else
        Me.txtNombrePDF.Value = .SelectedItems(1)
    End If
End With
'
'Me = Nuestro formulario
With Me
    If .txtNombrePDF.Value <> "" Then
        .btnCargarPDF.Enabled = True
    Else
        .btnCargarPDF.Enabled = False
    End If
End With
End Sub

 

 

Desde ya muchas gracias a todos Saludos desde Argentina

Link to comment
Share on other sites

Como ya todos sabemos, la API de WhatsApp no permite una interacción tal que con neta programación se pueda hacer algo como lo que planteas, por lo que necesariamente tienes que seguir usando las pulsaciones, es decir, SendKeys ¿Qué hacer? Como ya conoces su uso, solo reapasa en tu WhatsApp Web los paso, "imítalos" con las pulsaciones y en el momento que usas la caja de dialogo para adjuntar, lo que haces es pegar ahí la ruta de tu archivo (que se supone sabes donde está y por ende puedes obtener dicha ruta). Ejemplo: 

 

Link to comment
Share on other sites

  • 3 months later...
  • Crear macros Excel

  • Posts

    • Te dejo otra opción SUMA LETAS.xlsm
    • Te mando esto, espero te sirva.master-retirar-beta - Janlui.xlsm
    • Buenos días, Tengo un problema con un archivo de excel al que quiero mediante un botón ocultar las columnas cuyas celdas estén vacías,  es un inventario de productos por almacen que muestra las cantidades del mismo de acuerdo al código de cada producto. Me oculta las columnas del rango que estoy usando sin tomar en cuenta si están vacías o no. En una archivo con menos datos lo he probado y si funciona. Adjunto el archivo para que lo miren. También tiene programado un buscador para que muestre solo la referencia del producto requerida, entonces la mecánica del archivo sería mostrar solo una referencia de producto y poder ocultar las columnas (almacenes) que no tengan ningún producto de dicha búsqueda realizada.   Gracias de antemano por su ayuda. master-retirar-beta.xls
    • @Alberto González, prueba el adjunto. Salu2, Pedro Wave   Cantidades Consumidas PW1.xlsx
    • Observaciones. Los meses deberas tenerlos en No. de mes (septiembre=9) En la Hoja "C1" encontraras un Boton "Genera" y ejecutara la macro, procesando "C1" y "C2" Espero te sirva. PRUEBA_CONSOLOCIDACION - Janlui.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy