Enviar email do access
Transferir como DOCX, PDF0 gostou35 visualizações
O documento fornece um código VBA para enviar um relatório gerado em PDF como anexo de um email utilizando o Microsoft Access. O código cria um objeto de mensagem CDO, configura os parâmetros do servidor SMTP do Gmail como servidor de saída e envia o email com o relatório PDF anexado após gerar o relatório.
Enviar email do access
- 1. Página 1 de 4 (Pregue o Evangelho em Todo Tempo. Se Precisar Use Palavras.)
- 2. Página 2 de 4 (Pregue o Evangelho em Todo Tempo. Se Precisar Use Palavras.) avor Verifique os Saldo Ne gativo das P ostagens: 1 | Registrado: 22 January 2015 Raphael sM P rogramad or P leno postado 29 Janeiro 2015 15:28 Tenta isso: Private Sub btnGerar_Click() DoCmd.OutputTo acOutputReport, "rltArtigosNaoPagos", acFormatPDF, "C:Relatorio.pdf" EnviaEmail End Sub Sub EnviaEmail() Dim iMsg As Object Dim iConf As Object Dim strbody As String Dim Flds As Variant Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") iConf.Load -1 ' CDO Source Defaults Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/smtpus
- 3. Página 3 de 4 (Pregue o Evangelho em Todo Tempo. Se Precisar Use Palavras.) essl") = True .Item("http://schemas.microsoft.com/cdo/configuration/smtpau thenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendus ername") = " SEU_USUARIO @gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendpa ssword") = "SUA_SENHA" .Item("http://schemas.microsoft.com/cdo/configuration/smtpse rver") = "smtp.gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/smtpco nnectiontimeout") = 60 .Item("http://schemas.microsoft.com/cdo/configuration/sendusi ng") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpse rverport") = 465 .Update End With strbody = "Caro Cliente." & vbNewLine & vbNewLine & _ "No anexo, o relatório solicitado." & vbNewLine & vbNewLine & _ "Atenciosamente." & vbNewLine & _ "Empresa Ltda" With iMsg Set .Configuration = iConf .To = "rafaelvpm@hotmail.com" '.CC = "" .From = "Rafael Magalhaes <rafaelvpm@gmail.com>" .Subject = "Email Solicitado" .TextBody = strbody .AddAttachment "C:Relatorio.pdf" .Send ' Linha que dá erro End With MsgBox "Enviado" End Sub Sds, RaphaelsM
- 4. Página 4 de 4 (Pregue o Evangelho em Todo Tempo. Se Precisar Use Palavras.) (((...RAFAELVPM...))) CLIQUE AQUI E RECEBA AGORA! Dicas Grátis para Trabalhar com Access Como Profissional