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

    Email com Anexo em PDF

    Compartilhe

    Valdenirst
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 14
    Registrado : 04/05/2015

    Email com Anexo em PDF

    Mensagem  Valdenirst em Ter 18 Jul 2017, 16:03

    Bom dia Amigos,

    Como posso adaptar o código abaixo para anexar o relatório em pdf e enviar ao cliente?
    Localizei muitos, mas não consegui adaptar.

    Segue código abaixo:

    Private Sub Comando357_Click()
    'Enviar email
    'Macro para enviar email, necessita habilitar referencia
    'Na janela VBA --> Ferramentas --> Referências --> Microsoft CDO for Windows

    Dim vMensagem As String, vDestinatario As String, vTitulo As String
    Dim lobj_cdomsg As CDO.Message
    Dim vNetwork As Object

    Dim rs As DAO.Recordset

    vDestinatario = [email]

    Set vNetwork = CreateObject("WScript.Network")
    vLogado = vNetwork.UserName

       Set lobj_cdomsg = New CDO.Message '
       With lobj_cdomsg.Configuration
           .Fields(cdoSendUserName) = DLookup("cdoSendUserName", "TBL_CONFIGEMAIL") 'Aqui vai o endereço de e-mail que será responsável pelo envio
           .Fields(cdoSendPassword) = DLookup("cdoSendPassword", "TBL_CONFIGEMAIL") 'Aqui vai a senha do e-mail
           .Fields(cdoSMTPAuthenticate) = cdoBasic
           .Fields(cdoSMTPServer) = DLookup("cdoSMTPServer", "TBL_CONFIGEMAIL") 'Nome do servidor SMTP
           .Fields(cdoSMTPConnectionTimeout) = DLookup("cdoSMTPConnectionTimeout", "TBL_CONFIGEMAIL") 'Porta
           .Fields(cdoSMTPServerPort) = DLookup("cdoSMTPServerPort", "TBL_CONFIGEMAIL") 'Porta
           .Fields(cdoSendUsingMethod) = cdoSendUsingPort
           .Fields.Update
       vMensagem = "Aviso de abertura de Reclamação de Clientes" & Chr(13) & Chr(13)   'chr siginifica nova linhaou linhas em branco
       vMensagem = vMensagem & "Número do Protocolo: " & [Protocolo] & "" & Chr(13)
       vMensagem = vMensagem & "Cliente: " & [Cliente] & "" & Chr(13)
       vMensagem = vMensagem & "Aberto por: " & vLogado & Chr(13)
       vMensagem = vMensagem & "Data da Abertura do Protocolo: " & [DataCadastro] & "" & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13)
       vMensagem = vMensagem & DLookup("Padrao", "TBL_CONFIGEMAIL") & Chr(13)
       vMensagem = vMensagem & DLookup("Padrao1", "TBL_CONFIGEMAIL") & Chr(13)
       vMensagem = vMensagem & DLookup("Padrao2", "TBL_CONFIGEMAIL") & Chr(13)
       vMensagem = vMensagem & DLookup("Padrao3", "TBL_CONFIGEMAIL") & Chr(13)
       vMensagem = vMensagem & DLookup("Padrao4", "TBL_CONFIGEMAIL") & Chr(13)
       End With
       'vMensagem = vMensagem & "Local dos arquivos: " & Forms!FRM_RECCLIENTES!fm_OS_Sub!Arquivo_OSsub
       If Status = "Em Aberto" Then
           vTitulo = "Reclamação de Clientes  Sob o Protocolo Nº - " & [Protocolo] & "" 'Assunto
       Else
           vTitulo = "Resposta sobre a Reclamação de Clientes  Sob o Protocolo Nº - " & [Protocolo] & ""         'Assunto
       End If
       
       With lobj_cdomsg
           .To = vDestinatario
           .From = DLookup("cdoSendUserName", "TBL_CONFIGEMAIL") 'Endereço remetente (o mesmo da conexão q vc fez )
           .Subject = vTitulo 'Assunto
           .TextBody = vMensagem
           .Send
       End With
    End Sub

    Desde já agradeço amigos, e espero poder ser ajudado.

    Att,

    valdenir
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6496
    Registrado : 05/11/2009

    Re: Email com Anexo em PDF

    Mensagem  Alexandre Neves em Ter 18 Jul 2017, 21:45

    Boa noite,
    Vá dando sequência às dúvidas que recebeu resposta e não informou evolução
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    As dúvidas que não obtenha resposta, pode relembrar, conforme regras do fórum


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Valdenirst
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 14
    Registrado : 04/05/2015

    Re: Email com Anexo em PDF

    Mensagem  Valdenirst em Ter 18 Jul 2017, 22:02

    Boa noite Alexandre,

    Minha dúvida é somente como faço com este código abaixo para anexar em pdf o relatório.
    Gostei deste código, porém queria somente adaptá-lo o anexo a este código.

    Att,

    Valdenir
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6496
    Registrado : 05/11/2009

    Re: Email com Anexo em PDF

    Mensagem  Alexandre Neves em Ter 18 Jul 2017, 22:08

    Mas não deve pedir ajuda e não responder aos que tentam ajudar na sua resolução.
    Até por respeito a quem se esforçou por ajudar
    Mesmo as dúvidas que não obtém resposta satisfatória, pode fazer actualização após 24 horas, de forma a sinalizar o interesse, caso contrário será interpretado como tendo resolvido sem retribuir esse conhecimento a quem tentou ajudar ou dá a ideia que a dúvida não era importante e tornou-se desnecessária

    Leia as regras e siga-as
    Retorne sempre se deu certo, esse retorno é muito importante.
    Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Valdenirst
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 14
    Registrado : 04/05/2015

    Re: Email com Anexo em PDF

    Mensagem  Valdenirst em Qua 19 Jul 2017, 16:28

    Obrigado pela Dica Alexandre,

    Todas as dúvidas anteriores já foram devidamente resolvidas.
    Por falta de conhecimento acabei não finalizando.
    Mas agora já alterei e todas as perguntas foram resolvidas.

    Estou somente com esta pergunta para resolver mesmo.
    Espero que possa me ajudar.

    Att,

    Valdenir
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6496
    Registrado : 05/11/2009

    Re: Email com Anexo em PDF

    Mensagem  Alexandre Neves em Qua 19 Jul 2017, 21:11

    Acrescente ao código
    .AddAttachment "EnderecoCompletoDoFicheiro"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Sab 18 Nov 2017, 13:35