Saludos:
Intento compartir este script que he diseñado para quitar el problema de tener que hacer más de un archivo de texto al intentar hacer uso por ejemplo de frases multilÃÂneas al final de nuestros correos.
Poco permite llamar un archivo pero no reconoce sus saltos de lÃÂneas. Para poder poner una frase de más de una lÃÂnea, recomiendan usar más de un archivo (en este forum lo explican). Sin embargo, con el siguiente script, no hay necesidad de esto, solo hay que definir una palabra clave (en este caso usaremos $$$MiSaltoDeLinea$$$) la cual reemplazaremos mediante el código al ser enviado el mensaje, por lo tanto, este script debe incluirse en los filtros Outgoing (Pre-Sent).
Es válido tanto para Mensajes Planos como con Estilo.
Por ejemplo, creamos un archivo llamado frases.txt con las siguientes 2 lÃÂneas:
"La verdad es totalmente interior. No hay que buscarla fuera de nosotros ni querer realizarla luchando con violencia con enemigos exteriores"$$$MiSaltoDeLinea$$$Mahatma Gandhi
"La violencia es el miedo a los ideales de los demás"$$$MiSaltoDeLinea$$$Mahatma Gandhi
Luego podemos tanto en Templates o Signatures agregar:
%random%:"frases.txt"
(frases.txt asumimos que está en el mismo directorio que Poco.exe)
Esto mostrará en cada nuevo mensaje al final una de las lÃÂneas del archivo frases.txt
Se podrá observar que no hay cambios, es decir, mientras estemos escribiendo el texto, veremos que todavÃÂa se muestra la palabra clave $$$MiSaltoDeLinea$$$, es porque precÃÂsamente será al ser enviado el mensaje cuando haremos la sustitución, por lo que una vez enviado, ya en nuestra carpeta Sent aparecerá totalmente como deseamos.
Script (yo lo he llamado "Reemplazar Frases.poc")--------------------------
ReadRawBody $a %message
StringPos #posi1 "$$$MiSaltoDeLinea$$$" $a
if #posi1 = 0 then Sale
Set $b " "
AppendBody $b " "
ReadHeader $Estilo "Content-Type:" %message
if "text/html" = $Estilo then Rico
AppendBody $b " "
GoTo Sigue
:Rico
AppendBody $b "<br>"
:Sigue
InsertString $a #posi1 $b
SubStrings $a "$$$MiSaltoDeLinea$$$"
AssignBody %message $a
:Sale
Fin Script ------------------------------
No olviden agregarlo como 1ro en la lista de filtros Outgoing (Pre-Sent)
Espero que les resuelva este script, yo lo disfruto mucho..
Les agradecerÃÂa que me dieran su opinión, como nuevos problemas para tratar de solucionarlos. Trataremos de compartir todo lo que tengamos.
Sapiem :wink:
~ Removed email address to prevent harvesting.
Instead use the PM feature ... Eric ~