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


2 participantes

    [Resolvido]E-mail envio de registo único

    Oliveira89
    Oliveira89
    Oliveira89
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 07/09/2016
    • Mensagem nº1

    [Resolvido]E-mail envio de registo único Empty [Resolvido]E-mail envio de registo único

    Mensagem  Oliveira89 31/1/2017, 15:20

    Boas pessoal

    Estou com um problema enorme... o meu primeiro problema já o resolvi parcialmente, era relativo a combo box's; porem como consegui resolver mais ou menos vamos deixar isso de lado. Vou explicar em que se resume o meu BD. É um simples sistema de registo de avarias em que se faz uma gestão acerca de materiais.
    Gostaria imenso que quando um utilizador clicasse em guardar registo para alem do botão guardar o registo enviar um email para vários contactos, notificando desta forma que um registo foi feito. O e-mail teria a informação relativamente ao registo que foi feito (ou seja os campos que foram preenchido). Sei que é possível e já tentei aqui pesquisar pelo forum, porem exige um altíssimo nível de programação, e para ser sincero ainda não atingi esse nível.
    Poderia pedir a vossa ajuda mestres?
    Em anexo envio a BD.


    .................................................................................
    Muito Obrigado
    Com os melhores Cumprimentos
    此致
    Oliveira
    • Ir para o topo
    leicand
    leicand
    leicand
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 04/01/2016
    • Mensagem nº2

    [Resolvido]E-mail envio de registo único Empty Re: [Resolvido]E-mail envio de registo único

    Mensagem  leicand 31/1/2017, 16:44

    Bom dia Oliveira,

    Infelizmente não é fácil trabalhar no seu BD pois tem tabelas vinculadas com o endereço do seu computador. Mas minha sugestão é a seguinte:

    Quando o utilizador clicar em guardar um registro, que crie um relatório com as informações necessárias e envie o e-mail (via Outlook) com o seguinte código:

    Código:
    Public Function EnviarEmail()

        Dim HTM, ASS As String

        Dim appOutlook As Object

        Dim MailOutLook As Object

        Dim strRecipient As String

        Dim strHeader  As String

        Dim strBody As String

        Dim strArquivo As String

        Dim strLocal As String
        
        Dim strCaminho As String

        Dim objOut As Object

        Dim objmail As Object

        Dim objAnexo As Object

        Const olMailItem = 0

        Const olByValue = 1

        Set objOut = CreateObject("Outlook.application")

        Set objmail = objOut.CreateItem(olMailItem)

        Set objAnexo = objmail.Attachments
        
        strRecipient = "ENDEREÇO DO DESTINATÁRIO"
        
        '***************** CRIAÇÃO DE UM PDF DE UM RELATÓRIO*********************

        strArquivo = "NOME DO ARQUIVO" & ".pdf"
        
        strLocal = "C:\Users\TIAGO.BRANCO\Desktop\Registro de avarias\"
        
        strCaminho = strLocal & "\" & strArquivo
        
        DoCmd.OutputTo acReport, "NOME DO SEU RELATÓRIO", acFormatPDF, strCaminho, False
        
        '**********************************************************************
        
        
        
        objAnexo.Add strCaminho, olByValue, 1

        Set appOutlook = CreateObject("Outlook.Application")

        Set MailOutLook = appOutlook.CreateItem(olMailItem)

        strHeader = "SEU CABEÇALHO"

        strBody = "CORPO DO E-MAIL"

        HTM = "<html><body style='font-family:calibri'><font size = '3'>" & _
                                                "<p> CORPO DO E-MAIL </p> "

                                            ASS = "ASSINATURA, QUE PODE SER COLOCADA COMO HTML ETC..." & _
                                                "</font></body></html> "

        With MailOutLook

               .To = strRecipient
              
               .Subject = strHeader

                .CC = "ENDEREÇO DA CÓPIA CÓPIA"
                
               .BCC = "ENDEREÇO DA CÓPIA OCULTA"

               .HTMLBody = HTM & ASS

               .Attachments.Add (strCaminho) 'COLOCA O ARQUIVO GERADO COMO ANEXO

               .Send
              
        End With
        
        Set objOut = Nothing

        Set objmail = Nothing

        Set objAnexo = Nothing
        
        Set appOutlook = Nothing

        Set MailOutLook = Nothing
        
        strRecipient = ""
        
        strArquivo = ""
        
        strLocal = ""
        
        strCaminho = ""
        
        DoCmd.Close acReport, "NOME DO SEU RELATÓRIO", acSaveNo
        
    End Function


    Claro que você também pode não usar um report e mandar as informações do registro e escrever o e-mail como quiser com esse código.
    • Ir para o topo
    Oliveira89
    Oliveira89
    Oliveira89
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 07/09/2016
    • Mensagem nº3

    [Resolvido]E-mail envio de registo único Empty Re: [Resolvido]E-mail envio de registo único

    Mensagem  Oliveira89 1/2/2017, 09:07

    Muito obrigado pela sua ajuda Smile está a funcionar 100%.
    Apenas tenho de criar um relatório através de uma consulta que me vá a buscar o ultimo registo que gravei numa tabela.


    .................................................................................
    Muito Obrigado
    Com os melhores Cumprimentos
    此致
    Oliveira
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº4

    [Resolvido]E-mail envio de registo único Empty Re: [Resolvido]E-mail envio de registo único

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 8/11/2024, 06:53