[Resolvido]Email Automatico

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!

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.

Obrigada!
Vou testar aqui.


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.

teste;

Código:

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

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

Fico feliz.

Obrigado pelo retorno o forum agradece.

Neste Natal ajude...

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.

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

Resolvido.