[Resolvido]Anexar arquivo no email

Tenho um código que utiliza alguns campos de um formulário do meu BD para criar um email padrão, porém nesse formulário tenho um campo de anexo. Gostaria que quando eu criar o email esse campo de anexo fosse carregado. Não estou conseguindo carregar o anexo.
Obrigado

Forneça mais detalhes sobre como está tentando realizar o processo. É via outlook ou cdo? Poste o código completo que fica mais fácil.

o código está em anexo.

Como o dado desse campo anexo está sendo exibido no campo?

Esse campo anexo é um campo de uma tabela defindo como anexo.
Ele é exibido como clipe de papel, onde você clica duas vezes e abre um gerenciador de anexo onde consigo adicionar mais anexos ou excluir.

E não funciona nem quando é apenas um anexo? Tente fazer o seguinte: coloque um campo texto e na origem dele coloque =NomeDoCampoAnexo para ver o que aparece lá.

Fiz isso e aparece o nº de quantitidade de anexos que eu adicionei.

Quando eu rodo o programa do jeito que enviei o código aparece a seguinte msg de erro: "erro em tempo de execução '438': O objeto não aceita esta propriedade ou método"

Tente algo assim:

Dim CAnexo As Long
Do
.AddAttachment Me.NomeCampoAnexos.FileName(CAnexo)
CAnexo = CAnexo + 1
Loop While CAnexo <= Me.NomeCampoAnexos.AttachmentCount

Uma dica importante: anexar arquivos ao bd, aumenta substancialmente o tamanho do mesmo. Porque não considera a possibilidade de trabalhar com arquivos vinculados?

Como eu trabalharia com arquivos vinculados?

Amigo, vamos por partes, como diria o meu amigo Jack Estripador

Conseguiu fazer anexar com o código acima? É importante para sabermos se dará certo, pois eu mesmo nunca trabalhei com esse controle Anexos.

fiz uma pequena mudança no código conforme abaixo:
Do
.Attachments.Add Me.Anexo.FileName(CAnexo)
CAnexo = CAnexo + 1
Loop While CAnexo <= Me.Anexo.AttachmentCount

Só que quando rodo da o seguinte erro: "erro tempo execução '92147024894(80070002)': Não é possível encontrar este arquivo. Verifique se o caminho e o nome do arquivo estão corretos."

E o Dim CAnexo As Integer? Está declarado acima desse aí?

Bem, imagens desvinculadas devem ficar na pasta do bd ou em uma subpasta dentro dele e pode ser chamada no formulário no evento "Ao carregar" por exemplo:

Me.NomeControleImagem.Picture = CurrentProject.Path & "\Imagens\" & Me.Código & ".jpg"

Essa seria uma forma. Tambem pode ser colocando o caminho da imagem na tabela. Caso elas fiquem todas na mesma pasta e todas tenham a mesma extensão, então pode usar o recurso acima. Para outros casos, outras adaptações.

está declarado sim, porém como as long como vc tinha postado. Tentei como as integer e continua aparecendo o mesmo erro.

não irei trabalhar somente com imagens, os anexos também poderão ser doc, xls, pdf...etc

Acredito que o mais prático então seria armazenar o caminho em uma tabela ou usar a caixa de diálogo Abrir arquivo para escolher os anexos na hora de enviar.

Gostei da sua idéia mas como eu faria esse armazenamento, para cada registro eu tenho que fazer esse armazenamento de um ou vários arquivos.
Obrigado

As imagens ficam em uma única pasta ou ficam espalhadas pelo hd? Como elas são nomeadas? Bom seria se fosse pelo código do registro. Para armazenar o caminho, uma vez que pode ter várias imagens para o mesmo arquivo, seria interessante você criar uma tabela de nome tblImagens por exemplo com os campos Código, CodRegistro e CaminhoImagem. O campo CodRegistro faria o relacionamento com a chave primária do registro a que a imagem pertence.

Só lembrando não são somente imagens, tenho arquivos em pdf, word, excel, etc. Bom estes arquivos ficam armazenados em uma pasta porém existem subpastas dividindo alguns assuntos. Mas se já me der o caminho para anexar na mesma pasta ou o caminho de como faço para selecionar onde o arquivo será armazenado já será de grande valia.

Vamos fazer o seguinte: caso ainda não tenha uma tabela para armazenar os caminhos, crie uma com o nome de tblAnexos, com os campos/tipos:

Código/Chave primária
CódigoRegistro/Número
CaminhoImagem/Texto
Outros que jugar necessário/Tipo necessário

Vincule o campo CódigoRegistro ao campo Chave primária da tabela principal.

Agora vamos supor que no seu formulário tenha um campo de nome txtCaminho para pegar esse caminho e salvar na tabela. Coloque um botão de nome btnCapturar na frente do campo txtCaminho ou aonde achar melhor. No evento "Ao clicar" do botão, coloque:

    Dim fDialog As Office.FileDialog
    Dim varFile As Variant, BuscaFoto As String
   
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

    With fDialog
        .AllowMultiSelect = False
        .Title = "Selecione um arquivo"
        .Filters.Clear
        .Filters.Add "Arquivos de imagem", "*.jpg;*.gif;*.bmp;*.jpeg;*.png"
        .Filters.Add "Arquivos de Banco de dados", "*.mdb;*.mde;*.accdb;*.accde"
        .Filters.Add "Arquivos pdf", "*.pdf"
        .Filters.Add "Arquivos de texto", "*.txt;*.doc;*.docx"
        .Filters.Add "Arquivos de planilhas", "*.xls;*.xlsx"
        .Filters.Add "Arquivos diversos", "*.*"

        If .Show = True Then
            For Each varFile In .SelectedItems
                Me.txtCaminho = varFile
            Next
       Else
            DoCmd.CancelEvent
        End If
    End With

Com isso, ao clicar no botão, será aberta a caixa de diálogo "Abrir arquivo". Escolha um arquivo e o caminho será impresso na caixa de texto txtCaminho e consequentemente na tabela tblAnexos.

Implementei o que você me passou e funcionou, porém não estão sendo gravados os registro na tblAnexos

Então seu formulário não tem um campo vinculado à tabela. Seu formulário é desvinculado?

Esse vinculado que falou eu fiz foi um relacionamento entre a tabela de meus registros e a tblAnexos.
Como vejo essa questão do formulário vinculado e do campo vinculado à tabela tblanexos?
Obrigado

Coloque um subformulário no formulário principal. Escolha a tabela de imagens como fonte desse subformulário e coloque esse subformulário no modo Formulário Contínuo e coloque um botão com o código que passei para escolher a imagem. O caminho dessa imagem deve ser inserido no campo do caminho no subformulário.

Criquio,

fiz o que vc falou, no subformulário aparece certinho pega o codigo de registro e o caminho porém a chave primária fica como: "(novo)" ou seja ele não registra, pois quando saio e entro de novo no formulário principal ele perde o caminho do anexo.

O que estou fazendo de errado?

Consegui resolver o problema.

Agora tenho que implentar como pegar esses arquivos para carregar automaticamente pro email.

Para enviar, siga mais ou menos isso, siga mais ou menos assim, imaginando que você tem, na tabela de anexos, o código do registro principal:

Dim Arq As Integer
For Arq = 1 To DCount("*", "NomeTabela", "Código=" & Me!Código)
.AddAttachment DLookup("Caminho", "NomeTabela", "Código=" & Arq)
Next L

Criquio,
Funcionou perfeitamente o seu código para 1 anexo, por exemplo seu eu anexar 5 anexos ele anexa 5 arquivos porém sempre o primeiro caminho que ele encontrou.

Vamos tentar com o Do:

Dim Arq As Integer
Arq = 1

Do
.AddAttachment DLookup("Caminho", "NomeTabela", "Código=" & Arq)
Arq = Arq + 1
Loop While Arq <= DMax("Código", "NomeTabela)

Criquio,

Se eu anexar os arquivos seguidamente sem problemas algum vai funcionar corretamente. Porém se eu anexar um arquivo e depois anexar outro sem estar na sequencia eu não consigo pegar os anexos corretos pois ele vai pegar na sequencia.
Não sei como arrumar o jeito de pegar somenete aqueles caminhos que tem certo CodigoRegistro.

Fale mais do CódigoRegistro por favor. Esse ítem é novo na discussão.

Deixa eu tentar te explicar,
Eu tenho um tabela com vários registro e dessa tabela eu clico em um registro e abro um formulário para que eu edite os meus registros e agora coloque meus anexos, para cada registro eu tenho uma numeração.
Então vamos supor que no registro de numero 1 eu anexe um arquivo que vai para a tabAnexo com codigo 1 e codigoRegistro 1 pq o nº do registro é 1, aí depois eu vou no registro 12 e anexo um arquivo que terá como código na tabAnexo 2 e CodigoRegistro 12, aí se eu voltar no registro 1 e anexar outro arquivo ele terá código 3 e codigoRegistro 3 na tabAnexo.
Quando implemento o seu codigo para buscar o anexo e colocar no email ele sabe que tem dois arquivos porém ele irá buscar o de código 1 e 2, e deveria buscar o de código 1 e 3.
Consegui esclarecer?

Acredito que ficou faltando, na minha função acima, colocar o código do registro principal. Vamos supor que esse código esteja no formulário principal, em um campo de nome Código:

Dim Arq As Integer
Arq = 1

Do
.AddAttachment DLookup("Caminho", "NomeTabela", "Código=" & Arq & " And CodigoRegistro=" & Me.Código & ")
Arq = Arq + 1
Loop While Arq <= DMax("Código", "NomeTabela)

Vamos ver se é isso.

Criquio,

Consegui fazer de outra maneira, criei um consulta que pega somente os caminhos daquele CodigoRegistro aí o código que o usei foi o seguinte:
DoCmd.OpenQuery "ConsEmail"
Arq = 1
Do
teste = DLookup("Caminho", "ConsEmail", "Código=" & Arq)
If Not IsNull(teste) Then
.Attachments.Add teste
End If
Arq = Arq + 1
Loop While Arq <= DMax("Código", "TabAnexo")
DoCmd.Close acQuery, "ConsEmail"