MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Como enviar email com dados de formulários do Access, via VBA?

    Compartilhe

    DXBMRJ
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 16/11/2015

    Como enviar email com dados de formulários do Access, via VBA?

    Mensagem  DXBMRJ em Seg 16 Nov 2015, 16:17

    Pessoal,

    Minha empresa possui um banco de dados para cadastro de documentos expedidos. Esses documentos podem ser expedidos em conjunto entre departamentos da empresa. Há uma caixa de texto para informar os departamentos envolvidos no documento e há um campo também para informar a data de envio ao arquivo da empresa. Gostaria de colocar no VBA uma função para envio de email toda vez que um documento conjunto fosse cadastrado e quando esse documento conjunto fosse enviado ao arquivo. Como sou leigo no assunto, gostaria de que alguém pudesse me ajudar. Foi sugerida, como exemplo, a instrução abaixo, mas não funcionou. A instrução coloca o envio do email após salvar o registro, entendendo que o documento é conjunto por ter algum texto no campo Conjunto Com.

    Private Sub ParaCarta_AfterUpdate()
    DoCmd.SetWarnings False
    DoCmd.RunSQL "INSERT INTO TabLog (Usuario,DataHora,NomeForm,NomeReg,NomeCampo,ValorAntigo,ValorNovo) VALUES ('" & UserName() & "','" & Now() & "','" & Me.Form.Name() & "','" & Me.Form.CurrentRecord & "','" & ParaCarta.Name & "','" & ParaCarta.OldValue & "','" & ParaCarta.Value & "')"
    DoCmd.SetWarnings True
    'Após informar todos os campos obrigatórios, salva o registro atual
    DoCmd.RunCommand acCmdSaveRecord
    MsgBox ("O registro foi salvo com sucesso.")
    End Sub

    Private Sub EnviaEmail()

    If Not IsNull (ConjuntoCom) Then

    Dim objEmail As Object
    Dim Cr As String, Lf As String
    Dim Texto As String
    Dim CxPostal As String

    Cr = Chr(13)
    Lf = Chr(10)


    CxPostal = "Maluco" + ""


    If Time < "12:00" Then
    x = "Bom dia,"
    End If

    If Time > "12:00" Then
    x = "Boa tarde,"
    End If

    If Time > "12:00" And Time > "18:00" Then
    x = "Boa noite,"
    End If

    Texto = Texto + Cr
    Texto = Texto + x
    Texto = Texto + Cr
    Texto = Texto + Cr
    Texto = Texto + "Teste"
    Texto = Texto + Cr
    Texto = Texto + Cr

    Set objEmail = CreateObject("CDO.Message")

    objEmail.From = "Eu" + ""
    objEmail.To = CxPostal
    objEmail.cc = "gsdjkbfgjkdsbngjksdb" + ""
    objEmail.Subject = "Doc Conjunto"
    objEmail.Textbody = Texto

    ' objEmail.AddAttachment "Enderecodeanexo/podenaoter"

    objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Mail"
    objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update
    objEmail.Send

    End If

    End Sub


    Mas esse teste não funcionou.

    Alguém tem alguma sugestão de ajuste que possa ser feito?

    Para o envio do email de arquivamento, a instrução seria a mesma alterando apenas os campos preenchidos.

    Valeu, pessoal!

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2519
    Registrado : 29/06/2012

    Re: Como enviar email com dados de formulários do Access, via VBA?

    Mensagem  Noobezinho em Dom 22 Nov 2015, 12:45

    Daniel

    Se procurar no fórum utilizando o botão Buscar ali de cima,

    encontrará vários exemplos como [Você precisa estar registrado e conectado para ver este link.]

    [ ]'s


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Dom 11 Dez 2016, 01:17