[Resolvido]Form para email

Bom dia,

já pesquisei nos tópicos aqui mas não conseguir adequar nada que pudesse resolver minha dúvida.

Tenho um Frm (fmrEmail), com os campos:

. nome (cx_comb_nome) e um campo que preenche automaticamente o email de acordo com o nome escolhido (txt_nome_email)

. cpf (cx_comb_cpf)

. assunto (txt_assunto)

. email (txt_email)


gostaria que ao clicar no botao enviar email, ele pegasse os dados preenchidos no form e os adc ao email, ficando da seguinte maneira:

destinatario: campo txt_nome_email
assunto: um pequeno texto de cobrança + campo txt_assunto

corpo do email:
bom dia, nome da pessoa.

seu cx_comb_cpf encontra-se individado conosco. Por favor entrar em contato.


muito obrigado.

Olá Glauco Simoes,

Qual a forma que pretende enviar o email, via CDO ou Outlook
Não falta exemplos no fórum, temas abordado diversas vezes de várias formas.

Efetue uma busca, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Depois de escolher o metodo pretendido, se tiver dificuldades, poste a base de dados com o código.
Assim fica mais fácil para qualquer membro poder ajudar.
Abraço

após alguns estudos e pesquisas novamente no fórum, consegui adequar um código para adicionar o conteúdo do que foi digitado nos campos do form ao email, espero que ajude

Código:

Public Sub enviaremail()
Dim sSaudacao As String
Dim sAssunto As String
Dim v_texto1 As String

Dim v_espaco As String




box = MsgBox("Deseja salvar e enviar agora?", vbYesNo)

If box = 6 Then

Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)


If Time() < "12:00" Then
sSaudacao = "<span style='font-family:""Arial"",""sans-serif"";color:#000000;'>Bom dia,</span><br><br>"
ElseIf Time() < "18:00" Then
 
      sSaudacao = "<span style='font-family:""Arial"",""sans-serif"";color:#000000;'>Boa tarde,</span><br><br>"
     
  Else
 
      sSaudacao = "<span style='font-family:""Arial"",""sans-serif"";color:#000000;'>Boa noite,</span><br><br><br><br>"
     
  End If
 


v_texto1 = sSaudacao & _
"por favor verificar:  "
v_espaco = "<br><br><br>"

sAssunto = "Verificação"

With oOMail
.To = Forms!formEmail!txt_email_eng
.Subject = sAssunto & Forms!formEmail!txt_assunto
.HTMLBody = v_texto1 & Forms!formEmail!txt_modelo & v_espaco & Forms!formEmail!txt_email
.Send



Set oOApp = Nothing
Set oOMail = Nothing
Set Send = Nothing

MsgBox ("Operação concluída")
End With

Else

MsgBox ("Operação cancelada")
DoCmd.Close


End If

End Sub

Olá Glauco Simoes,
Obrigado pelo retorno, os utilizadores do fórum agradecem.
Abraço