A algunos usuarios les gustaría registrar automáticamente la información de los archivos adjuntos en cada correo electrónico entrante. Este artículo compartirá un breve momento para realizarlo con facilidad.
Si está acostumbrado a exportar la información adjunta de cada correo electrónico entrante de Outlook a un archivo de Excel, tal vez desee algunos enfoques que permitan que Outlook realice automáticamente este trabajo. Por lo tanto, puede deshacerse del seguimiento de archivos adjuntos manualmente. Afortunadamente, aunque Outlook no proporciona una función tan directa, aún puede lograrlo con un poco de programación. Ahora te enseñaremos paso a paso.
Exportación automática de la información adjunta de los correos electrónicos entrantes a Excel
- Primero, inicie la aplicación Outlook.
- Luego, vaya al editor de VBA a través de "Alt + F11".
- A continuación, copie el siguiente código VBA en un módulo.
Sub AutoExportAttachmentInfo(objMail As Outlook.MailItem)
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim nLastRow As Integer
Dim objAttachment As Outlook.Attachment
If objMail.Attachments.Count > 0 Then
'Change the path to the specific Excel file
strExcelFile = "E:\Attachment Info.xlsx"
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
'Export Attachment info to Excel
For Each objAttachment In objMail.Attachments
nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
With objExcelWorksheet
.Cells(nLastRow, 1) = objMail.Subject
.Cells(nLastRow, 2) = objMail.SenderEmailAddress
.Cells(nLastRow, 3) = objAttachment.FileName
.Cells(nLastRow, 4) = objMail.ReceivedTime
End With
Next
objExcelWorksheet.Columns("A:C").AutoFit
objExcelWorkbook.Close True
objExcelApp.Quit
End If
End Sub
- Después de eso, salga del editor de VBA.
- Posteriormente, cree una regla para ejecutar automáticamente esta macro en cada correo electrónico entrante.
- En primer lugar, vaya al menú "Archivo".
- Luego, haga clic en el botón "Administrar reglas y alertas".
- En el cuadro de diálogo "Reglas y alertas", haga clic en "Nueva regla".
- En el cuadro de diálogo "Asistente para reglas", seleccione "Aplicar regla a los mensajes que reciba" y haga clic en "Siguiente".
- A continuación, configure las condiciones de la regla según sus necesidades y presione "Siguiente".
- En el paso "Seleccionar acciones", seleccione "Ejecutar un script" y elija el script "AutoExportAttachmentInfo".
- Finalmente, siga los asistentes en pantalla para finalizar la configuración de reglas.
- A partir de ahora, cada vez que llegue un nuevo correo electrónico a su buzón, si tiene archivos adjuntos, Outlook exportará automáticamente la información del archivo adjunto al archivo de Excel predefinido.
Nunca descargue archivos adjuntos sospechosos
¿Alguna vez ha recibido correos electrónicos de remitentes desconocidos y que contienen archivos adjuntos? Por lo general, se sugiere no confiar fácilmente en dichos archivos adjuntos, ya que pueden estar con virus. Siempre que los descargue, sus datos de Outlook pueden estar infectados. En ese punto, necesitará arreglar Outlook archivo. Es cierto que es complicado a menos que recurra a una herramienta de reparación competente, como DataNumen Outlook Repair.
Introducción del autor:
Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo recuperar Sql Server y productos de software de reparación de Outlook. Para más información visite www.datanumen.com