Cómo enviar correos electrónicos de texto sin formato solo a aquellos en un dominio específico a través de Outlook VBA

A algunos usuarios les gustaría enviar correos electrónicos de texto sin formato solo a los destinatarios cuyas direcciones de correo electrónico se encuentran en un dominio específico. Este artículo presentará un método inteligente para obtenerlo.

En mi artículo anterior "Cómo enviar siempre correos electrónicos de Outlook en formato de texto sin formato para contactos específicos”, Puede obtener 2 métodos para enviar correos electrónicos de texto sin formato solo a contactos específicos. Si desea enviar dichos correos electrónicos a todos los contactos en un dominio de correo específico, usar las 2 formas en ese artículo será un poco estúpido y problemático. De ahí que aquí os compartamos otra forma, mucho más eficaz.

Envíe correos electrónicos de texto sin formato solo a aquellos en un dominio específico

1. En primer lugar, debe iniciar su aplicación Outlook.
2. Luego, debe presionar los botones de tecla "Alt + F11" en la pantalla principal de Outlook.
3. A continuación, aparecerá la ventana "Microsoft Visual Basic para aplicaciones". En él, debe abrir el proyecto "ThisOutlookSession".
4. Posteriormente, copie y pegue el siguiente código VBA en este proyecto.

'Occurs when sending an Outlook email
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.recipient
    Dim strAddress, strDomain As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       For Each objRecipient In objMail.Recipients
           'Get the recipient's email domain
           strAddress = objRecipient.Address
           strDomain = Right(strAddress, Len(strAddress) - InStr(strAddress, "@"))
 
           'If the domain is the specific one
           'Change the "datanumen.com" as per your needs
           If strDomain = "datanumen.com" Then
              'Convert the email format to plain text
              objMail.BodyFormat = olFormatPlain
              objMail.Save
              Exit For
           End If
      Next
    End If
End Sub

5. Después de eso, debes firmar esta macro. Haga clic en "Herramientas"> "Firma digital" y siga el asistente en pantalla para completarlo.
6. Luego, sal de la ventana actual. Luego cambie a la pestaña "Desarrollador" y toque el botón "Seguridad de macros". En el nuevo cuadro de diálogo emergente, debe cambiar la configuración para habilitar macros firmadas digitalmente.
7. Finalmente, puedes tomar una foto. Cree y redacte un correo electrónico para un destinatario en un dominio de correo electrónico específico. Y presione el botón "Enviar" para enviarlo. En este proceso, Outlook cambiará automáticamente el formato del correo electrónico a Texto sin formato.

Restaurar archivos corruptos de Outlook

Outlook es vulnerable a infecciones de virus, ataques de malware, sobrecargas de energía, etc. Por lo tanto, deberíamos aprender algunos consejos para restaurar los datos de Outlook después de la corrupción. Al principio, debe verificar sus copias de seguridad. Si la copia de seguridad es demasiado antigua o no se puede restaurar, puede utilizar la herramienta incorporada: Scanpst.exe. Por supuesto, el herramienta de reparación de la bandeja de entrada no siempre es eficaz. Por lo tanto, es mejor que prepare una herramienta externa confiable y convincente, como DataNumen Outlook Repair. Es muy recomendable debido a su alta tasa de recuperación.

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 sql dañado y productos de software de reparación de Outlook. Para más información visite www.datanumen.com