Cookies hjælper os med at levere vores tjenester. Ved at bruge vores tjenester accepterer du vores brug af cookies.
Tip: Andre sprog er Google-oversat. Du kan besøge English version af dette link.
Log på
x
or
x
x
Tilmeld
x

or

Sådan kontrolleres modtageradresser inden du sender via Outlook?

I nogle gange kan du gå glip af at tilføje nogle vigtige modtagere til Til, CC eller BCC-felter, mens du sender e-mails via Outlook. Her kan jeg introducere en metode til at kontrollere, om de specifikke emailadresser er blevet tilføjet, før de sendes via Outlook.

Tjek adresserne inden afsendelse med VBA kode

Besvar alle udelukker mig selv i outlook

Når vi bruger Besvar alle funktioner i Outlook, kan vi også tilføje vores konti til Til feltet også, hvis de e-mails, du modtager, indeholder to flere dine konti. I dette tilfælde kan du fjerne dine konti fra Til- og CC-felterne. Ktools for Outlook's Mit navn er kan gøre dig en tjeneste til at løse dette job hurtigt. Brug kun ét klik, alle myselft-konti i Outlook vil blive fjernet fra Til og CC felter. Klik for 45-dages gratis prøveversion!
doc svar ekskluderer konto
doc pil dowm

doc svar ekskluderer konto 2
Kutools for Outlook: med snesevis af praktiske Outlook-tilføjelser, gratis at prøve uden begrænsning i 45 dage.

Tjek adresserne inden afsendelse med VBA kode

Her har jeg to koder, der kan hjælpe dig med at løse dette job, du kan vælge nogen som du har brug for.

1. Trykke Alt + F11 kkan aktivere Microsoft Visual Basic til applikationer vindue.

2. Dobbeltklik ThisOutlookSession fra Project1 rude for at åbne kodeditoren, kopiere og indsætte under kode til editor.

VBA: Kontroller modtageradressen i Til felt før afsendelse

Privat Sub Application_ItemSend (ByVal Item Som Object, Annuller Som Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Som Variant Dim xAddress Som String Dim xRecipient Som Modtager Dim xPrompt Som String Dim xYesNo Som Integer Dim xDictionary As Scripting.Dictionary På Fejl Genoptag Næste Set xDictionary = New Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") For i = LBound (xAddressArr) Til UBound (xAddressArr) xDictionary.Add xAddressArr ), True Next I For hver xRecipient In Item.Recipients Hvis xRecipient.Type = olTo Så hvis xDictionary.Exists (xRecipient.Address) Så xDictionary.Remove xRecipient.Address End Hvis Next Hvis xDictionary.Count = 0 Then GoTo L1 For i = 0 til xDictionary.Count - 1 Hvis xAddress = "" Så xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) Afslut hvis næste jeg xPrompt = "Du sender ikke dette til: "& xAddress &". Er du sikker på, at du vil sende Mail? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Hvis xYesNo = vbNo Så Cancel = True L1: Indstil xRecipient = Intet sæt xDictionary = Intet End Sub

doc check modtageradresse før du sender 1

I koden kan du ændre ("example1@126.com", "example2@126.com", "example3@126.com") til de rigtige modtagere, du har brug for.

3. Så også i Microsoft Visual Basic til applikationer vindue, skal du klikke på Værktøj > Referencer. Check Microsoft Scripting Runtime afkrydsningsfeltet i Referencer-Project1 dialogen.

doc check modtageradresse før du sender 2 doc pil højre doc check modtageradresse før du sender 3

4. klik OK og gem koden.

Nu Hvis de angivne modtagere ikke vises i Til-felt, mens du sender e-mails, vises en dialog for at minde dig om, om du vil sende e-mailen.
doc check modtageradresse før du sender 4

Med ovenstående kode kontrollerer den kun e-mailadresserne i Til felt, hvis du vil tjekke ind Til, CC og BCC felter, du kan bruge nedenstående kode.

VBA: Kontroller modtageradressen i Til / CC / BCC-felter inden afsendelse

Privat Sub Application_ItemSend (ByVal Item Som Object, Annuller Som Boolean) 'UpdatebyExtendoffice20180523 Dim xRecipients Som Outlook.Recipients Dim xRecipient Som Outlook.Recipient Dim xPos Som Integer Dim xYesNo Som Integer Dim xPrompt Som String Dim xAddress Som String On Error Genoptag Næste Hvis Item. Klasse <> olMail Afslut derefter Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" For hver xRecipient I xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Hvis xPos = 0 Then xPrompt = "Du sender dette til "& xAddress &". Er du sikker på, at du vil sende den? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") Hvis xYesNo = vbNo Så Cancel = True End Hvis Næste xRecipient End Sub

Med denne kode behøver du ikke at tjekke Microsoft Scripting Runtime afkrydsningsfeltet, skal du bare gemme koden for at få virkning.



Kutools til Outlook

Mere end 100 Avancerede funktioner til Outlook 2010, 2013, 2016, 2019 og 365

screen shot kutools for outlook lille for banner 201812

Flere funktioner | Gratis download | Kun $ 39.00 til hundredvis af funktioner

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.