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

    Email com Anexo em PDF

    avatar
    Valdenirst
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Email com Anexo em PDF Empty Email com Anexo em PDF

    Mensagem  Valdenirst 18/7/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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Email com Anexo em PDF Empty Re: Email com Anexo em PDF

    Mensagem  Alexandre Neves 18/7/2017, 21:45

    Boa noite,
    Vá dando sequência às dúvidas que recebeu resposta e não informou evolução
    https://www.maximoaccess.com/t22833-calcular-media#165485
    https://www.maximoaccess.com/t23409-soma-com-dois-criterios#168733

    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
    avatar
    Valdenirst
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Email com Anexo em PDF Empty Re: Email com Anexo em PDF

    Mensagem  Valdenirst 18/7/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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Email com Anexo em PDF Empty Re: Email com Anexo em PDF

    Mensagem  Alexandre Neves 18/7/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
    avatar
    Valdenirst
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Email com Anexo em PDF Empty Re: Email com Anexo em PDF

    Mensagem  Valdenirst 19/7/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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Email com Anexo em PDF Empty Re: Email com Anexo em PDF

    Mensagem  Alexandre Neves 19/7/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

    Conteúdo patrocinado


    Email com Anexo em PDF Empty Re: Email com Anexo em PDF

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 18:58