[Resolvido]Cópia Bd para o Outlook

Bom dia companheiros!
Estou necessitando da ajuda dos senhores!
Há como, do próprio banco de dados, em um form através do click no botão,
fazer uma cópia do (Bd) e enviar para o (Outlook)?
Para enviar esta cópia por e-mail?

Porque o relatório por exemplo conseguimos enviar, através deste código,
que se não me falha a memória é do JPaulo.

CÓDIGO:

Private Sub SeuBotão_Click()
On Error GoTo btnerro
DoCmd.SendObject acReport, "Relatório Geração Anual", acFormatPDF, "lupercio_azarias@hotmail.com", "", "", "Relatório de Geração ", "Lupércio...", True, ""

btnerro:
If Err.Number = 2501 Then
MsgBox "Montagem de Email Cancelada!", 16, "Alerta"
Exit Sub
End If
End Sub

Antecipadamente obrigado!

Voce deseja mandat o sistema Lupércio, o proprio sistema que esta aberto? ou o Back End?

Cumprimentos.

Boas Piloto, desejo mandar o próprio sistema! O banco inteiro se haver como!

Entao... tem no repositorio de codigos, codigo do JP para backup, e no repositorio de exemplos um exemplo de envio para outlook da para adptar... de uma pesquisada.



Cumprimentos.

Boas Piloto já pesquisei e uso o código do JPaulo:
On Error Resume Next
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("F:\BACKUP PROGRAMA GERAÇÃO MARCOL") Then ' verifica se já existe a pasta
Else
MkDir "E:\BACKUP PROGRAMA GERAÇÃO MARCOL" ' se não existir cria
End If
Dim CopiaSegura As Object
Dim Caminho As String
Dim CopiaBancoTabelas As Object
Dim CaminhoTabelas As String
Caminho = "E:\BACKUP PROGRAMA GERAÇÃO MARCOL\PROGRAMA GERAÇÃO PCH MARCOL" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.path & "\BD - Programa Marcol.accdb", Caminho & Format(Now, " - dd-mm-yyyy") & ".accdb"



Não consegui adaptar, pode me ajudar por favor!

Aguardo ajuda de todos!

Pesquisou o exemplo do e-mail?

de uma olhadinha ai e me avise do link... apesar de ser meu eu nao to achando...

ja to vendo o backup aqui

Abraços

Obrigado por estar me ajudando!

O Backup já resolvido, amanha vamos ao OutLook.

Boa noite.

Ok Piloto obrigado de novo!

Ajude-me a encontrar o exemplo de minha autoria do OutLock

Abraços

Boas Piloto, será que é este?

http://maximoaccess.forumeiros.com/t3189-envio-de-e-mail-com-anexos-usando-form-de-envio-atraves-do-access

Obrigado Avelino! Abraço amigo!

Eu pensei que somente eu Madruguei hoje....

Exato lupércio, veja se consegue adaptar utilizando o exemplo ou as dicas do tutorial do nosso Maestro Avelino...

Qualquer coisa apite.

Bom dia aos Amigos.

Cumprimentos.

Bom dia Piloto, um bom domingo para todos! Fiquem com Deus! Abraço!

Pesso ajuda não consegui, Piloto!

Quero anexar o bd no outlook de com o próprio bd, como faço no relatório!

Encerro o tópico e obrigado a todos.

Opa Lupercio, não havia visto sua mensagem, hoje passei as voltas com medico fazendo curativos na cirurgia e não tive muito tempo de estar aqui.

Resolveu ou ainda não?

Cumprimentos.

Boas Piloto
Na verdade não consegui mas encerrei o tópico.

Vc fez cirurgia, amigo?

Está tudo bem contigo?

Uma cirurgia de alongamento na perna, devido a uma diferença que ficou quando sofri um acidente de avião... Estou com um alongador na perna, ficarei com este trambolho por uns 6 meses pra aumentar uns 5 cm....

Vamos la...

Amanha verei isto pra ti. Pode ser?

Cumprimentos.

O Piloto te desejo melhoras, e que Deus o abençoe e vai dar tudo certo!
Meus respeitos!
Abraço!

Boas lupercio, eis...

Este exemplo e um form completo de envio, apesar de ser pelo OutLook, ele o abre no modo Hiden (Oculto)
Da para anexar 3 arquivos.

1- TblArquivosBackup (esta tabela ao clicar no botão Anexos, cria a copia e abre a pasta para selecionar o arquivo, e grava nesta tabela a data e o nome do arquivo de backup criado. Se for inserir mais um anexo se existir algum arquivo de backup com a data de criação igual a data atual, nao executa o codigo de criar um novo Backup)

Teste ai e veja se adapta a sua necessidade, da tambem para abrir o outlook normal

https://dl.dropbox.com/u/26441349/E_mail_Backup.rar

Cumprimentos.

Estive ausente resolvendo umas coisas, vou testar aqui amigo, e obrigado depois retorno, ótimo domingo!

Boas amigo Piloto, certinho como eu quero, abraços, e tópico encerrado!

O Fórum agradece o Retorno.