Enviar linhas de registro no corpo do email

Moderador: Avelino Sampaio

washazevedo
Mensagens: 4
Registrado em: 20 Out 2018, 03:40

Enviar linhas de registro no corpo do email

Mensagempor washazevedo » 25 Out 2018, 02:51

Olá Pessoal,

Estou tentando criar algo que eu consiga mandar um registro com tres campos de um sub formulário
Nome, telefone e email

Usando macro ele envia a informação como anexo porém gostaria de enviar no corpo do email.

Alguem sabe como fazer?

Obrigado

Disable adblock

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


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

Re: Enviar linhas de registro no corpo do email

Mensagempor Avelino Sampaio » 25 Out 2018, 07:06

Azevedo,

utilizando o Outlook como programa padrão de envio, experimente este código:

Código:
Sub fncEnvioEmail()
Dim objOut As Object
Dim objmail As Object

Set objOut = CreateObject("Outlook.application")
Set objmail = objOut.CreateItem(0)

With objmail
.Subject = assunto
.HTMLBody ="Olá, Fulano! <br><br>" & aqui vc introduz os campos desejados
.To = destinatario
.Send
End With
End sub


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


Voltar para “Access x Outlook”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante