none
Mandar mensagem SMS atraves da planilha Excel VBA RRS feed

  • Pergunta

  • Bom dia.

    Tenho uma planilha onde tenho uma lista de nomes E-mail que preciso enviar todo dia para 50 a 60 nomes, e para tal fiz um codigo como a Fig 1 usando o Outlook.

    Mas parece que atualmente muita gente nao consulta ou nem tem endereco de E-mail e estou precisando de mandar mensagem instantanea ou torpedo via numero de telefone do celular. Tem uma maneira facil e simples de enviar mensagem atraves da planilha excel?

    Desde ja agradeco .

    Tadao

    Fig 1

    P = "ポルトガル語"
    N = "ネパール語"
    J = "日本語"
    E = "英語"
    
    For i = 1 To num_reg
        Set outlookOBJ = CreateObject("outlook.application")
        Set mitem = outlookOBJ.createitem(olmailitem)
    
        If We.Cells(5 + i, 6).Value = J Then
             sel = 1
        ElseIf We.Cells(5 + i, 6).Value = P Then
             sel = 2
        ElseIf We.Cells(5 + i, 6).Value = N Then
            sel = 3
        ElseIf We.Cells(5 + i, 6).Value = E Then
            sel = 4
        Else
            sel = 1
        End If
        
        name = Left(We.Cells(5 + i, 2), InStr(We.Cells(5 + i, 2), " "))
        If name = "" Then
            name = Cells(5 + i, 2).Value
        End If
        
        name = name & "さん"
        Application.StatusBar = name & " に メール送信中..........."
        With mitem
            .To = Cells(5 + i, 4).Value
            .Subject = wMen.Range("assunto").Value
    '        .attachments.Add we.cells(5+i,2).Value
            .body = name & Chr(13) & Chr(13) & Chr(9) _
            & wMen.Range("men_1").Offset(sel, 0) & " " _
            & Format(We.Cells(5 + i, 3).Value, "hh:mm") & " " _
            & wMen.Range("men_2").Offset(sel, 0) & Chr(13) & Chr(13) _
            & wMen.Range("men_3") & Chr(13) _
            & wMen.Range("men_4").Offset(sel, 0)
            .send
        End With
    Next i


    segunda-feira, 16 de maio de 2016 13:07

Respostas

  • Particularmente eu nunca fiz ou vi funcionando, mas seguem alguns links onde os autores afirmam ter conseguido.

    http://www.smslane.com/ExcelSMS.htm

    http://www.activexperts.com/xmstoolkit/howto/gsm/vba/

    http://www.ozekisms.com/index.php?owpn=761

    http://www.smsco.it/tomcat/en/sms_tutorials/sms_from_excel.jsp

    https://mauromartins.wordpress.com/2009/09/08/mandar-sms-a-partir-do-excel/


    André Santo | basevba.wordpress.com

    segunda-feira, 16 de maio de 2016 13:31

Todas as Respostas

  • Particularmente eu nunca fiz ou vi funcionando, mas seguem alguns links onde os autores afirmam ter conseguido.

    http://www.smslane.com/ExcelSMS.htm

    http://www.activexperts.com/xmstoolkit/howto/gsm/vba/

    http://www.ozekisms.com/index.php?owpn=761

    http://www.smsco.it/tomcat/en/sms_tutorials/sms_from_excel.jsp

    https://mauromartins.wordpress.com/2009/09/08/mandar-sms-a-partir-do-excel/


    André Santo | basevba.wordpress.com

    segunda-feira, 16 de maio de 2016 13:31
  • Ola Andre, obrigado pelo retorno.

    Li os links que voce mandou, mas pelo meus conhecimentos ainda esta longe de ser realizado. Com muito custo fiz uma pesquisa na net e montei uma rotina para enviar e-mail que funciona se tiver instalado o Outlook (No do usuario tem o tal do Live) e com Live nao consegui fazer funcionar(muito complicado).

    Pelo que entendi, para eu enviar e-mail precisei de instalar o Outlook,agora para eu poder enviar mensagem SMS precisa instalar(comprar) outros softs?. Mesmo instalando, tem que fazer configuracoes que e meio complicado,nao?. Para comprar, vi precos em euro, deve ser firma eruropeia?.Sera que funciona no Japao?. Aqui o pessoal usa muito tal do LINE (no Brasil deve ser o WhatsApp) que deve ser um aplicativo Koreano, desenvolvido no Japao.

    Agradeco pela atencao, e obrigado por postar os links, vou fazer uma pesquisa no site Japones e ver se consigo entender os ideogramas que eh muito complicado.

    Tadao

    terça-feira, 17 de maio de 2016 05:38
  • Só ajudando...

    você pode usar o envio de email via CDO, sem necessidade do Outlook.

    http://www.rondebruin.nl/win/s1/cdo.htm


    Natan

    terça-feira, 17 de maio de 2016 13:47
  • Ola Natan, obrigado pelo retorno.

    Vi o link que passasou e parece ser muito instrutivo.

    Agora estou precisando de mandar SMS atravez de Excel, e da proxima vez que precisar fazer uma rotina para mandar e-mail, vou tentar usar a sua sugestao.

    Tadao

    terça-feira, 17 de maio de 2016 23:30