[Resolvidos]Enviar 2 anexos no email pelo access

Olá moçada, segue abaixo meu código.

On Error Resume Next
Dim Origem As String, Caminho(4) As String, pula As String
Origem = GetPathPart
pula = Chr(10) & Chr(13)
Call InitializeOutlook
Set objNewMail = gOLApp.CreateItem(olMailItem)
With objNewMail
.Attachments.Add Origem & Me!txtNomeCliente & ".pdf", olByValue, 1
.Attachments.Add "c:\Sistema\CNPJ.doc"
.To = Me!txtemail
.HTMLBody = "Segue anexo nosso cadastro, favor confirmar o recebimento."
.Subject = "Envio do Cadastro" & "-" & Date

Esse código deu certo, mas quero que na parte:
.Attachments.Add "c:\Sistema\CNPJ.doc"

Ele pegue o anexo de meu campo [Anexo_CNPJ] que está anexado o arquivo CNPJ.doc, e não busque o caminho do arquivo, entendem? Seria + ou - assim

.Attachments.Add Origem & Me!txtNomeCliente & ".pdf", olByValue, 1
.Attachments.Add [Anexo_CNPJ]

só que assim não deu certo

Ola bom dia;

Se o seu campo já tiver todo o caminho do anexo:

.Attachments.Add (Me.Anexo_CNPJ)


Se o seu campo só tiver o nome do ficheiro, exemplo CNPJ.doc e esse ficheiro estiver junto ao banco:

Dim strAtt As String
strAtt = Application.CurrentProject.Path & "\" & Me.Anexo_CNPJ
.Attachments.Add (strAtt)

Olá Paulo, não deu certo? Sabes o que pode ser?
inclusive deixei só do seu jeito tirando o primeiro anexo para ver, mas não foi.

Quais são os dados que aparecem nessa caixa de texto Anexo_CNPJ ?

é um campo do tipo anexo, e aparece Anexo_CNPJ
o nome do arquivo é CNPJ.doc e esta na pasta do bd e esta anexo no campo Anexo_CNPJ
isso no modo estrutura, no modo formulario aparece o icone do Word

Amigão se você colocar um campo de nome Anexo_CNPJ e nesse campo você introduzir por exemplo: CNPJ.doc ae a instrução abaixo tem de funfar:

Dim strAtt As String
strAtt = Application.CurrentProject.Path & "\" & Me.Anexo_CNPJ
.Attachments.Add (strAtt)

Lamento, fiz exatamente como vc disse e nada, estranho, vou deixar do jeito que estava por enquanto, mas muito obrigado pela ajuda, qualquer novidade aviso, estou tentando aqui.

Cole esta função no VBA do seu form:

Public Function GetPathPart() As String

Dim db As DAO.Database
Dim strPath As String
Dim intCounter As Integer

Set db = CurrentDb
strPath = db.Name
db.Close
Set db = Nothing

For intCounter = Len(strPath) To 1 Step -1
If Mid$(strPath, intCounter, 1) = "\" Then
Exit For
End If
Next intCounter

GetPathPart = Left$(strPath, intCounter)

End Function


Agora faça como lhe passei acima, mas assim:

Dim strAtt As String
strAtt = GetPathPart & Me.Anexo_CNPJ
.Attachments.Add (strAtt)

Consegui de outro jeito, abraço a todos, Link abaixo.


http://maximoaccess.forumeiros.com/repositorio-de-exemplos-ms-access-f7/envia-email-com-2-anexos-t386.htm#2152