MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Email Automatico

    avatar
    alinejuliana2016
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 16
    Registrado : 15/12/2015

    [Resolvido]Email Automatico Empty [Resolvido]Email Automatico

    Mensagem  alinejuliana2016 Qui 17 Dez 2015, 17:25

    Continuando com meu banco de dados...
    Gostaria de enviar um email automático a partir do endereço correspondente ao campo "CAIXAEMAIL" da minha tela de cadastro (Formulário).
    Esse banco de dados se refere a cadastro de aluno. Portanto, toda vez que eu cadastrasse um aluno no sistema, gostaria que esse aluno recebesse um email padronizado informando que seu cadastro foi efetuado.
    Utilizo o Microsoft Outlook 2010 no meu computador, mas seria mais rápido e prático se eu pudesse enviar o email da minha tela de cadastro.
    Sem mais, agradeço!



    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 280
    Registrado : 23/05/2011

    [Resolvido]Email Automatico Empty Email Atualizado

    Mensagem  Ney Santos Qui 17 Dez 2015, 18:37

    Boa Tarde!
    Eu utilizo um código, que envia um email do pedido feito pelo
    Cliente, o mesmo segue em PDF.

    Vc pode precisara ter um relatório, onde tenha os dados do aluno.
    abaixo o código para você adaptar.


    Dim strstrSaudacao As Variant
    If Time() > #6:00:00 PM# Then
    strstrSaudacao = "Boa Noite!   " & vbCrLf & Forms!Orcamento.Contato & "." & vbCrLf
    ElseIf Time() > #12:00:00 PM# And Time < #6:00:00 PM# Then
    strstrSaudacao = "Boa Tarde!   " & vbCrLf & Forms!Orcamento.Contato & "." & vbCrLf
    Else
    strstrSaudacao = "Bom Dia!     " & vbCrLf & Forms!Orcamento.Contato & "." & vbCrLf

    End If

    DoCmd.SendObject acReport, "Orçamento", acFormatPDF, Forms!Orcamento.Email, "neysantosformax@gmail.com", "neysantosformax@gmail.com", "Pedido n.º " & Forms!Orcamento.CpNotaFiscal, strstrSaudacao & vbCrLf & "Envio do Pedido n.º " & Forms!Orcamento.CpNotaFiscal & vbCrLf & "Segue em anexo cópia do pedido descrito no campo assunto dessa mensagem, para sua conferência." & vbCrLf & vbCrLf & vbCrLf & " Atenciosamente " & vbCrLf & vbCrLf & Forms![Menu Principal].Nomeusu & vbCrLf & "Depto de Vendas " & vbCrLf & "Nome da escola " & vbCrLf & vbCrLf & " Fone (xx)xxxx-xxx" & vbCrLf & "seu email para contato ", True, ""


    MsgBox "Mensagem enviada...", vbInformation, "Aviso"

    Caso queira mais ajuda post o exemplo do seu projeto, para mais esclarecimentos.
    avatar
    alinejuliana2016
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 16
    Registrado : 15/12/2015

    [Resolvido]Email Automatico Empty Email Automatico e Botão Consulta

    Mensagem  alinejuliana2016 Sex 18 Dez 2015, 11:51

    Obrigada!
    Vou testar aqui.
    Laughing

    Mas aproveitando, tenho outra dúvida.
    No meu formulário (FormAgendaTelefonica) criei um botão chamado CONSULTAR.
    A minha intenção é digitar o nome da empresa no campo TEXTOEMPRESA e clicar nesse botão.
    Automaticamente, se o nome que eu digitei estiver cadastrado no sistema, os outros dados serão preenchidos.

    Segue o codigo:

    If TEXTOEMPRESA <> "" Then
    Comando = "Select * from TabAgendaTelefonica where Empresa=" & TEXTOEMPRESA
    valida_selecao
    If dataset.RecordCount <> 0 Then
    TEXTOCELULAR = dataset("CELULAR")
    TEXTOEMAIL = dataset("EMAIL")
    TEXTOENDERECO = dataset("ENDEREÇO")
    TEXTOOBSERVACOES = dataset("OBSERVAÇÕES")
    TEXTORESPONSAVEL = dataset("RESPONSÁVEL")
    TEXTOTELEFONE = dataset("TELEFONE")
    BotaoAlterar.Enabled = True
    BotaoExcluir.Enabled = True
    BotaoConsultar.Enabled = False
    BotaoFechar.Enabled = True
    BotaoImprimir.Enabled = True
    BotaoNovo.Enabled = True
    Else
    MsgBox ("Não foi encontrado nenhum registro com esse nome!"), vbInformation + vbOKOnly, "ERRO"
    End If
    Else
    MsgBox ("Necessário informar um nome para efetuar a consulta!"), vbInformation + vbOKOnly, "INFORME UM NOME"
    End If
    End Sub

    Mas está aparecendo um erro:
    Erro em tempo de execução '3061':
    Parâmetros insuficientes. Eram esperados 1.

    Sendo que eu criei um MÓDULO (MODULOCONEXAO):

    Option Compare Database
    Public Comando As String
    Public banco As Database
    Public dataset As Recordset

    Function Conecta()
    Set banco = CurrentDb
    End Function

    Function valida_selecao()
    Set dataset = banco.OpenRecordset(Comando, dbOpenDynaset)
    End Function

    Mais ou menos. Quem puder me ajudar, agradeço de verdade.
    Sou iniciante no access.

    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Email Automatico Empty Re: [Resolvido]Email Automatico

    Mensagem  JPaulo Sex 18 Dez 2015, 14:07

    teste;

    Código:
    If Me!TEXTOEMPRESA <> "" Then
    Comando = "Select * from TabAgendaTelefonica where Empresa='" & Me!TEXTOEMPRESA & "'"


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Email Automatico Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Email Automatico Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Email Automatico Folder_announce_new Instruções SQL como utilizar...
    avatar
    alinejuliana2016
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 16
    Registrado : 15/12/2015

    [Resolvido]Email Automatico Empty Email Automatico

    Mensagem  alinejuliana2016 Sex 18 Dez 2015, 15:51

    Deu certo!
    Muito Obrigada!!
    De verdade!!!
    Muito legal essa atitude em ajudar as pessoas.
    Recomendo!!!

    santa Very Happy
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Email Automatico Empty Re: [Resolvido]Email Automatico

    Mensagem  JPaulo Sex 18 Dez 2015, 15:54

    Fico feliz.

    Obrigado pelo retorno o forum agradece.

    Neste Natal ajude...






    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Email Automatico Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Email Automatico Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Email Automatico Folder_announce_new Instruções SQL como utilizar...
    avatar
    alinejuliana2016
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 16
    Registrado : 15/12/2015

    [Resolvido]Email Automatico Empty Email automatico

    Mensagem  alinejuliana2016 Sex 18 Dez 2015, 17:30

    JPaulo,
    Muito obrigada pela sua atenção.

    Por gentileza, tire essa outra duvida.
    Caso eu não queria optar pela opção BOTÃO DE CONSULTA, como eu posso localizar algum registro através de uma caixa de combinação?
    Eu criei uma caixa texto e uma caixa de combinação chamada "TEXTOLOCALIZAR".
    Eu fiz uma programação para que os dados dessa caixa de combinação tenha origem de linha o campo TEXTOEMPRESA da minha tabela "TabAgendaTelefonica".

    Neste caso, a minha intenção é digitar ou selecionar o nome da empresa no campo TEXTOLOCALIZAR e automaticamente os outros dados serão preenchidos.

    Segue o codigo:

    If Me!TEXTOLOCALIZAR <> "" Then
    Comando = "Select * from TabAgendaTelefonica where LOCALIZAR='" & Me!TEXTOLOCALIZAR & "'"
    valida_selecao
    If dataset.RecordCount <> 0 Then
    TEXTOEMPRESA = dataset("EMPRESA")
    TEXTOCELULAR = dataset("CELULAR")
    TEXTOEMAIL = dataset("EMAIL")
    TEXTOENDERECO = dataset("ENDEREÇO")
    TEXTOOBSERVACOES = dataset("OBSERVAÇÕES")
    TEXTORESPONSAVEL = dataset("RESPONSÁVEL")
    TEXTOTELEFONE = dataset("TELEFONE")
    BotaoAlterar.Enabled = True
    BotaoExcluir.Enabled = True
    BotaoFechar.Enabled = True
    BotaoImprimir.Enabled = True
    BotaoNovo.Enabled = True
    BotaoRelatorio.Enabled = True
    BotaoSalvar.Enabled = False
    Else
    MsgBox ("Não foi encontrado nenhum registro com esse nome!"), vbInformation + vbOKOnly, "CURSO FMB TERESINA"
    End If
    End If
    End Sub

    Coloquei esse código, mas está aparecendo o mesmo erro da outra vez, quando eu queria criar um botão consulta.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Email Automatico Empty Re: [Resolvido]Email Automatico

    Mensagem  JPaulo Sex 18 Dez 2015, 17:45

    Pitaco;

    Se você tiver apenas uma Combobox no seu form e essa combobox listar apenas as empresas, pode fazer o mais simples e funcional trecho de código;

    Teste assim e pense com carinho;

    Código:
    Private Sub SuaCombo_AfterUpdate()
    On Error Resume Next

        Dim db As DAO.Database
        Dim rs As DAO.Recordset
        Dim strSQL As String
       
        Me!SuaCombo.SetFocus
        If Me!SuaCombo.Value > 0 Then
            strSQL = "SELECT * FROM TabAgendaTelefonica WHERE Empresa='" & Me!SuaCombo.Column(0) & "'"
       
            Set db = CurrentDb
            Set rs = db.OpenRecordset(strSQL)
            If Not rs.BOF Then
                Me.TEXTOCELULAR = rs("CELULAR")
                Me.TEXTOEMAIL = rs("EMAIL")
                Me.TEXTOENDERECO = rs("ENDEREÇO")
                Me.TEXTOOBSERVACOES = rs("OBSERVAÇÕES")
                Me.TEXTORESPONSAVEL = rs("RESPONSÁVEL")
                Me.TEXTOTELEFONE = rs("TELEFONE")
            End If
            rs.Close
            Set rs = Nothing
            db.Close
            Set db = Nothing
        End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Email Automatico Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Email Automatico Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Email Automatico Folder_announce_new Instruções SQL como utilizar...
    avatar
    alinejuliana2016
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 16
    Registrado : 15/12/2015

    [Resolvido]Email Automatico Empty Email Automatico e Campo Localizar

    Mensagem  alinejuliana2016 Sex 18 Dez 2015, 18:10

    Resolvido.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Email Automatico Empty Re: [Resolvido]Email Automatico

    Mensagem  Alexandre Neves Sab 19 Dez 2015, 17:21

    [Resolvido]Email Automatico MaximoAccess%20ResolvidoMarcado


    .................................................................................
    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

      Data/hora atual: Qui 04 Mar 2021, 18:44