Substituindo caracteres em mensagens enviadas por e-mail

By Sátiro

Encontrei esta relação de substituição de caracteres em um script e achei interessante. Provavelmente é para evitar mensagens truncadas, visto que estava em um script de envio de e-mail. Nunca cheguei a usar.

corpo_msg = explica
corpo_msg = replace(corpo_msg, Chr(13),”<BR>”)
corpo_msg = replace(corpo_msg, Chr(10),”")
corpo_msg = replace(corpo_msg, “á”, “á”)
corpo_msg = replace(corpo_msg, “é”, “é”)
corpo_msg = replace(corpo_msg, “í”, “í”)
corpo_msg = replace(corpo_msg, “ó”, “ó”)
corpo_msg = replace(corpo_msg, “ú”, “ú”)
corpo_msg = replace(corpo_msg, “Á”, “Á”)
corpo_msg = replace(corpo_msg, “É”, “É”)
corpo_msg = replace(corpo_msg, “Í”, “Í”)
corpo_msg = replace(corpo_msg, “Ó”, “Ó”)
corpo_msg = replace(corpo_msg, “Ú”, “Ú”)
corpo_msg = replace(corpo_msg, “Ô, “Ô)
corpo_msg = replace(corpo_msg, “Õ”, “Õ”)
corpo_msg = replace(corpo_msg, “ã”, “ã”)
corpo_msg = replace(corpo_msg, “õ”, “õ”)
corpo_msg = replace(corpo_msg, “ç”, “ç”)
corpo_msg = replace(corpo_msg, “Ç”, “Ç”)
corpo_msg = replace(corpo_msg, “à”, “à”)
corpo_msg = replace(corpo_msg, “ê”, “ê”)
corpo_msg = replace(corpo_msg, “â”, “â”)
corpo_msg = replace(corpo_msg,chr(34), “"”)
explica= corpo_msg

Deixe uma resposta