Cookies hjelper oss å levere våre tjenester. Ved å bruke våre tjenester, samtykker du til vår bruk av informasjonskapsler.
Tips: Andre språk er Google-oversatt. Du kan besøke English versjon av denne lenken.
Logg inn
x
or
x
x
Registrere
x

or

Hvordan sjekke mottakeradresser før du sender gjennom Outlook?

I noen tilfeller kan du gå glipp av å legge til noen viktige mottakere i Til, CC eller BCC-felt mens du sender e-post via Outlook. Her kan jeg introdusere en metode for å sjekke om de spesifikke e-postadressene er lagt til før du sender via Outlook.

Sjekk adressene før du sender med VBA-kode

Svar til Alle ekskluderer meg selv i Outlook

Når vi bruker Svar på alle funksjoner i Outlook, kan vi legge til våre kontoer i Til feltet også hvis e-postene du mottar inneholder to flere dine kontoer. I dette tilfellet vil du kanskje fjerne kontoene dine fra feltene Til og CC. Ktools for Outlook's Mine navn kan gjøre deg en tjeneste for å løse denne jobben raskt. Bare trenger ett klikk, alle myselft-kontoer i Outlook blir fjernet fra Til og CC-felt. Klikk for 45-dager gratis prøveversjon!
doc-svar utelukke konto
doc pil dowm

doc-svar ekskluderer konto 2
Kutools for Outlook: med dusinvis av praktiske Outlook-tillegg, gratis å prøve uten begrensning i 45-dager.

Sjekk adressene før du sender med VBA-kode

Her har jeg to koder som kan hjelpe deg med å løse denne jobben, du kan velge noen som du trenger.

1. Pressen Alt + F11 keys å aktivere Microsoft Visual Basic for Applications vinduet.

2. Dobbeltklikk ThisOutlookSession fra Project1 ruten for å åpne kodeditoren, kopier og lim inn under koden til editoren.

VBA: sjekk mottakeradresse i Til felt før du sender

Private Sub Application_ItemSend (ByVal Item Som Object, Avbryt Som Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Som Variant Dim xAddress Som String Dim xRecipient Som Mottaker Dim xPrompt Som String Dim xYesNo Som Integer Dim xDictionary As Scripting.Dictionary På Feil Fortsett Neste 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 Then If xDictionary.Exists (xRecipient.Address) Så xDictionary.Remove xRecipient.Address End Hvis Next Hvis xDictionary.Count = 0 Then Go To L1 For i = 0 til xDictionary.Count - 1 Hvis xAddress = "" Da xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) Slutt hvis neste 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å Avbryt = True L1: Sett xRecipient = Ingenting Sett xDictionary = Ingenting End Sub

doc sjekk mottakeradresse før du sender 1

I koden kan du endre ("example1@126.com", "example2@126.com", "example3@126.com") til de virkelige mottakere du trenger.

3. Så også i Microsoft Visual Basic for Applications vinduet klikker verktøy > Referanser. Sjekk Microsoft Scripting Runtime boksen i Referanser-Project1 dialogen.

doc sjekk mottakeradresse før du sender 2 doc pil høyre doc sjekk mottakeradresse før du sender 3

4. klikk OK og lagre koden.

Nå Hvis de angitte mottakere ikke vises i Til-felt mens du sender e-post, vil en dialog komme frem for å minne deg om å sende e-posten.
doc sjekk mottakeradresse før du sender 4

Med koden ovenfor kontrollerer du bare e-postadressene i Til feltet, hvis du vil sjekke inn Til, CC og BCC felt, du kan bruke under kode.

VBA: Kontroller mottakeradresse i Til / CC / BCC-felt før du sender

Private Sub Application_ItemSend (ByVal Item Som Objekt, Avbryt 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 Fortsett Neste Hvis Item. Klasse <> olMail Deretter avslutte delsett 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 Then Cancel = True End Hvis neste xRecipient End Sub

Med denne koden trenger du ikke å sjekke Microsoft Scripting Runtime boksen, bare lagre koden for å få effekt.



Kutools for Outlook

Mer enn 100 Avanserte funksjoner for Outlook 2010, 2013, 2016, 2019 og 365

skjermbildet kutools for Outlook liten for banner 201812

Flere funksjoner | Gratis nedlasting | Bare $ 39.00 for hundrevis av funksjoner

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.