Hoe u e-mails met platte tekst alleen naar degenen in een specifiek domein verzendt via Outlook VBA

Outlook-oplossingen 29 september 2025

Sommige gebruikers willen e-mails met platte tekst alleen verzenden naar de ontvangers waarvan het e-mailadres zich in een specifiek domein bevindt. Dit artikel introduceert een slimme methode om het te krijgen.

In mijn vorige artikel "Hoe u Outlook-e-mails altijd in tekst zonder opmaak kunt verzenden voor specifieke contactpersonen”, Kunt u twee benaderingen krijgen om e-mails met platte tekst alleen naar specifieke contacten te sturen. Als je dergelijke e-mails naar alle contacten in een specifiek maildomein wilt sturen, zal het een beetje dom en lastig zijn om de 2 manieren in dat artikel te gebruiken. Daarom zullen we u hier een andere manier delen, die veel effectiever is.

Stuur alleen e-mails met platte tekst naar degenen in een specifiek domein via Outlook VBA

Stuur alleen e-mails met platte tekst naar personen in een specifiek domein

  1. Allereerst moet u uw Outlook-applicatie starten.
  2. Vervolgens moet u op de toets "Alt + F11" drukken in het hoofdscherm van Outlook.
  3. Vervolgens verschijnt het venster "Microsoft Visual Basic for Applications". Daarin zou u het "ThisOutlookSession" -project moeten openen.
  4. Kopieer en plak vervolgens de volgende VBA-code in dit project.
'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

VBA-code - stuur e-mails met platte tekst alleen naar degenen in een specifiek domein

  1. Daarna moet u deze macro ondertekenen. Klik op "Extra"> "Digitale handtekening" en volg de wizard op het scherm om deze te voltooien.
  2. Verlaat later het huidige venster. Schakel vervolgens over naar het tabblad "Ontwikkelaar" en tik op de knop "Macrobeveiliging". In het nieuwe pop-upvenster moet u de instellingen wijzigen om digitaal ondertekende macro's in te schakelen.
  3. Eindelijk kun je een foto maken. Maak en stel een e-mail op voor één ontvanger in een specifiek e-maildomein. En druk op de knop "Verzenden" om het te verzenden. Tijdens dit proces zal Outlook het e-mailformaat automatisch wijzigen in platte tekst.

Herstel Corrupte Outlook-bestanden

Outlook is kwetsbaar voor virusinfecties, malware-aanvallen, stroompieken enzovoort. Daarom moeten we enkele tips leren om Outlook-gegevens na corruptie te herstellen. Controleer eerst uw back-ups. Als de back-up te oud is of niet kan worden hersteld, kunt u de ingebouwde tool gebruiken - Scanpst.exe. Natuurlijk is de inbox reparatieprogramma is niet altijd effectief. U kunt dus beter een betrouwbare en overtuigende externe tool voorbereiden, zoals DataNumen Outlook Repair​ Het wordt sterk aanbevolen vanwege het hoge herstelpercentage.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder beschadigde sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.