Tal vez haya creado varios borradores de correos electrónicos y espere reutilizarlos muchas veces. Si es así, ¿por qué no los guarda por lotes como plantillas de Outlook? Este artículo le enseñará a lograrlo de una vez a través de VBA.
De forma predeterminada, Outlook solo permite a los usuarios guardar un solo correo electrónico como plantilla a la vez. En otras palabras, no puede guardar varios borradores de correos electrónicos como plantillas de forma masiva. Como puede ver, cuando selecciona más de un correo y va a "Archivo"> "Guardar como", no puede encontrar el formato "Plantilla de Outlook" en la lista "Guardar como tipo", solo está disponible "Sólo texto". Pero, le presentaremos cómo realizarlo a granel a continuación.
Guardar por lotes varios borradores de correos electrónicos como plantillas de Outlook
- Desde el principio, active el editor de Outlook VBA.
- En la nueva ventana "Microsoft Visual Basic para Aplicaciones", copie y pegue el código VBA a continuación.
Sub SaveMultipleDraftsAsTemplates()
Dim objSelection As Outlook.Selection
Dim i As Long
Dim strTemplateFolder As String
Dim objMail As Outlook.MailItem
Dim strSubject As String
'Get all selected mails
Set objSelection = Outlook.Application.ActiveExplorer.Selection
If Not (objSelection Is Nothing) Then
'Get the default folder for saving Outlook Templates
strTemplateFolder = CStr(Environ("USERPROFILE")) & "\Documents\UserTemplates\"
'Save each mail as template
For i = objSelection.Count To 1 Step -1
If objSelection(i).Class = olMail Then
Set objMail = objSelection(i)
If objMail.Subject <> "" Then
'Remove unsupported characters
strSubject = objMail.Subject
strSubject = Replace(strSubject, "/", " ")
strSubject = Replace(strSubject, "\", " ")
strSubject = Replace(strSubject, ":", "")
strSubject = Replace(strSubject, "?", " ")
strSubject = Replace(strSubject, Chr(34), " ")
objMail.SaveAs strTemplateFolder & strSubject & ".oft", olTemplate
Else
objMail.SaveAs strTemplateFolder & "Template" & i & ".oft", olTemplate
End If
End If
Next
'Open the folder of Templates
Shell "Explorer.exe" & " " & strTemplateFolder, vbNormalFocus
End If
End Sub
- Después de eso, para mayor comodidad, se sugiere adjuntar esta macro a la barra de herramientas de acceso rápido (QAT). Acerca de los pasos detallados, puede leer "Cómo ejecutar código VBA en su Outlook"
- En última instancia, puede tomar una foto siguiendo las operaciones a continuación.
- Al principio, seleccione los borradores de correos electrónicos que se guardarán como plantillas.
- Luego, haga clic en el botón de macro en el QAT.
- Cuando finalice la macro, se mostrará la carpeta de Windows para guardar las plantillas de Outlook predeterminadas. Puede ver que las plantillas de los borradores de correos electrónicos seleccionados están allí.
La herramienta de reparación de la bandeja de entrada aún puede fallar
Cuando se trata de la herramienta de reparación interna de Outlook, Scanpst, un gran número de usuarios lo agradecerán. Sin lugar a dudas, esta utilidad es capaz de resolver la mayoría de los pequeños problemas en Outlook. Sin embargo, no es del todo perfecto. Todavía puede fallar y generar muchos errores. Por ejemplo, en el caso de graves Corrupción de Outlook, no puede reparar el archivo PST comprometido. En ese escenario, no tiene otra alternativa que utilizar una herramienta de terceros más poderosa y de punta, 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 recuperación de sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com