[Resolvido]Criar corpo (mensagem) de um e-mail a partir de um relatório

Olá
Pessoal
Boa noite a todos.

Estando num relatório, na barra de ferramentas (Visualização de Impressão) tenho a opção "Publicar com o Microsoft Office Word".

A pergunta é:
É possivel publicar diretamente no Outlook Express?

Sei que poderia gerar um relatório (Word, PDF, etc.) e anexá-lo ao e-mail. Mas o que preciso é que o relatório se torne a mensagem e não o anexo.

Agradeço a todos pela atenção

Luiz Gustavo

E se abrir o relatório, pegar os valores dos campos, enviar o email e fechar o relatório? O relatório pode até ser aberto em modo oculto. Ou você pode pegar direto da tabela. A não ser que queira que o email tenha a mesma estrutura do relatório. Aí pode usar html para formatar.

Olá
Criquio.
Como vai o amigo?

Meu conhecimento é pequeno. Isto dificulta minha compreensão da sua explicação.

Vou narrar o que venho fazendo:
1. Abro o relatório (Access);
2. Menu: Arquivo / Exportar;
3. Salvar como tipo: Rich Text Format;
4. Abro o documento (Word);
5. Copio o texto; Fecho o Word;
6. Abro o Outlook Express;
7. Colo o Texto;
8. Digito o endereço de e-mail e o Assunto. Envio

E quanto ao formato, preciso no e-mail de um formato igual ao relatório.
Anexei o relatório para facilitar a visualização

Grato pela atenção

Abraços

Luiz Gustavo

Olá

Vc pode usar o DoCmd.OutPutTo para gerar o HTML. Veja neste meu artigo como gerar o PDF. O critério é o mesmo para gerar HTML, bastando trocar para acFormatHTML

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

Neste meu outro artigo tem o código que lê o arquivo HTML e coloca no corpo do Email.


http://www.usandoaccess.com.br/dicas/dica8.asp?id=1#inicio

Bom estudo!

Seria muito simples fazer isso via CDO tambem. Pegar o texto fixo, colocar as linhas e acrescentar os dados dinâmicos e enviar o email. Fica a critério do amigo.

Olá
Amigos. Grato pela atenção.

Criquio. Desculpe-me sou iniciante. Não tenho idéia do que é CDO. Mas da forma que você colocou parece ser bem simples, você pode me orientar ou dar mais informações?

Avelino: Li seu artigo e achei muito bom e proveitoso. No entanto preciso do relatório no corpo do e-mail e não como anexo. E quanto ao Access? O meu é 2003.

Será que consigo no forum ou em outro lugar um pequeno BD de exemplo?

Muito obrigado

Luiz Gustavo

Se possível, coloque uma cópia do seu aplicativo para vermos o que podemos implementar nele. Informe tambem qual é o formulário aonde está a função de enviar o email.

Oi
Criquio

Meu Access é o 2003 e uso o Outlook Express 6.

Fiz um pequeno BD e estou postanto.
Para evitar o rotina atual, mudo o que for preciso no meu sistema. Basta você me mostrar o caminho.

O Botão "Enviar por e-mail" do Forms está sem código. Pois não sei como fazê-lo e nem sei se é por aí!

Abraços

O que você precisa é colocar todos os pedidos de um departamento? Se escolher Dpto Vendas, incluir todos os registros desse Depto?

Vide o Relatório: (Botão: Visualizar Relatório)

Quero que este relatório se transforme em um e-mail.

De: xxxx
Para: xxxx

Assunto:xxxxxx

Mensagem
xxxxxxxxxxxxx
xxxxxxxxxxxxxx

Se for possível, é claro.
Obrigado

Sim, eu vi isso. O relatório é filtrado por Compra ou Venda. Mas a questão é: sempre que escolher Compra, deverá retornar todos os registros de compras da tabela? Vamos supor que porventura futuramente ou no modelo definitivo tenha tambem os campos Data e IDCliente ou algo assim...

Ok
Entedi.
É assim.

Os dados do relatório vem de uma consulta simples (só uma tabela: Descargas); Os campos são:
>DescCod: numeração automática
>DescData: data
>DescNumInstr: número
>DescVlr: número
>Texto64: Fonte de Controle=[N1] & " " & [N2] & " " & [n3] & " " & [n4] & " " & [n5] & " " & [n6] & " " & [n7] & " " & [n8]
Obs.: onde N1 = DescNF-01 (campo da consulta), N2=DescNF-02, ..etc

Há também, na consulta, alguns filtros (campos do formulário):
>DescRegCallCenterBaixa <> nulo
>DescPedAutorFloraCond <> nulo
>DescPedAutorFloraBaixa = nulo

Se for preciso, reduzo meu bd original somente com o necessário e posto.

Valeu Criquio

Oi
Criquio.

Consegui reduzir meu BD.
Estou postando

Abraços

Deixa eu ver se entendi a lógica da coisa. Nesse subformulário que é aberto quando clica em "Autorizar Faturamento" tem os botões Incluir e Excluir. Quando eu clico no botão Incluir, a data atual vai para um campo que é gravado na tabela. Serão incluídos no relatório apenas essas linhas que tem a data gravada nesse campo, é isso mesmo?

exatamente.
É isto mesmo

Esse é um pouco mais demorado. Aguarde até que eu tenha um tempinho mais livre. Talvez hoje mais à noite ainda.

Valeu Amigão.
Nem sei como te agradecer!
Mas..., estando ao meu alcançe, estou a disposição.

Muito obrigado

Veja se é isso mesmo que precisa. Estou colocando aqui seu banco com as implementações. Ele usa a dll cdosys para enviar o email. Se, quando você clicar no botão "Enviar email" der erro, talvez seja porque você não tem essa dll. Estou enviando ela junto para você colocar na pasta System32 da pasta Windows caso precise.

Como estamos enviando um email tipo html, podemos utilizar as marcações dessa linguagem para formatar o corpo do email. Observe que eu utilizei várias tags html como:

Código:

<table></table> - para iniciar e fechar a tabela;
<tr></tr> - para iniciar e fechar as linhas da tabela;
<td></td> - para iniciar e fechar as colunas dentro da tabela;
<b></b> - para colocar o texto entre essas duas tags em negrito;
<i></i> - Idem <b></b> para colocar em itálico...

Os atributos que você deverá (ou não) alterar no código para servir aos seus propósitos devem ser os marcados em vermelho abaixo:

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "nomeusuario @ gmail . com"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha do email"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.From = "Nome de quem envia" 'quem envia

.Sender = "user @ provedor . com" 'email de quem envia

.Subject = "Envio de Email" 'Assunto

.To = "user @ provedor . com" 'para quem vai o email

Caso reste ainda dúvidas, aqui tem um tutorial completo sobre o uso do cdo.

Olá
Criquio
Já arrumei diversão para o fim de semana.

Farei as alterações, conforme sua orientação, e vou aplica-lo no meu BD.
Com certeza, visto minha inexperiência, vai ser uma grande desafio. Mas vou a luta!

Em breve te dou retorno.

Por enquanto.
Muito Obrigado

Oi Criquio

O e-mail está sendo enviado com sucesso!
Parabéns! Você é fera.
Obrigado. Sua atenção, como sempre, superou as expectavivas.

Quanto ao formato (mensagem / corpo e-mail)preciso de algumas alterações:
> diminuir tamanho das letras (fontes) do corpo do e-mail;
> alinhar a direnita os campos [DescNumInstr] e [DescVlr];
> alterar o campo [DescVlr] ´do formato R$0,00 para 0,00;
> e os campos [DescNF_01]....[DescNF_08] só aparecer se forem maior que zero;

Bom criquio, o problema do tópico foi resolvido, então a pergunta é: Posso por resolvido no tópico e continuar falando com você neste mesmo tópico?

Abraços

Luiz Gustavo

Creio que podemos deixar o tópico em aberto e continuar por aqui mesmo, uma vez que ainda não está totalmente resolvido.

Para resolver essas questões, pode continuar utilizando tags html. Observe que tem uma célula da tabela que está alinhada à direita. Eu utilizei align=right. É só repetir nas outras células, ou seja, nos outros < td... >

Alteração da fonte pode ser conseguida utilizando o atributo font do html:

Código:

<font size=2 color=blue face=verdana>Texto de exemplo</font>

Aplicando o exemplo acima aqui, ficaria assim: Texto de exemplo.

Mudando o tamanho de 2 para 4, a cor de blue para red e o tipo de fonte de verdana para arial: Texto de exemplo.

Valeu Amigão.

Estou aqui aprendendo e tentando fazer as alterações.
Logo logo peço socorro!

Forte Abraço
Bom final de semana.

E aí Criquio,
Como vai o amigo?

Venho trabalhando no tema e estou aprendendo bastante.
Li o tutorial sobre o uso do cdo e achei muito legal e muito útil.
Pesquizei aqui no forum sobre códigos html mas pouco achei.
Sabe onde posso procurar?

Abraços

Eu postei um curso básico que elaborei aqui. É preciso fazer um cadastro grátis e estar logado para ver o conteúdo.

Valeu.
Vou dar uma olhada.
Obrigado

Certo. Se procurar no Google por "tutorial html" tambem encontrarás muita coisa. Tambem no www.apostilando.com tem bastante material.

Legal Criquio.
Valeu.

É possível fazer uma rotina para acessar um site na internet (exige login = CNPJ e senha) e exportar os dados do relatório (os mesmos que exportamos para o corpo do outlook) para um formulário deste site?

Trata-se de NFe Paulistana: https://nfe.prefeitura.sp.gov.br/contribuinte/nota.aspx

Sim, pode ser. No momento não tenho nenhum exemplo, mas você pode fazer isso utilizando webbrowser ou um objeto HTTP ou ainda se tiver um xml para servir de conexão. Aqui tem uma discussão a respeito.

Ola Criquio
Muito obrigado por sua colaboração e dedicação ao tópico.

Vou marcá-lo como Resolvido.
Pois o objetivo foi alcançado.

Criquio.

É possível, introduzir um código que evite que o usuário saia do formulário em uso durante o processo de envio do e-mail? Ou talvez uma mensagem: "Aguarde! Enviando...."?

Criquio.
Respondendo a minha própria pergunta:
> É possivel sim.

Vide o exemplo "EmailCDO" do Mestre Criuqio.

Abraços

Caros amigos
É possível disponibilizar o exemplo com a solução? Estou com problema semelhante, enviar conteúdo de uma consulta no corpo de um e-mail. Creio que o exemplo solucionado por Crioquio resolverá
Obrigado