[Resolvido]Enviar por email com anexos access runtime

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

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

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

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

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

Olá Cesar,

e gerou direitinho o PDF, já confirmou?

Abraço

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

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

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

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

Bom dia

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

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

contratei um especialista e ele resolveu

Olá Cesar,

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

Abraço