GUARDAR EL ARCHIVO EN UN SERVIDOR LINUX – PARA ESTE CASO EN SERVIDOR LUNAR001 CUENTA SOPORTE EN LA CARPETA «/home/soporte/correo»
Para guardar el archivo en tu servidor Linux lunar001 sin usar FTP, la mejor alternativa es utilizar el protocolo seguro SFTP / SCP (a través de SSH). Windows 10 incluye un cliente OpenSSH nativo, por lo que puedes realizar la transferencia de forma automática desde el mismo script de Outlook. [1, 2]
El método más eficiente y limpio para lograrlo consta de dos pasos:
1. Configurar SSH sin contraseña (Clave Pública)
Para que el script de Outlook no se detenga pidiendo la contraseña de la cuenta soporte cada vez que llegue un correo, debes configurar una relación de confianza entre tu Windows 10 y el servidor Linux:
- Abre la Terminal o PowerShell en Windows 10 (Presione tecla WINDOWS y escriba “powershell” ENTER) y ejecute los siguientes comandos :
|
1 |
ssh-keygen -t rsa -b 4096 |
Usa el código con precaución.
(Presiona Enter a todo para dejar la contraseña en blanco).
- Copia tu clave pública al servidor Linux ejecutando:
|
1 |
ssh-copy-id soporte@lunar001 |
Usa el código con precaución.
(Te pedirá la contraseña de la cuenta soporte por única vez).
SINO FUNIONA LA COPIA DE LA CLAVE AL SERVIDOR LINUX :
El comando ssh-copy-id es una herramienta exclusiva de Linux y no está disponible de forma nativa en la consola de Windows 10.
Para lograr el mismo resultado (copiar tu clave pública al servidor Linux para no usar contraseña), ejecuta este comando alternativo directamente en tu ventana de PowerShell:
|
1 |
cat $HOME\.ssh\id_rsa.pub | ssh soporte@lunar001 "mkdir -p ~/.ssh && cat >> ~/.ssh/authorized_keys && chmod 700 ~/.ssh && chmod 600 ~/.ssh/authorized_keys" |
Después estando en power Shell, probar el acceso con el siguiente comando :
|
1 |
ssh soporte@lunar001 |
Si el comando te conecta directamente a la terminal de Linux sin pedirte ninguna contraseña, la configuración ha quedado perfecta y el script de Outlook ya podrá enviar los archivos de texto de forma automática.
Outlook no permite exportar a .txt en una ruta específica de forma nativa mediante reglas estándar, por lo que se requiere un pequeño código en VBA (Visual Basic for Applications).
Sigue estos pasos detallados para configurarlo:
1. Habilitar las macros en Outlook
- Abre Outlook y ve a Archivo > Opciones > Centro de confianza.
- Haz clic en Configuración del Centro de confianza… y ve a Configuración de macros.
- Selecciona Habilitar todas las macros (necesario para que corra el script automático) y acepta.
2. Insertar el código VBA
- Presiona las teclas ALT + F11 dentro de Outlook para abrir el editor de VBA.
- En el menú superior, haz clic en Insertar > Módulo.
- Copia y pega el siguiente código en la ventana en blanco que aparece:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
Public Sub GuardarCorreoLinux(Item As Outlook.MailItem) Dim RutaLocal As String Dim NombreArchivo As String Dim ObjetoFSO As Object Dim ArchivoTexto As Object Dim ComandoSCP As String Dim ResultadoEjecucion As Object ' 1. Configuración de rutas y archivos locales temporales RutaLocal = "D:\correo\" NombreArchivo = "Incidente_" & Format(Now, "yyyymmdd_hhmmss") & "_" & Item.Size & ".txt" ' 2. Crear y escribir el archivo de texto en el disco D: Set ObjetoFSO = CreateObject("Scripting.FileSystemObject") Set ArchivoTexto = ObjetoFSO.CreateTextFile(RutaLocal & NombreArchivo, True, True) ArchivoTexto.WriteLine "De: " & Item.SenderName & " [" & Item.SenderEmailAddress & "]" ArchivoTexto.WriteLine "Fecha: " & Item.ReceivedTime ArchivoTexto.WriteLine "Asunto: " & Item.Subject ArchivoTexto.WriteLine "--------------------------------------------------" ArchivoTexto.WriteLine Item.Body ArchivoTexto.Close ' 3. Construir comando SCP para transferir a Linux de forma silenciosa ' Transfiere el archivo a soporte@lunar001:/home/soporte/correo ComandoSCP = "cmd.exe /c scp """ & RutaLocal & NombreArchivo & """ soporte@lunar001:/home/soporte/correo/" ' 4. Ejecutar el comando de transferencia en segundo plano Set ResultadoEjecucion = CreateObject("WScript.Shell") ResultadoEjecucion.Run ComandoSCP, 0, True ' 5. (Opcional) Borrar el archivo local de D:\correo tras enviarlo ' Si prefieres conservar una copia en D:, pon una comilla simple (') al inicio de la línea de abajo: ObjetoFSO.DeleteFile RutaLocal & NombreArchivo ' Limpiar objetos Set ArchivoTexto = Nothing Set ObjetoFSO = Nothing Set ResultadoEjecucion = Nothing End Sub |
- Asegúrate de tener creada la carpeta llamada correo dentro de tu disco D: (D:\correo).
- Guarda los cambios presionando Ctrl + S y cierra la ventana del editor de VBA.
3. Crear la regla automática
- En la bandeja de entrada de Outlook, ve a la pestaña Inicio > Reglas > Administrar reglas y alertas.
- Haz clic en Nueva regla.
- Selecciona Aplicar regla a los mensajes que reciba y avanza a Siguiente.
- Configura las condiciones según la glosa de tu imagen :
- Haz clic en Siguiente.
- En las acciones, marca la casilla ejecutar un script.
- En la parte inferior, haz clic en el enlace azul que dice «un script», selecciona GuardarCorreoTexto y acepta.
- Finaliza el asistente asignándole un nombre a la regla y asegurándote de que esté activada.
A partir de este momento, cada vez que llegue un correo que coincida con ese remitente y asunto, se creará un archivo .txt de forma invisible y automática en tu carpeta seleccionada.
CUANDO NO APARECE “ejecutar script” POR DFECTO. (Razones de seguridad)
Para que vuelva a aparecer la casilla, debes activar un permiso en el Registro de Windows 10 siguiendo estos pasos:
1. Abrir el Editor del Registro
- Presiona las teclas Windows + R en tu teclado para abrir la ventana «Ejecutar».
- Escribe regedit y presiona Enter (si te pide permisos de administrador, haz clic en Sí).
2. Buscar la ruta de Outlook
Dependiendo de la versión de Office que tengas instalada, navega en la columna de la izquierda desplegando las carpetas hasta encontrar la siguiente ruta:
- Si tienes Office 365, 2019 o 2016:
HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Security - Si tienes Office 2013:
HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Outlook\Security
3. Crear el valor de activación
- Haz clic derecho sobre la carpeta Security en la columna izquierda.
- Selecciona Nuevo > Valor de DWORD (32 bits).
- Asígnale exactamente este nombre: EnableUnsafeClientMailRules y presiona Enter.
- Haz doble clic sobre ese nuevo valor que acabas de crear.
- En el campo «Información del valor», cambia el 0 por un 1.
- Haz clic en Aceptar
- Reiniciar OUTLOOK.
3.Crear Regla de Outlook
- Ve a Inicio > Reglas > Administrar reglas y alertas.
- Ingresa REGLA según tus criterios.
- En la sección de acciones, cambia el script asociado de GuardarCorreoTexto al nuevo script llamado GuardarCorreoLinux.
A partir de ahora, cuando llegue el correo, Outlook generará el archivo de texto en tu disco D:\, lo subirá inmediatamente a /home/soporte/correo en el servidor lunar001 a través de SSH y luego eliminará el archivo temporal de tu computadora sin interrumpir tu trabajo.