[Resolvido]Banco do Access Enviar email.

Usando uma bd enviar e-mail gostaria de usar ele para gravar dados nele, mas no campo anexo "list box", quando eu coloco ele acoplado ao campo da tabela ele não grava os nomes dos arquivos que selecionei, como faço para acoplar ele, segue bd para quem puder me ajudar.

não veio o BD amigo!

Segue anexo o arquivo.

Marcio

Caro Marcio.. Percebo que tem dois tópicos sobre o mesmo assunto.. escolha qual a solução vais utilizar, para não abrir tópicos desnecessários..


Bem para este tópico

1 - Crie e tabela tblAnexos, com um campo (Anexos) campo texto


e no código que adiciona os anexos na listBox...Adicione a linha em azul, assim a cada anexo que escolher ele será gravado na tblAnexos

Private Sub btProcurar_Click()
Dim strTitulo As String
Dim strfiltro As String '
Dim strCaminho As String 'grava o caminho completo do arquivo selecionado
Dim strNome As String 'grava o nome do aquivo selecionado
On Error Resume Next
strfiltro = "Arquivo (*.*)" & Chr(0) & "*.*"
strTitulo = "Selecione o arquivo..."
strCaminho = fncLocalizarArquivo("C:\", strTitulo, strfiltro)
strNome = (Right(strCaminho, Len(strCaminho) - InStrRev(strCaminho, "\")))
If strCaminho = "" Then Exit Sub
Me!txAnexo.AddItem strCaminho & ";" & strNome, 0 'Adiciona caminho e nome do aqruivo na caixa de listagem
CurrentDb.Execute "INSERT INTO tblAnexos(Anexos) VALUES('" & strCaminho & "')"
End Sub


Saudações

Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.