MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Envio de Msg Whatsapp

    avatar
    brunobpr
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 11/05/2012

    Envio de Msg Whatsapp Empty Envio de Msg Whatsapp

    Mensagem  brunobpr em 10/5/2019, 17:20

    Boa tarde Amigos

    Preciso de ajuda para conclusao do meu modulo de envio de MSG via Whatsapp.

    Algum de voces ja conseguiu concluir

    Segue o esboço que fiz
    No meu caso fiz um Consulta que tem os dados e o envio via Function no Modulo, porem a funcao CALL Sendkyes trava...

    Function EnviaW()
    Dim text As String
    Dim weburl As String
    Dim contatos As String
    Dim strcliente As String
    Dim strmensagemcorpodoemail As String

    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("REL_M_DIA")

    If rst.EOF Then
    MsgBox "Erro. Não existem clientes para serem avisados!", vbExclamation, "Atenção"
    Else

    Do Until rst.EOF
    contatos = rst("TELEFONE")
    strcliente = rst("CLIENTE")
    weburl = "http://api.whatsapp.com/send?phone=55" & contatos & """"
    Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url " & weburl)

    'texto
    strmensagemcorpodoemail = strmensagemcorpodoemail + "Prezado " & strcliente & Chr(13) & Chr(13)
    strmensagemcorpodoemail = strmensagemcorpodoemail + "1 - Verificamos que esta em atraso com as mensalidaes O contrato " & strContrato & " da empresa " & strcliente & " no valor de R$ " & strvalor & " impactou no BACEN PJ no dia de hoje." & Chr(13) & Chr(13)
    strmensagemcorpodoemail = strmensagemcorpodoemail + "2 - Solicitamos informar a situação atual de negociação com o cliente, se existem perspectivas de recebimento." & Chr(13) & Chr(13)
    strmensagemcorpodoemail = strmensagemcorpodoemail + "Atenciosamente" & Chr(13) & Chr(13)
    strmensagemcorpodoemail = strmensagemcorpodoemail + "Plataforma de Adimplência" & Chr(13) & Chr(13)
    strmensagemcorpodoemail = strmensagemcorpodoemail + "SR Noroeste do Paraná" & Chr(13) & Chr(13)

    'Ajustar conforme tempo necessário para carregar a página
    'daqui em diante nao vai
    Call SendKeys(strmensagemcorpodoemail, True)
    'Call SendKeys("^v", True)
    Sleep 500
    Call SendKeys("~", True)
    Sleep 8000
    Call SendKeys("{ESCAPE}", True)
    Sleep 8000
    Call SendKeys("^w", True)
    Sleep 8000
    Loop
    End If
    rst.Close
    Set rst = Nothing
    MsgBox " Mensagens Encaminhadas!", vbInformation, "Gestor_Apcef"
    End Function
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    Envio de Msg Whatsapp Empty Re: Envio de Msg Whatsapp

    Mensagem  caiosouza em 10/5/2019, 18:38

    Boa tarde,

    Remova o Call.


    .................................................................................
    Caio Souza

    Engenheiro de Software
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1381
    Registrado : 23/01/2018

    Envio de Msg Whatsapp Empty Re: Envio de Msg Whatsapp

    Mensagem  crysostomo em 11/5/2019, 19:06

    meu a amigo podia partilhar com a gente , isso me ajudar..


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 22/10/2020, 04:29