Hoje iremos demonstrar em como mudar o nome do remetente em um disparo de email com TMailMessage e TMailManager.

Muitas das vezes ao configurar um disparo de e-Mail, colocamos um endereço de e-Mail, por exemplo, automatico@empresa.com ou workflow@empresa.com.

Mas e se você quiser dar um “nickname” nesse e-Mail, para que ao chegar na caixa de entrada, chegue algo como “Empresa – Automático” ou até “Empresa – Não Responda”, como fazer?

Pois bem, na mensagem, no atributo cFrom, basta você alterar antes dele, colocando o nome entre aspas, então seria basicamente esse comando abaixo de exemplo:

//Busca o remetente da mensagem
Local cRemetente := AllTrim(GetMv("MV_RELFROM"))
 
// ... aciona aqui os comandos para montar o e-Mail
 
//Após instanciar a mensagem, muda o FROM para que tenha um nome
oMessage := TMailMessage():New()
oMessage:cFrom := '"Empresa - eMail Automatico" <' + cRemetente + '>'

Dica enviada pelo Bruno Comin ( LinkedIn ).

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheus