MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


4 participantes

    [Resolvido]Alerta automático ao incluir novo registro

    ijunior
    ijunior
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 27/02/2014

    [Resolvido]Alerta automático ao incluir novo registro Empty [Resolvido]Alerta automático ao incluir novo registro

    Mensagem  ijunior 18/3/2014, 13:47

    Bom dia, estou desenvolvendo uma ferramenta para abertura de chamados de suporte técnico, já esta quase concluída, porem procuro uma forma eficiente para que automaticamente ao ser aberto um novo chamado o setor de TI seja informado, seja por e-mail ou por uma mensagem de alerta que abra automaticamente na tela. preferível que seja por email pois a ferramenta será disponibilizada também fora do escritório.
    avatar
    halmeida
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 07/08/2011

    [Resolvido]Alerta automático ao incluir novo registro Empty Re: [Resolvido]Alerta automático ao incluir novo registro

    Mensagem  halmeida 24/3/2014, 01:05

    Olá, insira no evento após atualizar ou após inserir (ou no evento de confirmação de abertura do chamado):
    Código:

    Dim resp As String
    resp = "emaildestinatario@exemplo.com.br"

    Dim appOutLook As New Outlook.Application
            Set appOutLook = CreateObject("Outlook.Application")

            Dim MailOutLook As Outlook.MailItem
            Set MailOutLook = appOutLook.CreateItem(olMailItem)
              
          With MailOutLook
        .To = resp
        .Subject = "Título do e-mail"
        .Body = "corpo do e-mail"
        .Attachments.Add "link do anexo a ser enviado" 'anexa um arquivo no e-mail.
        .Send 'Executa o método enviar sem interferência do usuário.
          End With

    É importante informar que este código funciona somente se o emitente tiver outlook instalado e configurado.
    ijunior
    ijunior
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 27/02/2014

    [Resolvido]Alerta automático ao incluir novo registro Empty Re: [Resolvido]Alerta automático ao incluir novo registro

    Mensagem  ijunior 30/5/2014, 20:08

    Obrigado amigo, o código foi bem util.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Alerta automático ao incluir novo registro Empty Re: [Resolvido]Alerta automático ao incluir novo registro

    Mensagem  Alexandre Neves 30/5/2014, 20:34

    Boa tarde, ijunior
    Se estiver resolvido, lembre-se de premir o botão "Resolvido" na zona inferior direita do fórum


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    ijunior
    ijunior
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 27/02/2014

    [Resolvido]Alerta automático ao incluir novo registro Empty Re: [Resolvido]Alerta automático ao incluir novo registro

    Mensagem  ijunior 11/6/2014, 14:22

    Olá Alexandre, perdoe minha ignorância, mas não encontro o botão resolvido.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Alerta automático ao incluir novo registro Empty Re: [Resolvido]Alerta automático ao incluir novo registro

    Mensagem  Noobezinho 11/6/2014, 15:06

    Esse botão está na pagina onde você digita tua mensagem, bem la embaixo do lado direito.


    Abraços

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    ijunior
    ijunior
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 27/02/2014

    [Resolvido]Alerta automático ao incluir novo registro Empty Re: [Resolvido]Alerta automático ao incluir novo registro

    Mensagem  ijunior 11/6/2014, 15:21

    obrigado noobezinho

    Conteúdo patrocinado


    [Resolvido]Alerta automático ao incluir novo registro Empty Re: [Resolvido]Alerta automático ao incluir novo registro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 00:58