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

[afraimundo]

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?

[Avelino Sampaio]

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

[afraimundo]

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

[afraimundo]

Já consegui,

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

[Avelino Sampaio]

afraimundo,

o vbnewline pula de linha

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

Aguardamos