MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Form para email

    Compartilhe

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 09/01/2017

    [Resolvido]Form para email

    Mensagem  glaauco em Qui 13 Jul 2017, 15:55

    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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

    Re: [Resolvido]Form para email

    Mensagem  ahteixeira em Sab 15 Jul 2017, 08:24

    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:
    [Você precisa estar registrado e conectado para ver este link.]

    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

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 09/01/2017

    Re: [Resolvido]Form para email

    Mensagem  glaauco em Seg 17 Jul 2017, 13:46

    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

    Re: [Resolvido]Form para email

    Mensagem  ahteixeira em Seg 17 Jul 2017, 16:48

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

      Data/hora atual: Ter 21 Nov 2017, 21:13