MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Envio de SMS via ACCESS

    Compartilhe

    silvasantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    Envio de SMS via ACCESS

    Mensagem  silvasantos em Dom 07 Abr 2013, 19:04

    Olá, procurando pela net encontrei o exemplo em anexo que envia SMS via Acccess sem gateway, somente utiliza o celular plugado via cabo, blootooth ou modem usb.
    Funciona perfeitamente, somente gostaria de implementar o envio para os registros de uma tabela pois no mesmo exemplo, somente envia preenchendo um campo de texto pré- determinado.
    Se alguém puder dar alguma idéia ou alterar o modelo ficaria muito grato, ou se alguém somente precisar do exemplo fica registrada a contribuição.

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    Registrado : 01/03/2011

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  HARYSOHN em Ter 16 Abr 2013, 19:58

    E para emviar um registros ou todos?

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    silvasantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  silvasantos em Ter 16 Abr 2013, 20:30

    Olá, então para enviar para um destinatário é só selecionar a porta e abrir a mesma, inserir o numero desejado e enviar, somente não consegui inserir uma tabela onde possam ser selecionados os destinatários para onde serão enviados a mensagem.
    Alguma idéia?
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    Registrado : 01/03/2011

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  HARYSOHN em Ter 16 Abr 2013, 21:42

    Estou baixando o exemplo, irei analisar e retorno.

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    Registrado : 01/03/2011

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  HARYSOHN em Ter 16 Abr 2013, 22:34

    Veja se é isto..

    Selecione o Destinatário nacombo, depois clique na caixa texto onde se insere a mensagem..

    Cumprimentos.
    Anexos
    TEST_SMS.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (78 Kb) Baixado 292 vez(es)


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    silvasantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  silvasantos em Ter 16 Abr 2013, 23:34

    Olá, antes de mais nada, obrigado pela atenção.
    Quanto ao exemplo, acredito que não me expressei claramente, na verdade gostaria de enviar o sms para vários destinatários ao mesmo tempo, ex.:
    Poderia ser um determinado grupo de registros previamente filtrados por uma consulta sde acordo com algum critério tal como sexo, idade...
    Ao clicar em um botão, enviar a mensagem para esses registros.


    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    Registrado : 01/03/2011

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  HARYSOHN em Qua 17 Abr 2013, 00:16

    Realmente não se expressou bem...

    Creio eu que o procedimento utilizado pelo sistema envia o SMS a cada fone... Portanto teriamos que criar uma combo de seleção multipla e fazer um loop pelos itens selecionados na mesma enviando a cada loop o SMS...

    Compreendeu?

    Cumprimentos


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    silvasantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  silvasantos em Qua 17 Abr 2013, 00:32

    É isso mesmo que gostaria.
    Pelos meus testes anteriormente, ele envia a cada número, já havia tentado colocar um loop mas me enrosquei em fazer o sistema ler um registro de cada vez.

    Em um módulo:

    Public Declare Function GetTickCount Lib "kernel32" () As Long
    Dim lngTickStore As Long

    Public Sub SlowDown(Delay)
    lngTickStore = GetTickCount()
    Do While lngTickStore + Delay > GetTickCount()
    DoEvents
    Loop
    End Sub


    E em cada loop do código:

    SlowDown (5000) '5 segundos

    Utilizei esse método para gerar o loop para não travar o sistema em cada busca.

    Inserindo manualmente o código a seguir consigo enviar o sms se utilizar varias caixas de texto:

    Ao clicar de um botão:

    TxtReply.Value = Null
    TxtCommand.Value = Null
    TxtCommand.Value = "AT+CMGF=1": Call CmdSend_Click
    TxtCommand.Value = "AT+CMGS=" & Chr(34) & Text27.Value & Chr(34): Call CmdSend_Click
    TxtCommand.Value = Text29.Value & Chr(26): Call CmdSend_Click

    SlowDown (5000) '5 segundos

    TxtReply.Value = Null
    TxtCommand.Value = Null
    TxtCommand.Value = "AT+CMGF=1": Call CmdSend_Click
    TxtCommand.Value = "AT+CMGS=" & Chr(34) & Text28.Value & Chr(34): Call CmdSend_Click
    TxtCommand.Value = Text29.Value & Chr(26): Call CmdSend_Click

    E assim por diante, mas não tive a habilidade de enviar através de uma combo ou qualquer outro método.
    Se não for incômodo, poderia tentar fazer um modelo utilizando a combo ou outro método como mencionado?
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    Registrado : 01/03/2011

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  HARYSOHN em Qua 17 Abr 2013, 03:07

    Amanha vejo isto pra ti...

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    silvasantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  silvasantos em Qua 17 Abr 2013, 03:15

    Sem problemas, até mais!
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    Registrado : 01/03/2011

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  HARYSOHN em Qua 17 Abr 2013, 03:35

    Transforme a combo que criei em uma listBox, nas propriedades, aba "Outras" no ítem Seleções Multiplas coloque como Simples.

    No botão SEND o seguinte código:



    Private Sub CmdSend_Click()
    Dim StrMovel As String
    Dim Count As Integer

    If Me.lstDest.ItemsSelected.Count = 0 Then
    MsgBox "Selecione ao menos um contato!", vbCritical, "ATENÇÃO"
    Exit Sub
    Else
    For Count = 0 To Me.lstDest.ListCount - 1
    If Me.lstDest.Selected(Count) Then
    'Aplico o numero do celular selecionado na lista à variável
    StrMovel = Me.lstDest.Column(2, Count)

    If Write_Port(StrMovel) <> Len(StrMovel) Then 'Write_Port. The function that sends the command
    MsgBox "Error writing to comm's"
    Exit Sub
    End If
    End If
    Next Count

    Write_Port (Chr$(13)) 'Chr$(13) stands for the key "Enter".
    'This way the target machine realizes
    'the end of a command
    'Me.TxtCommand = ""
    End If
    End Sub


    Podes incluir no código caso haja necessidade procedimento que atrase um pouco o loop pelo for, caso o envio demore um pouco...
    Um procedimento como um Pause...

    A caixa texto txtComand não será mais necessária.

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    silvasantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  silvasantos em Qua 17 Abr 2013, 04:02

    Amanhã pela manhã faço os testse e te respondo se deu certo, e por enquanto obrigado!

    silvasantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  silvasantos em Qua 17 Abr 2013, 14:54

    Olá novamente!
    Fiz os devidos testes e constatei que o sistema não envia a mensagem...
    No CmdSend_Click o sistema originalmente verifica se as portas estão ok e envia o comando inserido ao modem.
    Acredito que se conseguirmos fazer o sistema ler a lista apartir do botão Command31_Click, funcioná, pois verifiquei que é nessa linha que ele seleciona o destinatário:

    TxtCommand.Value = "AT+CMGS=" & Chr(34) & Text27.Value & Chr(34): Call CmdSend_Click

    Onde está Text27.Value , se houver como selecionar os telefones em cada loop automaticamente na lista acredito que funcionará, na verdade seria necessário fazer o sistema a cada destinatário executar os comandos:

    ' aqui ele limpa as confirmações dos comandos
    TxtReply.Value = Null

    ' aqui ele limpa as o comando executado anteriormente
    TxtCommand.Value = Null

    ' aqui ele verifica através do Call CmdSend_Click se a porta está ok e envia o comando ao modem
    TxtCommand.Value = "AT+CMGF=1": Call CmdSend_Click

    ' aqui ele seleciona o destinatário no Text27.Value e novamente verifica a porta e envia ao modem
    TxtCommand.Value = "AT+CMGS=" & Chr(34) & Text27.Value & Chr(34): Call CmdSend_Click

    ' aqui ele seleciona a mensagem no Text29 e novamente verifica a porta e envia ao modem
    TxtCommand.Value = Text29.Value & Chr(26): Call CmdSend_Click

    'E aqui fariamos ele fazer um loop e selecionar o próximo da lista e executar os comandos novamente.

    Se tiver alguma idéia, agradeceria muito.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    Registrado : 01/03/2011

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  HARYSOHN em Qua 17 Abr 2013, 16:45

    Perdoe-me não havia percebido a aba SMS Sender... Nesta aba esta o botão SEND que por sua vez ativa o outro botão na segunda aba....

    Verei isto.

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    Registrado : 01/03/2011

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  HARYSOHN em Qua 17 Abr 2013, 17:12



    Private Sub Command31_Click()
    Dim Count As Integer

    If Me.lstDest.ItemsSelected.Count = 0 Then
    MsgBox "Selecione ao menos um contato!", vbCritical, "ATENÇÃO"
    Exit Sub
    Else

    For Count = 0 To Me.lstDest.ListCount - 1
    TxtReply.Value = Null
    StrMovel = Empty
    StrMovel = "AT+CMGF=1": Call CmdSend_Click
    If Me.lstDest.Selected(Count) Then
    'Aplico o numero do celular selecionado na lista à variável
    StrMovel = Me.lstDest.Column(2, Count)
    StrMovel = "AT+CMGS=" & Chr(34) & StrMovel & Chr(34): Call CmdSend_Click
    StrMovel = Text29.Value & Chr(26): Call CmdSend_Click
    End If
    Next Count
    End If
    End Sub

    '============================================================================

    Private Sub CmdSend_Click()
    If Write_Port(StrMovel) <> Len(StrMovel) Then 'Write_Port. The function that sends the command
    MsgBox "Error writing to comm's"
    Exit Sub
    End If
    Write_Port (Chr$(13)) 'Chr$(13) stands for the key "Enter".
    'This way the target machine realizes
    'the end of a command
    'Me.TxtCommand = ""
    End Sub



    Algo assim...

    Cumprimentos.
    Anexos
    TEST_SMS.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (89 Kb) Baixado 151 vez(es)


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    silvasantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  silvasantos em Qua 17 Abr 2013, 17:30

    Agora sim está enviando, mas apenas para o primeiro selecionado da lista, só falta o sistema aguardar uns 2 segundos (anteriormente verifiquei que se for ralizado múltiplos envios, é necessário esta pausa entre os destinatários)a cada envio e fazer o envio para o próximo da lista.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    Registrado : 01/03/2011

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  HARYSOHN em Qua 17 Abr 2013, 17:32

    Explique melhor.. porque não envia ao segundo?


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    Registrado : 01/03/2011

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  HARYSOHN em Qua 17 Abr 2013, 17:38

    Crie um módulo e o nomeeie de mdlDiversos...

    Nele:


    Public Function Pause(NumberOfSeconds As Variant)
    On Error GoTo Err_Pause

    Dim PauseTime As Variant, start As Variant

    PauseTime = NumberOfSeconds
    start = Timer
    Do While Timer < start + PauseTime
    DoEvents
    Loop

    Exit_Pause:
    Exit Function

    Err_Pause:
    MsgBox err.Number & " - " & err.Description
    Resume Exit_Pause

    End Function


    E onde deseja o pause:

    Pause X onde X será o numero de segundos.

    Ex.:

    Pause 2

    Cumprimentos


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    Registrado : 01/03/2011

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  HARYSOHN em Qua 17 Abr 2013, 18:40

    Eis
    Anexos
    TEST_SMS.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (50 Kb) Baixado 284 vez(es)


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    silvasantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  silvasantos em Qua 17 Abr 2013, 18:53

    Funciona!
    Mas...
    Ao enviar a mensagem aparece no celular de destino:

    AT+CMGF=1
    AT+CMGS="XXXXXXXX"
    Mensagem de teste

    Onde XXXXXXXX é o número do destinatário, e as vezes aparece o número de outro destinatário e não o do qual recebeu a mensagem.

    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    Registrado : 01/03/2011

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  HARYSOHN em Qua 17 Abr 2013, 19:40

    Bem amigo... Infelizmente so posso até aqui, pois não tenho como testar para voce....

    Faça testes e tente observar como a mensagem é enviada... e va modificando ate obter o resultado esperado.

    Sucesso!

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    silvasantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  silvasantos em Qua 17 Abr 2013, 19:46

    Tranquilo.
    Agradeço muito a sua atenção e vou tentar me virar daqui.
    Até a próxima!
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    Registrado : 01/03/2011

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  HARYSOHN em Qua 17 Abr 2013, 20:18

    Em obtendo resultado esperado poste o exemplo aqui.
    O Fórum agradece o retorno.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Guima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 26/09/2010

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  Guima em Sab 29 Jun 2013, 18:36

    Ola,

    Fiz um teste com o primeiro modelo citado, mas tá dando erro "error writing to comm's".

    Alguém pode me ajudar a resolver?


    Fiz os testes num Samsung Galaxy Tab 7 e em um Iphone 4


    Obrigado desde já
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    Registrado : 01/03/2011

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  HARYSOHN em Sab 29 Jun 2013, 18:46

    Qual exemplo baixou?

    Baixe o ultimo exemplo disponibilizado, Aguarde o silvasantos responder ele é a pessoa mais indicada para testar.
    Infelizmente não tenho como testar o exemplo.


    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Guima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 26/09/2010

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  Guima em Sab 29 Jun 2013, 19:00

    Ola Moderador!

    Baixei o primeiro e o último, mas em ambos o problema foi o mesmo.

    Agradeço sua ajuda e vou aguardar então o SilvaSantos.

    Saudações


    silvasantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  silvasantos em Dom 30 Jun 2013, 02:21

    Olá, pode dar mais detalhes?
    Verificou se a porta do modem do celular aparece na lista de hardware do seu pc?
    Qual método utilizou? via cabo ou bluetooth?




    Guima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 26/09/2010

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  Guima em Dom 30 Jun 2013, 03:09

    Ola SilvaSantos!

    Utilizei via cabo.

    Já com relação a porta do modem realmente tive dúvidas nesse caso, pois nao apareceu como available, mesmo após espetar o cabo e atualizar.

    Desde já obrigado

    silvasantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  silvasantos em Dom 30 Jun 2013, 03:18

    Então, é necessário que a porta esteja devidamente listada no gerenciador de dispositivos, no caso verifique com o dispositivo desconectado quais portas existem e depois plugue e veja quais foram adicionadas posteriormente e vá testando no bd.

    Guima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 26/09/2010

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  Guima em Dom 30 Jun 2013, 03:26

    Pois é, meu problema a ai. Até vi isso em outro fórum, mas no meu windows não lista porta NENHUMA em gerenciador de dispositivos. Eu utilizo o Windows 7 Professional. Nesse caso muda algo ?

    Mais uma vez obrigado

    silvasantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  silvasantos em Dom 30 Jun 2013, 03:41

    O ideal seria que testasse em outro pc ou outra versão do windows para detectar se o problema é do dispositivo ou do sistema operacional, pois se as portas não estiverem listadas não irão funcionar no bd, outra solução é tentar via bluetooth, e depois de instalado e pareado verificar a porta com que o sistema definirá para o dispositivo.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    Registrado : 01/03/2011

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  HARYSOHN em Dom 30 Jun 2013, 04:09

    De uma pesquisada no Google sobre integracão do teu celular e windows 7, é possível que encontre alguma coisa.. até mesmo alguma atualização apra que funcione.


    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    Registrado : 01/03/2011

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  HARYSOHN em Qui 10 Abr 2014, 01:16

    Boas SilvaSantos, pode me ajudar com este exemplo?

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12265
    Registrado : 01/03/2011

    Re: [Resolvido]Envio de SMS via ACCESS

    Mensagem  HARYSOHN em Qui 10 Abr 2014, 02:41

    Dúvida resolvida

    Resolução:
    Para o modem funcionar deve estar desocupado, ou seja, não estar conectado a internet ou outros tipos de serviços
    Deve ser utilizado exclusivamente para a função.

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    sawagner
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 25
    Registrado : 12/05/2016

    Alteração para 64 bist

    Mensagem  sawagner em Qui 12 Maio 2016, 16:37

    Está dando um erro na biblioteca pois meu windows é 64 bits. Algué sabe como alterar a biblioteca de 32 para 64 bits?

    jefersonborba
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 25/01/2013

    Versão 64bits

    Mensagem  jefersonborba em Ter 09 Ago 2016, 01:52

    Meus caros, tentei executar o código apresentado por vocês na versão 64bits do Access, há solução?
    avatar
    klaytontome
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 19/03/2017

    Envio de SMS via ACCESS

    Mensagem  klaytontome em Ter 21 Mar 2017, 14:01


    *não sei se pode isso ..

    Mas, acompanhando..

      Data/hora atual: Ter 12 Dez 2017, 17:44