[resolvido] Envio registo atual em PDF por e-mail e valor preenchido automaticamente no assunto do e-mail

Moderador: Avelino Sampaio

afraimundo
Mensagens: 5
Registrado em: 12 Fev 2018, 15:02

[resolvido] Envio registo atual em PDF por e-mail e valor preenchido automaticamente no assunto do e-mail

Mensagempor afraimundo » 12 Fev 2018, 15:35

Boas,

Estava a tentar fazer uma macro que utilizasse DoCmd.SendObject para enviar o registo actual por e-mail através do Access em anexo. Isso eu já consegui.

No entanto necessitava de chegar mais longe e precisava que no assunto, além de um texto pré-formatado seguisse automaticamente o n.º do ID constante no campo da tabela, referente ao registo aberto.

É possível em VBA?

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1870
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Envio registo atual em PDF por e-mail e valor preenchido automaticamente no assunto do e-mail

Mensagempor Avelino Sampaio » 13 Fev 2018, 08:14

Afraimundo,

é possível em VBA. Algo assim em um botão do formulário:

Código:
Dim strPara$
Dim strAssunto$
Dim strMensagem$

strPara = "fulano@teste.com.br'
strAssunto = "Copia do contrato " & me!ID
strMensagem = "Olá" & vbnewLine & "Segue anexo copia do contrato de número " & me!ID"

Docmd.SendObject acSendQuery ,"qryTeste", acFormatPdf, strPara, , , strAssunto, strMensagem


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

afraimundo
Mensagens: 5
Registrado em: 12 Fev 2018, 15:02

Re: Envio registo atual em PDF por e-mail e valor preenchido automaticamente no assunto do e-mail

Mensagempor afraimundo » 14 Fev 2018, 11:59

Avelino,

Desde já obrigado pela ajuda

Já consegui adaptar o código e funciona, mas se eu fechar a janela do outlook sem enviar, gera o seguinte erro, é possível contornar isso? Envio erros em anexo

1.jpg

3.jpg
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

afraimundo
Mensagens: 5
Registrado em: 12 Fev 2018, 15:02

Re: Envio registo atual em PDF por e-mail e valor preenchido automaticamente no assunto do e-mail

Mensagempor afraimundo » 14 Fev 2018, 14:22

Já consegui,

Agora só queria dar uma linha de intervalo no paragrafo entre a primeira e a segunda linha.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1870
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Envio registo atual em PDF por e-mail e valor preenchido automaticamente no assunto do e-mail

Mensagempor Avelino Sampaio » 14 Fev 2018, 14:43

afraimundo,

o vbnewline pula de linha

...strMensagem = "Olá" & vbNewLine & vbNewLine & "Segue anexo copia do contrato de número 1020"

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Módulos VBA”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes