Alarme sonoro e alarme por e-mail

Fórmulas básicas e avançadas do Microsoft Excel, Fórmulas Matriciais, Fórmulas combinadas, Funções como PROCV, PROCH, SOMASE, SOMA, SE, etc.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Alarme sonoro e alarme por e-mail

Mensagempor pfmjr78 » Qua Jul 11, 2018 10:28 am

Bom dia pessoal,

Preciso configurar algum tipo de alarme e envio de e-mail se possivel em uma planilha.
Digamos assim uma pessoa vai preenchendo a coluna A1 ate A50 com numeros... um determinado momento quando atingir a somatório >= 2000 emitir um alarme sonoro e um e-mail pre determinado para mim dizendo que aquela planilha atingiu o limite.

O ideal seria os dois tipos de alarme, mas se for possivel somente um sem problema também.

Desde já agradeço a ajuda de todos

Abraço
Paulo
pfmjr78
Membro
Membro
 
Mensagens: 7
Registrado em: Qui Mar 03, 2016 2:47 pm
Has thanked: 1 time
Have thanks: 0 time

{ SO_SELECT }

Re: Alarme sonoro e alarme por e-mail

Mensagempor carlosrgs » Qua Jul 11, 2018 10:38 am

Bom dia, a respeito do som, eu nunca fiz nada.

Sobre o email tenho esse código que nunca testei, no meu trabalho gmail é bloqueado pela T.I.

Código: Selecionar todos
Sub TesteEmailGmail()
    Dim iMsg, iConf, Flds

    'Seta as variáveis, lembrando que o objeto Microsoft CDO deverá estar habilitado em Ferramentas->Referências->Microsoft CDO for Windows 2000 Library
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields

    'Configura o componente de envio de email
    schema = "http://schemas.microsoft.com/cdo/configuration/"
    Flds.Item(schema & "sendusing") = 2
    'Configura o smtp
    Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
    'Configura a porta de envio de email
    Flds.Item(schema & "smtpserverport") = 465
    Flds.Item(schema & "smtpauthenticate") = 1
    'Configura o email do remetente
    Flds.Item(schema & "sendusername") = "EmailOrigem@gmail.com"
    'Configura a senha do email remetente
    Flds.Item(schema & "sendpassword") = "SENHA AQUI"
    Flds.Item(schema & "smtpusessl") = 1
    Flds.Update

    With iMsg
        'Email do destinatário
        .To = "EmailDestino@hotmail.com.br"
        'Seu email
        .From = "EmailOrigem@gmail.com"
        'Título do email
        .Subject = "Isto é um teste de Envio de email"
        'Mensagem do e-mail, você pode enviar formatado em HTML
        .HTMLBody = "Mensagem enviada com o gmail."
        'Seu nome ou apelido
        .Sender = "Teste"
        'Nome da sua organização
        .Organization = "Empresa Teste"
        'email de responder para
        .ReplyTo = "EmailOrigem@gmail.com"
        'Anexo a ser enviado na mensagem
        '.AddAttachment ("C:\relato\ctbr145.##r")
        'Passa a configuração para o objeto CDO
        Set .Configuration = iConf
        'Envia o email
        .Send
End With

    'Limpa as variáveis
    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing
End Sub



Não sei se pode postar fonte de outros foruns, mas segue algumas recomendações

https://www.guiadoexcel.com.br/enviar-e ... o-outlook/
https://www.guiadoexcel.com.br/envio-de ... l-com-vba/
_______________________________________________________________________________________________
Abraço!
Carlos Rafael
* Marque o tópico como Resolvido se foi solucionado seu problema.
Avatar do usuário
carlosrgs
Membro
Membro
 
Mensagens: 599
Registrado em: Qua Abr 15, 2015 1:30 pm
Has thanked: 97 times
Have thanks: 143 times

Re: Alarme sonoro e alarme por e-mail

Mensagempor pfmjr78 » Qua Jul 11, 2018 11:01 am

Obrigado Carlos mais uma vez.
A minha duvida sobre a questão do email é como tenho que fazer este código entender que quando atingir a somatório >= 2000 enviar o e-mail

Já fiz a liberação do Microsoft CDO for Windows 2000 Library e já coleio o código no VBA, mas como ligo este código a questão acima.

Valeu pela ajuda!!!! Abraço
pfmjr78
Membro
Membro
 
Mensagens: 7
Registrado em: Qui Mar 03, 2016 2:47 pm
Has thanked: 1 time
Have thanks: 0 time

Re: Alarme sonoro e alarme por e-mail

Mensagempor carlosrgs » Qua Jul 11, 2018 11:28 am

Você pode fazer assim:

Código: Selecionar todos
Sub Verificação()
    If WorksheetFunction.Sum(Range("A1:A50")) >= 2000 Then
'   Coloca aqui rotina do email
    Else
'   Não faz nada
    End If
End Sub
_______________________________________________________________________________________________
Abraço!
Carlos Rafael
* Marque o tópico como Resolvido se foi solucionado seu problema.
Avatar do usuário
carlosrgs
Membro
Membro
 
Mensagens: 599
Registrado em: Qua Abr 15, 2015 1:30 pm
Has thanked: 97 times
Have thanks: 143 times

Re: Alarme sonoro e alarme por e-mail

Mensagempor pfmjr78 » Qua Jul 11, 2018 2:43 pm

Carlos, não abusando da sua ajuda, poderia dar uma olha no que poderia estar de errado neste arquivo da forma que eu fiz? Não sou um entendedor profundo de macros e VBA, conheço o básico.
Aparentemente não funcionou, pois não recebi o e-mail e aparentemente não fez nada quando ficou >2000

Valeu obrigado mais uma vez
Você não está autorizado a ver ou baixar esse anexo.
pfmjr78
Membro
Membro
 
Mensagens: 7
Registrado em: Qui Mar 03, 2016 2:47 pm
Has thanked: 1 time
Have thanks: 0 time

Re: Alarme sonoro e alarme por e-mail

Mensagempor carlosrgs » Qua Jul 11, 2018 3:11 pm

Vou ser sincero que também não sou expert em VBA rsrs

Mas tanta assim:

Código: Selecionar todos
Sub Verificação()
    If WorksheetFunction.Sum(Range("A1:A50")) >= 2000 Then
'   Coloca aqui rotina do email
   
    Dim iMsg, iConf, Flds

    'Seta as variáveis, lembrando que o objeto Microsoft CDO deverá estar habilitado em Ferramentas->Referências->Microsoft CDO for Windows 2000 Library
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields

    'Configura o componente de envio de email
    schema = "http://schemas.microsoft.com/cdo/configuration/"
    Flds.Item(schema & "sendusing") = 2
    'Configura o smtp
    Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
    'Configura a porta de envio de email
    Flds.Item(schema & "smtpserverport") = 465
    Flds.Item(schema & "smtpauthenticate") = 1
    'Configura o email do remetente
    Flds.Item(schema & "sendusername") = "pfmjr78@gmail.com"
    'Configura a senha do email remetente
    Flds.Item(schema & "sendpassword") = "teste"
    Flds.Item(schema & "smtpusessl") = 1
    Flds.Update

    With iMsg
        'Email do destinatário
        .To = "pfmjr78@gmail.com"
        'Seu email
        .From = "pfmjr78@gmail.com"
        'Título do email
        .Subject = "Isto é um teste de Envio de email"
        'Mensagem do e-mail, você pode enviar formatado em HTML
        .HTMLBody = "Mensagem enviada com o gmail."
        'Seu nome ou apelido
        .Sender = "Teste"
        'Nome da sua organização
        .Organization = "Empresa Teste"
        'email de responder para
        .ReplyTo = "teste@gmail.com"
        'Anexo a ser enviado na mensagem
        '.AddAttachment ("c:\fatura.txt")
        'Passa a configuração para o objeto CDO
        Set .Configuration = iConf
        'Envia o email
        .Send
    End With

    'Limpa as variáveis
    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing
   
    Else

'   Não faz nada
    End If
End Sub


O erro era porque você colocou a rotina inteira do email
Vc tem que tirar o Sub NomedaMacro () e o End ao final quando for assim!
_______________________________________________________________________________________________
Abraço!
Carlos Rafael
* Marque o tópico como Resolvido se foi solucionado seu problema.
Avatar do usuário
carlosrgs
Membro
Membro
 
Mensagens: 599
Registrado em: Qua Abr 15, 2015 1:30 pm
Has thanked: 97 times
Have thanks: 143 times

Re: Alarme sonoro e alarme por e-mail

Mensagempor pfmjr78 » Qua Jul 11, 2018 6:05 pm

Obrigado Carlos mais uma vez, mas aparentemente não funcionou também. Fiz como vc disse, ai digito nos campos e na acontece.
Se conseguir me ajudar em mais algo agraço muito!!!!
Valeu pela ajuda!!!!
pfmjr78
Membro
Membro
 
Mensagens: 7
Registrado em: Qui Mar 03, 2016 2:47 pm
Has thanked: 1 time
Have thanks: 0 time

Re: Alarme sonoro e alarme por e-mail

Mensagempor carlosrgs » Qui Jul 12, 2018 8:03 am

Hoje em casa eu vou testar!

Trabalho com Excel todo dia, chego em casa e quero distancia kkkk

Abraço!
_______________________________________________________________________________________________
Abraço!
Carlos Rafael
* Marque o tópico como Resolvido se foi solucionado seu problema.
Avatar do usuário
carlosrgs
Membro
Membro
 
Mensagens: 599
Registrado em: Qua Abr 15, 2015 1:30 pm
Has thanked: 97 times
Have thanks: 143 times

Re: Alarme sonoro e alarme por e-mail

Mensagempor pfmjr78 » Qui Jul 12, 2018 10:38 am

Entendo bem como é isso!!! kkkkk

Valeu obrigado por toda ajuda!!!
pfmjr78
Membro
Membro
 
Mensagens: 7
Registrado em: Qui Mar 03, 2016 2:47 pm
Has thanked: 1 time
Have thanks: 0 time


Voltar para Fórmulas & Funções Microsoft Excel

Quem está online

Usuários navegando neste fórum: robsonslz e 2 visitantes