MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

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

    avatar
    DXBMRJ
    Novato
    Novato


    Respeito às regras : 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? Empty Como enviar email com dados de formulários do Access, via VBA?

    Mensagem  DXBMRJ 16/11/2015, 15: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
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 22/11/2015, 11:45

    Daniel

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

    encontrará vários exemplos como esses.

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 28/3/2024, 21:45