Pliki cookie pomagają nam dostarczać nasze usługi. Korzystając z naszych usług, zgadzasz się na nasze pomocą plików cookie.
Wskazówka: inne języki są tłumaczone przez Google. Możesz odwiedzić English wersja tego linku.
Zaloguj Się
x
or
x
x
Zarejestruj
x

or

Jak sprawdzić adresy odbiorców przed wysłaniem przez Outlooka?

W niektórych przypadkach możesz przegapić dodawanie ważnych odbiorców do pól To, CC lub BCC podczas wysyłania wiadomości e-mail za pośrednictwem Outlooka. Tutaj mogę wprowadzić metodę sprawdzania, czy określone adresy e-mail zostały dodane przed wysłaniem przez Outlooka.

Sprawdź adresy przed wysłaniem z kodem VBA

Odpowiedz wszystkim wykluczaj mnie w programie outlook

Kiedy używamy funkcji Odpowiedz wszystkim w Outlooku, możemy dodać nasze konta do pola Do, jeśli e-maile, które otrzymujesz, zawierają jeszcze dwa twoje konta. W takim przypadku możesz usunąć swoje konta z pól Do i DW. Ktools dla Outlooka's Mam na imię mogę zrobić ci przysługę szybko rozwiązując tę ​​pracę. Wystarczy jedno kliknięcie, wszystkie konta myselft w Outlooku zostaną usunięte z pól Do i DW. Kliknij na bezpłatny okres próbny 45!
doc odpowiedz wyklucz konto
doc arrow dowm

doc odpowiedź wyklucz konto 2
Kutools dla programu Outlook: dzięki dziesiątkom poręcznych dodatków do Outlooka możesz wypróbować bez ograniczeń w 45 dniach.

Sprawdź adresy przed wysłaniem z kodem VBA

Tutaj mam dwa kody, które mogą pomóc w rozwiązaniu tej pracy, możesz wybrać dowolną osobę.

1. naciśnij Alt + F11 keys, aby włączyć Microsoft Visual Basic for Applications okno.

2. Podwójne kliknięcie ThisOutlookSession od Project1 okienko do otwarcia edytora kodu, skopiuj i wklej poniżej kodu do edytora.

VBA: sprawdź adres odbiorcy w polu Do przed wysłaniem

Prywatna Sub Application_ItemSend (Element ByVal jako obiekt, Anuluj jako Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () jako wariant Dim Dim xAddress jako String Dim xRecient jako odbiorca Dim xPrompt jako ciąg Dim xYesNo jako Integer Dim xDictionary jako Scripting.Dictionary On Error Resume Next Set xDictionary = Nowe Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Dla i = LBound (xAddressArr) To UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Next i dla każdego xRecient w Item.RecientsPress Jeśli xRecipient.Type = olTo Następnie Jeśli xDictionary.Exists (xRecipient.Address) Następnie xDictionary.Remove xRecipient.Address Koniec, jeśli Dalej Jeśli xDictionary.Count = 0 Następnie GoTo L1 For i = 0 Do xDictionary.Count - 1 Jeśli xAddress = "" Następnie xAddress = xDictionary.Keys (i) Else xAddress = xAdres + ";" i xDictionary.Keys (i) Koniec, jeśli Dalej i xPrompt = "Nie wysyłasz tego do: "& xAddress &". Czy na pewno chcesz wysłać wiadomość? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Jeśli xYesNo = vbNo Następnie Anuluj = Prawdziwe L1: Ustaw xRecipient = Nic Ustaw xDictionary = Nic Koniec Pod

doc sprawdź adres odbiorcy przed wysłaniem 1

W kodzie możesz zmienić ("example1@126.com", "example2@126.com", "example3@126.com") do prawdziwych odbiorców, których potrzebujesz.

3. Następnie również w Microsoft Visual Basic for Applications okno, kliknij Przybory > Referencje. Sprawdź Microsoft Scripting Runtime pole wyboru w Referencje-Project1 dialog.

doc sprawdź adres odbiorcy przed wysłaniem 2 doc strzałka w prawo doc sprawdź adres odbiorcy przed wysłaniem 3

4. kliknij OK i zapisz kod.

Teraz Jeśli wybrani odbiorcy nie pojawią się w polu Do podczas wysyłania wiadomości e-mail, zostanie wyświetlone okno dialogowe przypominające o wysłaniu wiadomości e-mail.
doc sprawdź adres odbiorcy przed wysłaniem 4

W powyższym kodzie sprawdza tylko adresy e-mail w Do pole, jeśli chcesz się zameldować Do, CC i BCC pola, możesz użyć poniższego kodu.

VBA: sprawdź adres odbiorcy w polach Do / CC / BCC przed wysłaniem

Prywatna Sub Application_ItemSend (Element ByVal jako obiekt, Anuluj jako Boolean) "UpdatebyExtendoffice20180523 Dim xRecipients jako Outlook.Recipients Dim xRecipient jako Outlook.Recipient Dim xPos jako Integer Dim xYesNo jako Integer Dim xPrompt jako ciąg Dim xAddress jako ciąg przy błędzie Wznów Dalej Jeśli pozycja. Class <> olMail Następnie Exit Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" Dla każdego xRecipienta w xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Jeśli xPos = 0 Następnie xPrompt = "Wysyłasz do "& xAddress &". Czy na pewno chcesz to wysłać? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools dla Outlooka") Jeśli xYesNo = vbNo Następnie Anuluj = Prawdziwe zakończenie Jeśli następny xRecient koniec końcowy

Za pomocą tego kodu nie musisz sprawdzać Microsoft Scripting Runtime pole wyboru, po prostu zapisz kod, aby odnieść skutek.



Kutools dla programu Outlook

Więcej niż zaawansowane funkcje 100 dla programów Outlook 2010, 2013, 2016, 2019 i 365

screen shot kutools dla programu outlook tiny dla banera 201812

Więcej funkcji | Darmowe pobieranie | Tylko $ 39.00 dla setek funkcji

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.