[Resolvido]Envio de SMS via ACCESS

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.

https://dl.dropbox.com/u/83760005/access/MS%20ACCESS%20SMS%20SEND.zip

E para emviar um registros ou todos?

Cumprimentos.

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?

Estou baixando o exemplo, irei analisar e retorno.

Cumprimentos.

Veja se é isto..

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

Cumprimentos.

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.

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

É 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?

Amanha vejo isto pra ti...

Cumprimentos.

Sem problemas, até mais!

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.

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

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.

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.

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.

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.

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

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

Eis

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.

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.

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

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

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á

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.

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

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?

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

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.

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

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.

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.

Boas SilvaSantos, pode me ajudar com este exemplo?

Cumprimentos.

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.

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

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

*não sei se pode isso ..

Mas, acompanhando..

Link para o sistema em 64 e 32 bits

baixe aqui