Página 1 de 1

Enviar linhas de registro no corpo do email

Enviado: 25 Out 2018, 02:51
por washazevedo
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

Re: Enviar linhas de registro no corpo do email

Enviado: 25 Out 2018, 07:06
por Avelino Sampaio
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