[Resolvido]Botão de envio de email

Bom dia, o q estou fazendo de errado no codigo abaixo:
Msg de erro "não esta encontrando a tabela de entrada ou consulta", mas as tabelas estão lá.


Private Sub cmdEmail_Click()
Dim X As String
Dim rst As DAO.Recordset
Dim strDestinatarios
Dim strTitulo
Dim strCC
Dim strMensagemCorpoDoEmail
Dim strEnderecos As String
Dim stremail
Dim StrEnvio
Dim strCaminho As String
Dim strAnexo1 As String, strAnexo2 As String, strAnexo3 As String, ema As String, origem As String

'Atualiza formulario caso sejam alterados os dados
Me.Form.Refresh
Me.Recalc

Call InitializeOutlook
Set objNewMail = gOLApp.CreateItem(olMailItem)

If DLookup("[Endereço de Email]", "Contatos", Nz([Assigned To], 0)) = 0 Then
MsgBox "Não foi selecionado e-mail para o envio" & vbCrLf & _
"Cancelando a operação!", vbCritical, "Atenção"
Exit Sub
Else

If IsNull(Me.Local1.Value) = False Or Me.Local1.Value <> "" Then
strAnexo1 = Me.Local1.Value
Else
strAnexo1 = ""
End If

If IsNull(Me.Local2.Value) = False Or Me.Local2.Value <> "" Then
strAnexo2 = Me.Local2.Value
Else
strAnexo2 = ""
End If

If IsNull(Me.Local3.Value) = False Or Me.Local3.Value <> "" Then
strAnexo3 = Me.Local3.Value
Else
strAnexo3 = ""
End If


origem = GetPathPart
ema = "Endereço de Email"


strEnderecos = DLookup("[Endereço de Email]", "[Contatos]", Nz([Assigned To]))

Set rst = CurrentDb.OpenRecordset(strEnderecos)

Do Until rst.EOF
stremail = strDestinatarios & rst("Endereço de Email")
strDestinatarios = Left(stremail, Len(stremail)) & ";"


rst.MoveNext
Loop
StrEnvio = Left(strDestinatarios, Len(strDestinatarios) - 1)
[email] = strDestinatarios
strMensagemCorpoDoEmail = Me.Descrição.Value
strTitulo = Me.Title.Value
strCC = Me.cc.Value

With objNewMail
strDestinatarios = Left(strDestinatarios, Len(strDestinatarios) - 1)
stremail = strDestinatarios
strCC = strCC

.To = strDestinatarios
.subject = strTitulo
.body = strMensagemCorpoDoEmail
If IsNull(Me!Local1) = True And IsNull(Me!Local2) = True _
And IsNull(Me!Local3) = True Then

ElseIf IsNull(Me!Local1) = False And IsNull(Me!Local2) = True And IsNull(Me!Local3) = True Then
.Attachments.Add strAnexo1

ElseIf IsNull(Me!Local1) = False And IsNull(Me!Local2) = False And IsNull(Me!Local3) = True Then
.Attachments.Add strAnexo1
.Attachments.Add strAnexo2

ElseIf IsNull(Me!Local1) = False And IsNull(Me!Local2) = False And IsNull(Me!Local3) = False Then
.Attachments.Add strAnexo1
.Attachments.Add strAnexo2
.Attachments.Add strAnexo3
End If
.Display

End With

Call OcultaConfigEmail
rst.Close
Set rst = Nothing
End If

End Sub

Se puder me ajudar, preciso de uma resposta urgente.

Veja para qual linha do código depura...

Aparentemente o código está normal..
Veja isto e nos informe..

Cumprimentos

Ele depura para linha de comando abaixo:

Set rst = CurrentDb.OpenRecordset(strEnderecos)

Faltam as aspas

Set rst = CurrentDb.OpenRecordset("strEnderecos")

Estás a abrir uma variavel string?

Supostamente seria o nome da tabela.

Do estilo:

set rst = Currentdb.OpenRecordset("NomedaTabela")

O que eu queria era que quando eu colocasse o nome da pessoa no formulário que tem o nome do campo [Assigned To], e quando eu clicar no envio ele pesquize o email no campo [endereço de email] na tabela contatos, entendeu, somente um nome que estivesse digitado lá.

hummm, dá para disponibilizares parte da bd?

Assim poderiamos ver a melhor maneira de fazer isso.

Dá uma vista de olhos no site do Mestre Avelino e vê se é isso que andas à procura:

http://www.usandoaccess.com.br/tutoriais/tuto38.asp?id=1#inicio

Voce esta carregando um recordset e na variável esta o comando Dlookup... Creio que nao é por ai...

strEnderecos = DLookup("[Endereço de Email]", "[Contatos]", Nz([Assigned To]))


Tente assim


strEnderecos = ("SELECT * FROM Contatos")

Agora se quer que retorne um nome em especifico teria que adicionar a clausula WHERE na SQL.. para filtrar o registro com o valor do campo pretendido...

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