Envio de e-mail pelo formulario

Boa tarde!

Amigos, estou tentando fazer uma aplicativo para ordem de serviço, mas gostaria que a solicitação fosse enviada por e-mail no fim do cadastro.Já vi algumas explicações dos prof. Avelino, só que o meu conhecimento em access é pequeno. Algum de vocês teria um link com video explicando como fazer ? desde já agradeço.

Grande abraço.

Olá, Almeidar.

Utilize o método DoCmd.SendObject.
Verifique no help do Access as regras para configuração dos parâmetros.

Abs.

Amigo, realize uma busca aqui no Fórum, pois existem inúmeros tópicos sobre o assunto. Varias formas com o mesmo objetivo.

Boa noite amigos!

 Agradeço a ajuda de todos.
Percebi vendo alguns videos que o access tem a opção de enviar o relatório por e-mail. Mas não tem a opção de pdf. Teria como acrescentar a extensão .PDF no access ?
 Não tenho noção de programação e devido a isso queria fazer alguma coisa faz simples. Precisava mandar uma ordem de serviço por e-mail.

Sem programação acho difícil... Eu desconheço.

Mas aqui no Fórum tem vários exemplos, onde vc gera o relatório/Ordem serviço, salva em PDF, anexa ele ao e-mail e envia...

Olá queridos,

Segue link para baixar sistema.

https://drive.google.com/open?id=0B-3RYkSYSCiPdmx4b01mQUVDaW8

Gera PDF e enviar e-mail com o anexo.

Abraço a todos.

Jomar Mattos.

Amigos boa noite.
Venho tentando gerar um relatório em pdf já a algum tempo devido a minha falta de conhecimento. Vento um aquivo do Avelino estou tentando sequir o mesmo, só que estou com o seguinte problema quando clico para gerar o pdf.

(o formato para qual você esta tentando enviar o objeto não esta disponivel)

Segue a linha do comando
Private Sub bt_exporta_Click()
Dim strarquivo As String
Dim strlocal As String
strarquico = "os" & ".pdf"
strlocal = CurrentProject.Path & "\enviado\" & strlocal
DoCmd.OutputTo acOutputReport, "Relatório1", acFormatPDF, strlocal (esta linha aqui fica em amarelho, podem me explicar porque)

Boa noite,

1.º não andes sempre a mudar o titulo das mensagens sempre que crias nova, torna-se confuso no forum.
2.º Se é nova duvida deves criar novo tópico e não adicionar ao existente.
3.º Ve um código que utilizo pode ser que ajude

Private Sub Comando109_Click()
Dim strArquivo As String
Dim strLocal As String
If Me.NewRecord Then Exit Sub
Dim bytVias, bytLoop As Byte

 bytVias = InputBox("Quantas vias deseja imprimir? ", "Impressão", 1)
 If bytVias <> "" And bytVias <= 6 Then
   For bytLoop = 1 To bytVias
     If bytLoop = 1 Then MsrVersao = "ORIGINAL"
     If bytLoop = 2 Then MsrVersao = "DUPLICADO"
     If bytLoop = 3 Then MsrVersao = "TRIPLICADO"
     If bytLoop = 4 Then MsrVersao = "QUADRUPLICADO"
     If bytLoop = 5 Then MsrVersao = "QUINTUPLICADO"
     If bytLoop = 6 Then MsrVersao = "SEXTUPLICADO"
DoCmd.Save
DoCmd.OpenReport "Guia de depósito_4", acViewPreview, , "[Index] = " & [Index]
DoCmd.Maximize
strArquivo = Replace(Me!Cliente, "/", "_") & "-" & Me![Index] & ".pdf"
strLocal = CurrentProject.Path & "\Valor descritivo\" & strArquivo
DoCmd.OutputTo acOutputReport, "Guia de depósito_4", acFormatPDF, strLocal
   DoCmd.PrintOut acPrintAll, , , acHigh
DoCmd.Close
Next
End If
Exit_Comando109_Click:
   Exit Sub

Err_Comando109_Click:
   MsgBox Err.Description
   Resume Exit_Comando109_Click
End Sub

-----------------------------------------------------------------------

Ve esta parte
strLocal = CurrentProject.Path & "\Valor descritivo\" & strArquivo

No teu deve ser

strlocal = CurrentProject.Path & "\enviado\" & strArquivo

Boa noite!
  Amigos, vendo as informações que o amigo Avelino deixou copiei as informações dele, só que na hora de fazer a o envio da minha ordem de serviço por email o relatório carregado não esta filtrando.E eu não entendi como ele foi filtrado nas informações do Avelino, não conheço muito de access. Esta aparecendo todas as solicitações da tabela movimentação, algum amigo poderia me ajudar com esse problema ?

Desde já agradeço, vou deixar o meu bd aqui caso algum amigo possa me ajudar.

Bom dia,

Se bem percebi estavas a tentar criar um relatório de um registro não guardado.
Coloquei no botão enviar o comando save e mais umas pequenas alterações no relatório. Espero ter ajudado

Abraço,