Como enviar e-mail ao salvar registro em formulario

Fala galera, boa noite,

Queria enviar um e-mail de confirmacao com o outlook para meus clientes quando eu adiciona-los a minha base de dados.
o código que eu uso para salvar meu formulario é:

Private Sub BT_salvar_formato_pago_BR_Click()
DoCmd.RunCommand acCmdSaveRecord
   Call Habilitarbotoes2
   Me.BT_salvar_formato_pago_BR.Enabled = True
End Sub

Queria usar o campo e_mail_BR que esta presente no mesmo formulario como destino do e-mail de confirmacao de recebimento de dados. No e-mail queria usar o campo nome_BR (presente no mesmo formulario) para completar o campo do nome no corpo do e-mail e o prazo "prazo_BR" que esta em outra base de dados "DB_incentivos_BR" ja definindo um corpo da mensagem e enviando aumaticamente.

Sou iniciante no access e em VBA.

Alguma ideia para eu comecar a fazer essa funcao?

Desde já agradeço!

Olá Barroso,

Me baseando aqui:

http://www.codekabinett.com/rdumps.php?Lang=2&targetDoc=send-email-access-vba-cdo

Adicione a seguinte referência pela IDE na sua barra de ferramentas:

Microsoft CDO for Windows 2000 Library

Preparei o seguinte código:

Código:


Private Sub cmdEnviar_Click()
Call EnviaSimplesCDOMail
End Sub

Public Sub EnviaSimplesCDOMail()
On Error GoTo TrataErro
    Dim mail    As CDO.MESSAGE
    Dim config  As CDO.Configuration
    Dim strDestinatario, strRemetente, strAssunto, strCorpo As String
    
    strRemetente = Me.Email                                     'Campo do seu email pelo formulário
    strDestinatario = Me.DestinatarioEmail                  'Campo do email do destinatário pelo formulário
    strAssunto = Me.Assunto
    strCorpo = Me.Corpo
    
    Set mail = CreateObject("CDO.Message")
    Set config = CreateObject("CDO.Configuration")
    
    config.Fields(cdoSendUsingMethod).Value = cdoSendUsingPort
    config.Fields(cdoSMTPServer).Value = "mail.mycompany.invalid"
    config.Fields(cdoSMTPServerPort).Value = 25
    config.Fields.Update
    
    Set mail.Configuration = config
    
    With mail
        .To = strDestinario
        .From = strRemetente
        .Subject = strAssunto
        .TextBody = strCorpo
        
        '.AddAttachment "C:\path\to\a\file.dat"  'Aqui você coloca o caminho do seu arquivo para anexar.Desativei com um apóstrofo
        
        .Send
    End With
    
    Set config = Nothing
    Set mail = Nothing
    Exit Sub
TrataErro:
    MsgBox Err.Description, vbCritical, "Possível causa do erro"
    
End Sub

Boa noite good guy, obrigado por sua rapida resposta e seu tempo. Nao sei se é bem o codigo que necessito, necessito que ao salvar meu formulario que adiciona os dados a tabela(db_clientes) ele envie para meu cliente um email de confirmacao de recebimento de dados. E o e-mail do remetente vai estar em uma tabela diferente da do formulario vai estar em um campo em(db_usuarios) que é atual usuario logado,  O destinatario esta presente no formulario, o nome do destinatario esta presente no formulario, é possivel que o nome estivesse no corpo do e-mail, junto com o prazo de pagamento presente em um campo em outra tabela (db_pagamentos)? Nao sei se fui claro.

Obrigado pela força.

Olá barroso,

Para pesquisar o e-mail do remetente na tabela você tem que utilizar a função Dlookup.

Código:



......
Dim strNome As String
dim intCod As Integer

intCod = Nz(Dlookup("Codigo","db_Usuarios","Login = '" & Me.Login & "'"))
strNome = Nz(Dlookup("Nome","db_Usuarios","Codigo = " & intCod))
strRemetente = Nz(Dlookup("email","NomedeSuaTabela","Nome =  '" & strNome & "'"))

......



Ola good guys, boa noite obrigado pela resposta.

E para encontrar o resultado que eu espero como eu adequaria esta funcao ao codigo que voce me indicou anteriormente?

Me poderia explicar melhor esta linha:

intCod = Nz(Dlookup("Codigo","db_Usuarios","Login = '" & Me.Login & "'"))

Olá barroso,

intCod = Nz(Dlookup("Codigo","db_Usuarios","Login = '" & Me.Login & "'"))

Me.Login = É o login do usuário ao digitar no campo Login do formulário.
Código = É o código do usuário na tabela db_Usuarios.
intCod = É a variável referente ao código acima para ser usada para encontrar o nome do usuário nessa mesma tabela pela variável strNome.

Boa tarde good guy, obrigado pela explicacao da linha, agora nao entendi como aplicar esta funcao ao codigo que anteriormente voce havia mencionado.

Alguma ajuda para esta ideia?

Olá barroso,

Posta então o bd para sabermos o que pode estar errado.