Enviar por e-mail apenas o Registro Atual.

Boa tarde, tenho um banco de dados com um formulário que possui vários registros.

Quero adicionar um Botão de Comando no Formulário, de forma que eu possa enviar apenas o registro (convertido em PDF) que estou visualizando; por email pelo Outlook...

Minhas tentativas:
Criei um Macro e Adicionei Enviar Objeto por e-mail, mas dessa forma ele envia todos os registros em PDF por e-mail.

Imagens:



https://img.photobucket.com/albums/v348/leozao/fom.png

Agradeço desde já.

Leu !
Tenta assim;
cria uma consulta da tabela acoplada ao teu formulário, nesta consulta filtra ela pelo teu formulario atual, deve ter um campo que seja único, autonumeração ou coisa assim, depois cria um botão que envia um e-mail com as informações desta consulta, pois como esta consulta é filtrada pelo formulário atual, sempre vai ter apenas as informações do formulario atual, desta forma está solucionado o problema de enviar todos os registros.

Espero ter ajudado

Roxo

Boa tarde Roxo,

dessa forma acredito que só vou imprimir os Campos Inclusos na Tabela.

Deve existir uma forma mais simples, porque o próprio Access tem a opção de converter o Formulário e Anexar em uma Mensagem do Outlook, no entanto, ele converte todos os registros do formulário. Preciso limitar essa conversão ao registro atual apenas.

Esse é o codigo que executa o que descrevi acima:

Option Compare Database

'------------------------------------------------------------
' email
'
'------------------------------------------------------------
Function email()
On Error GoTo email_Err

DoCmd.SendObject acForm, "Ordem de Fornecimento", "PDFFormat(*.pdf)", "", "", "", "", "", True, ""


email_Exit:
Exit Function

email_Err:
MsgBox Error$
Resume email_Exit

End Function


Agradeço desde já.

Leu
Deixa ver, o formulário que vc se refere, onde fica salvo as informações? não é em uma tabela? vc tem algum campo calculado ou coisa assim, estes campos que vc se refere que faltam estão em outra tabela, acoplado por uma caixa de combinação? quem vai receber este e-mail vai baixar direto em um sistema ou é só recebe as informações impressas?

Roxo

Deixa ver, o formulário que vc se refere, onde fica salvo as informações? não é em uma tabela? vc tem algum campo calculado ou coisa assim, estes campos que vc se refere que faltam estão em outra tabela, acoplado por uma caixa de combinação? quem vai receber este e-mail vai baixar direto em um sistema ou é só recebe as informações impressas?



As informações do topo ficam em uma tabela, as abaixo são apenas textos simples sem vínculos.

Quem vai receber apenas recebe a informação impressa.. Só isso.

Leu, aí esgotou meu conhecimento, espero que outro amigo consiga te ajudar, mas, estas informações da parte de baixo que vc disse não estar vinculadas a uma tabela, vc não precisa mais delas? não pensou em criar uma tabela e colocar um subformulario acoplado ao teu formulario principal, desta forma vai ficar todo o histórico para vc. E então poderia utilizar aquela função que te passei antes. Só uma idéia, não tenho objetivo de mudar o teu banco.
Vou ficar ligado para saber se vc conseguiu a resposta e aprender junto contigo

Valeu

Roxo

De uma olhada no site do avelino, lá tem um exemplo desse.
www.usandoaccess.com.br

Ainda não consegui.. Se alguém souber de algo...

vlw

' retirado do Avelino

Private Sub btEnviarPedido_Click()
Dim strArquivo As String
Dim strLocal As String
Dim objOut As Object
Dim objmail As Object
Dim objAnexo As Object
Dim strAssunto As String

If IsNull(Me!CodPedido) Then Exit Sub
Set objOut = CreateObject("Outlook.application")
Set objmail = objOut.CreateItem(olMailItem)
Set objAnexo = objmail.Attachments
strArquivo = "Pedido " & Replace(Me.MeuNumero, "/", "_") & " - " & Me!RazaoSocialCli & ".pdf"
strLocal = CurrentProject.Path & "\enviados\" & strArquivo
If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "Pedido_", acViewPreview, , "CodPedido = " & Me!CodPedido, acHidden ' aqui é que vc tem que mudar pra pegar somente o que vc quer mandar
DoCmd.OutputTo acOutputReport, "Pedido_", acFormatPDF, strLocal
DoCmd.Close acReport, "Pedido_"
objAnexo.Add strLocal, olByValue, 1
objmail.Display
objmail.To = Me.EmailFab
objmail.Subject = "Pedido da " & Me!FantasiaFab & " - Número " & Replace(Me.MeuNumero, "/", "_") & " - " & Me!RazaoSocialCli & ""
objmail.Body = "Segue em Anexo o Pedido." & Chr(13) _
& "Por favor, confirmar o recebimento." & Chr(13) _
& "Grato(a)"
Me.Enviado = True
Me.Refresh
Set objAnexo = Nothing
Set objmail = Nothing
Set objOut = Nothing
End Sub

Tambem estou com a mesma duvida, se puderes nos ajudar.

Também estou a seguir este tópico, estou com a mesma duvida.

up

Boa tarde amigos, reparei que estava a seguir este tópico, contudo já tenho a resposta com a solução deste problema.
Acho que já pode ser fechado, pois a solução está aqui:
https://www.maximoaccess.com/t29125-resolvidoe-mail-envio-de-registo-unico