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.
4 participantes
[Resolvido]Alerta automático ao incluir novo registro
ijunior- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 35
Registrado : 27/02/2014
halmeida- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 90
Registrado : 07/08/2011
Olá, insira no evento após atualizar ou após inserir (ou no evento de confirmação de abertura do chamado):
É importante informar que este código funciona somente se o emitente tiver outlook instalado e configurado.
- 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- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 35
Registrado : 27/02/2014
Obrigado amigo, o código foi bem util.
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
Boa tarde, ijunior
Se estiver resolvido, lembre-se de premir o botão "Resolvido" na zona inferior direita do fórum
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- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 35
Registrado : 27/02/2014
Olá Alexandre, perdoe minha ignorância, mas não encontro o botão resolvido.
Noobezinho- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4140
Registrado : 29/06/2012
Esse botão está na pagina onde você digita tua mensagem, bem la embaixo do lado direito.
Abraços
Noob
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?
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- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 35
Registrado : 27/02/2014
obrigado noobezinho