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

    [Resolvido]Enviar por email com anexos access runtime

    avatar
    henrique73
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 29/05/2013

    [Resolvido]Enviar por email com anexos access runtime Empty [Resolvido]Enviar por email com anexos access runtime

    Mensagem  henrique73 28/1/2021, 14:10

    Tenho uma linha de código vba que explorei depois de dicas e ela funciona no access 365 do office, entretanto o mesmo código, no access runtime não carrega o anexo. Em ambos uso o thunderbird.

    Algum cuidado diferenciado no access runtime?

    Via indicação de buscar no endereço onde o relatório é salvo, mas o nome do arquivo é variavel com data e hora no nome, então não consigo busca efetivamente ele.

    Se algume souber de alguma dica do runtime agradeço, pois funciona no 365.

    Obrigado

    cesar

    henrique73 gosta desta mensagem

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    Registrado : 15/03/2013

    [Resolvido]Enviar por email com anexos access runtime Empty Re: [Resolvido]Enviar por email com anexos access runtime

    Mensagem  Alvaro Teixeira 10/2/2021, 23:46

    Olá Cesar,

    Talvez seja melhor partilhar o código para semtestar.
    Alternativa pode usar via CDO, pesquise no fórum
    Veja se ajuda:
    https://www.maximoaccess.com/t3663-resolvidoenviar-email-via-cdo
    https://www.maximoaccess.com/t31345-resolvidoanexar-arquivos-via-formulario-cdo-de-envio-de-email-dando-erro

    Abraço

    henrique73 gosta desta mensagem

    avatar
    henrique73
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 29/05/2013

    [Resolvido]Enviar por email com anexos access runtime Empty Re: [Resolvido]Enviar por email com anexos access runtime

    Mensagem  henrique73 17/2/2021, 22:14

    Quase deu certo.

    O anexo a ser carregado tem nome variavel criado com data e hora, quando anexa do endereço vem todos.

    os arquivo todos tem o mesmo nome e muda apenas parte do final, como ele é criado no momento da geração do email, não consigo escolher apenas o que esta sendo criado naquele momento.

    Mesmo no thunderbird funciona na minha maquina win 10 com access 365
    no servidor é runtime e ele constroi o email completo com todos os quesitos, mas não carrega o bendito do anexo que foi criado naquele momento.

    Private Sub Comando1954_Click()
    On Error Resume Next
    Me.docec = "1"
    Me.z7 = "0"
    [rec process 2].Value = Now
    Refresh
    origemdt.Value = ""
    origem.Value = ""
    Me.[origemdt] = ""
    Me.origem = ""
    Refresh
    Me.explorer = _
    Me.sinistro & "-" & Me.ano
    Dim thund As String
       Dim email As String
       Dim cc As String
       Dim bcc As String
       Dim subj As String
       Dim body As String

       email = Me.emailcor
       cc = ""
       bcc = "vistoriasporto@gmail.com"
       subj = "Ramo - " & Me.ramo.Value & "  Sinistro - " & Me.sinistro & "  Ano - " & Me.ano & " - " & Me.NOMESEGURADO
       body = "Prezado Corretor" & vbNewLine & vbNewLine & "Posição da pré-análise dos documentos do sinistro" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & "Orientação da Cia: utilize os canais ""Corretor Online"" ou retorno direto neste e-mail para envio de documentos e dúvidas. Enviar por outros canais pode gerar duplicidade. " & vbNewLine & vbNewLine
       thund = "C:\Program Files\thunder\thunderbird.exe " & _
               "-compose " & """" & _
               "to='" & email & "'," & _
               "cc='" & cc & "'," & _
               "bcc='" & bcc & "'," & _
               "subject='" & subj & "'," & _
               "body='" & body & "'" & """"

       Call Shell(thund, vbNormalFocus)
       SendKeys "^+{ENTER}", True
    DoCmd.OutputTo acOutputReport, "Posição de documentos do sinistro", acFormatPDF, "p:\" & Me.explorer & "\A-Posição do Processo - Documentos " & Format(Now(), "ddmmyy") & Format(Now(), "hhmm") & ".pdf"
    DoCmd.SendObject acSendReport, "Posição de documentos do sinistro", "(*.pdf)", Me.emailcor, , "visto@gmail.com", "Sinistro Fiança: Ramo - " & Me.ramo.Value & "  Sinistro - " & Me.sinistro & "  Ano - " & Me.ano & " - " & Me.NOMESEGURADO, "Prezado Corretor" & vbNewLine & vbNewLine & "Posição da pré-análise dos documentos do sinistro" & vbNewLine & vbNewLine & "Sempre à disposição," & vbNewLine & vbNewLine & "Orientação da Cia: utilize os canais ""Corretor Online"" ou retorno direto neste e-mail para envio de documentos e dúvidas. Enviar por outros canais pode gerar duplicidade. " & vbNewLine & vbNewLine
    DoCmd.OutputTo acOutputReport, "solicitação de documentos do sinistro notas", acFormatTXT, "p:\" & Me.explorer & "\arquivo.TXT"
    DoCmd.OutputTo acOutputReport, "solicitação de documentos do sinistro notas para cartas", acFormatRTF, "p:\" & Me.explorer & "\carta.rtf"
    Application.FollowHyperlink origem & "p:\" & Me.explorer & "\arquivo.txt"
    End Sub
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    Registrado : 15/03/2013

    [Resolvido]Enviar por email com anexos access runtime Empty Re: [Resolvido]Enviar por email com anexos access runtime

    Mensagem  Alvaro Teixeira 18/2/2021, 12:29

    Olá Cesar,

    Altere a linha a vermelho por estas e teste:

    Código:
    Dim strFileTeste
    strFileTeste = "p:\" & Me.explorer & "\A-Posição do Processo - Documentos " & Format(Now(), "ddmmyy") & Format(Now(), "hhmm") & ".pdf"
    MsgBox strFileTeste, vbInformation, "Teste de caminho"
    DoCmd.OutputTo acOutputReport, "Posição de documentos do sinistro", acFormatPDF, strFileTeste

    Abraço

    henrique73 gosta desta mensagem

    avatar
    henrique73
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 29/05/2013

    [Resolvido]Enviar por email com anexos access runtime Empty Re: [Resolvido]Enviar por email com anexos access runtime

    Mensagem  henrique73 19/2/2021, 13:11

    O teste deu certo

    Abriu uma mensagem com o caminho e nome do arquivo.  Agora só falta anexar o documento a mensagem.

    Qual seria o comando para anexar um documento no access ?

    .Attachments.Add ta dando erro

    pensei que :
    .Attachments.Add "p:\" & Me.explorer & "\A-Posição do Processo - Documentos " & Format(Now(), "ddmmyy") & Format(Now(), "hhmm") & ".pdf"

    Poderia funcionar, mas da erro no attachments
    Abs


    Última edição por henrique73 em 10/4/2021, 21:21, editado 1 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    Registrado : 15/03/2013

    [Resolvido]Enviar por email com anexos access runtime Empty Re: [Resolvido]Enviar por email com anexos access runtime

    Mensagem  Alvaro Teixeira 19/2/2021, 14:22

    Olá Cesar,

    e gerou direitinho o PDF, já confirmou?

    Abraço
    avatar
    henrique73
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 29/05/2013

    [Resolvido]Enviar por email com anexos access runtime Empty O teste deu certo - gerou o arquivo exatamente com o nome que vem na mensagem

    Mensagem  henrique73 19/2/2021, 21:37

    Boa tarde

    Então ele gerou uma pergunta, após confirmar ele gerou o arquivo PDF, tudo direitinho. Mas não carregou.

    Fiz algumas manobras, mas não foi de jeito nenhum.

    Agora só falta conseguir carregar ele no e-mail.

    obrigado pela ajuda.

    Cesar
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    Registrado : 15/03/2013

    [Resolvido]Enviar por email com anexos access runtime Empty Re: [Resolvido]Enviar por email com anexos access runtime

    Mensagem  Alvaro Teixeira 21/2/2021, 01:27

    Olá Cesar,

    Veja aqui bem comentado, num excelente artigo do nosso colega Avelino Sampaio:
    usandoaccess.com.br/blog/enviar-email-automaticamente-clientes.asp?id=1#inicio

    Abraço

    henrique73 gosta desta mensagem

    avatar
    henrique73
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 29/05/2013

    [Resolvido]Enviar por email com anexos access runtime Empty Re: [Resolvido]Enviar por email com anexos access runtime

    Mensagem  henrique73 8/4/2021, 13:34

    Não quero enviar diretamente
    Preciso que abra o e-mail com o anexo carregado, como acontecia no Outlook.
    Algumas informações preciso digitar não padronizadas para cada caso.

    O código abaixo o access runtime não está indo na (maquina virtual) , mas no access completo da minha máquina local vai.

    é meio  frankenstein, mas só falta carregar o anexo.

    Código:
    Private Sub Comando1955_Click()
    On Error Resume Next
    Me.docec = "3"
    Me.z7 = "0"
    [rec process 2].Value = Now
    Refresh
    origemdt.Value = ""
    origem.Value = ""
    Me.[origemdt] = ""
    Me.origem = ""
    Refresh
    Me.explorer = _
    Me.sinistro & "-" & Me.ano
    Dim thund As String
       Dim Email As String
       Dim cc As String
       Dim bcc As String
       Dim subj As String
       Dim body As String

       Email = Me.emailcor
       cc = ""
       bcc = "vistoriasporto@gmail.com"
       subj = "Ramo - " & Me.ramo.Value & "  Sinistro - " & Me.sinistro & "  Ano - " & Me.ano & " - " & Me.NOMESEGURADO
       body = "Prezado Corretor" & vbNewLine & vbNewLine & "Posição da pré-análise dos documentos do sinistro" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & "Orientação da Cia: utilize os canais ""Corretor Online"" ou retorno direto neste e-mail para envio de documentos e dúvidas. Enviar por outros canais pode gerar duplicidade. " & vbNewLine & vbNewLine

       thund = "C:\Program Files\thunder\thunderbird.exe " & _
               "-compose " & """" & _
               "to='" & Email & "'," & _
               "cc='" & cc & "'," & _
               "bcc='" & bcc & "'," & _
               "subject='" & subj & "'," & _
               "body='" & body & "'" & """"

       Call Shell(thund, vbNormalFocus)
       SendKeys "^+{ENTER}", True
    DoCmd.SendObject acSendReport, "Posição de documentos do sinistro", "(*.pdf)", Me.emailcor, , "vistoriasportor@gmail.com", "Sinistro Fiança: Ramo - " & Me.ramo.Value & "  Sinistro - " & Me.sinistro & "  Ano - " & Me.ano & " - " & Me.NOMESEGURADO, "Prezado Corretor" & vbNewLine & vbNewLine & "Posição da pré-análise dos documentos do sinistro" & vbNewLine & vbNewLine & "Sempre à disposição," & vbNewLine & vbNewLine & "Orientação da Cia: utilize os canais ""Corretor Online"" ou retorno direto neste e-mail para envio de documentos e dúvidas. Enviar por outros canais pode gerar duplicidade. " & vbNewLine & vbNewLine
    DoCmd.OutputTo acOutputReport, "Posição de documentos do sinistro", acFormatPDF, "p:\" & Me.explorer & "\A-Posição do Processo - Documentos " & Format(Now(), "ddmmyy") & Format(Now(), "hhmm") & "-" & Me.[Contrato de locação] & ".pdf"
    DoCmd.OutputTo acOutputReport, "solicitação de documentos do sinistro notas", acFormatTXT, "p:\" & Me.explorer & "\arquivo.TXT"
    DoCmd.OutputTo acOutputReport, "solicitação de documentos do sinistro notas para cartas", acFormatRTF, "p:\" & Me.explorer & "\carta.rtf"
    Application.FollowHyperlink origem & "p:\" & Me.explorer & "\arquivo.txt"
    End Sub
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    Registrado : 15/03/2013

    [Resolvido]Enviar por email com anexos access runtime Empty Re: [Resolvido]Enviar por email com anexos access runtime

    Mensagem  Alvaro Teixeira 8/4/2021, 14:11

    Olá Cesar,

    Antes de tudo, o título do tópico só se coloca na mensagem nr. 1 depois o fórum repete automaticamente e não deve ser colocado nada, para facilitar as pesquisas.
    Por falar em pesquisas (Busca), já sabe como se faz?
    https://www.maximoaccess.com/t1115-busca-no-forum-search

    Uma vez que pretende no Outlook já existe muita matéria, veja:
    https://www.maximoaccess.com/t243-resolvidosenviar-email-pdf-pelo-outlook-e-pular-linhas-com-vbcrlf
    https://www.maximoaccess.com/t96-resolvidopdf-email-ajuda-jpaulo

    Vamos assumir que tem o Outtlok instalado e o Access em Runtime.

    Abraço
    avatar
    henrique73
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 29/05/2013

    [Resolvido]Enviar por email com anexos access runtime Empty Re: [Resolvido]Enviar por email com anexos access runtime

    Mensagem  henrique73 8/4/2021, 14:34

    Bom dia

    Outlook funciona também. Mas no servidor não tenho office ou outlook, uso o gratuito Thunderbird.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    Registrado : 15/03/2013

    [Resolvido]Enviar por email com anexos access runtime Empty Re: [Resolvido]Enviar por email com anexos access runtime

    Mensagem  Alvaro Teixeira 8/4/2021, 15:49

    Olá Cesar,

    O ideal seria usar via CDO tal como recomendei na mensagem nr. 2.
    Respondendo à sua questão via Thunderbird, veja se ajuda:
    devhut.net/2020/03/07/vba-send-e-mail-using-mozilla-thunderbird/

    Abraço
    avatar
    henrique73
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 29/05/2013

    [Resolvido]Enviar por email com anexos access runtime Empty Re: [Resolvido]Enviar por email com anexos access runtime

    Mensagem  henrique73 29/6/2021, 22:25

    contratei um especialista e ele resolveu
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    Registrado : 15/03/2013

    [Resolvido]Enviar por email com anexos access runtime Empty Re: [Resolvido]Enviar por email com anexos access runtime

    Mensagem  Alvaro Teixeira 2/7/2021, 15:55

    Olá Cesar,

    Ainda bem que resolveu.
    Será que consegue relatar a solução que o técnico aplicou?
    O fórum agradece.

    Abraço

    Conteúdo patrocinado


    [Resolvido]Enviar por email com anexos access runtime Empty Re: [Resolvido]Enviar por email com anexos access runtime

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/12/2024, 15:28