Evästeet auttavat meitä tarjoamaan palveluitamme. Käyttämällä palveluitamme, hyväksyt evästeiden käytön.
Vihje: Muut kielet ovat Google-käännettyjä. Voit vierailla English tämän linkin versio.
Kirjaudu
x
or
x
x
Rekis.
x

or

Kuinka tarkistaa vastaanottajan osoitteet ennen lähettämistä Outlookin kautta?

Joissakin tapauksissa voit jättää ottamatta joitain tärkeitä vastaanottajia Vastaanottaja, CC tai BCC -kenttiin samalla kun lähetät sähköpostiviestejä Outlookin kautta. Tässä voin ottaa käyttöön menetelmän tarkistaa, onko tiettyjä sähköpostiosoitteita lisätty ennen Outlookin lähettämistä.

Tarkista osoitteet ennen VBA-koodin lähettämistä

Vastaa kaikille sulje pois näkemykseni

Kun käytämme vastausta kaikkiin toimintoihin Outlookissa, voimme lisätä tileihimme myös kenttään, jos vastaanottamasi sähköpostit sisältävät vielä kaksi tiliäsi. Tällöin sinun kannattaa poistaa tilisi To- ja CC-kentiltä. Ktools Outlookille's Nimeni on voi tehdä sinut hyväksi ratkaista tämä työ nopeasti. Tarvitset vain yhden napsautuksen, kaikki myselft-tilit Outlookissa poistetaan To- ja CC-kentiltä. Napsauta 45-päivän ilmaista kokeilua!
doc vastaus sulje tili
doc arrow dowm

doc vastaus sulje tili 2
Kutools for Outlook: kymmeniä käteviä Outlook-laajennuksia, voit kokeilla rajoituksia 45-päivinä.

Tarkista osoitteet ennen VBA-koodin lähettämistä

Täällä on kaksi koodia, jotka auttavat sinua ratkaisemaan tämän työn, voit valita kuka tahansa, kuten tarvitset.

1. Lehdistö Alt + F11 keys ottaa käyttöön Microsoft Visual Basic for Applications ikkunassa.

2. Tuplaklikkaus ThisOutlookSession alkaen Project1 avataksesi koodinmuokkauksen, kopioi ja liitä koodi koodiksi editoriksi.

VBA: tarkista vastaanottajan osoite Vastaanottaja-kenttään ennen lähettämistä

Private Sub Application_ItemSend (ByVal-kohde objektiksi, Peruuta nimellä Boolean) UpdatebyExtendoffice20180523 Dim xAddressArr () Versaattina Dim xAddress kuin String Dim xRecipient Vastaanottajana Dim xPrompt kuin String Dim xYesNo kuin kokonaisluku Dim xDictionary kuin Scripting.Dictionary On Error Resume Next Set xDictionary = Uusi Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") i = LBound (xAddressArr) UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Seuraava i Jokaiselle xRecipient In Item.Recipients Jos xRecipient.Type = olTo Jos xDictionary.Exists (xRecipient.Address) Sitten xDictionary.Remove xRecipient.Address End Jos Seuraava Jos xDictionary.Count = 0 Sitten GoTo L1 i = 0 Jos xAddress = "" Sitten xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) Lopeta Jos Seuraava i xPrompt = "Et lähetä tätä: "& xAddress &". Haluatko varmasti lähettää viestin? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Jos xYesNo = vbNo sitten Peruuta = True L1: Aseta xRecipient = Mikään ei asetettu xDictionary = Nothing End Sub

doc tarkista vastaanottajan osoite ennen 1in lähettämistä

Koodissa voit muuttaa ("example1@126.com", "example2@126.com", "example3@126.com") oikeisiin vastaanottajiin.

3. Sitten myös Microsoft Visual Basic for Applications -ikkunassa Työkalut > Viitteet. Tarkista Microsoft Scripting Runtime valintaruutu sisään Viitteet-Project1 dialogi.

doc tarkista vastaanottajan osoite ennen 2in lähettämistä doc arrow right doc tarkista vastaanottajan osoite ennen 3in lähettämistä

4. napsauttaa OK ja tallenna koodi.

Nyt Jos määritetyt vastaanottajat eivät näy To-kenttään lähetettäessä sähköpostia, näyttöön tulee valintaikkuna, joka muistuttaa sinua sähköpostin lähettämisestä.
doc tarkista vastaanottajan osoite ennen 4in lähettämistä

Yllä olevan koodin avulla se tarkistaa vain sähköpostiosoitteet jotta kenttä, jos haluat kirjautua sisään jotta, CC ja BCC kentät, voit käyttää alla olevaa koodia.

VBA: tarkista vastaanottajan osoite To / CC / BCC-kenttiin ennen lähettämistä

Private Sub Application_ItemSend (ByVal-kohde objektina, Peruuta booleana) UpdatebyExtendoffice20180523 Dim xRecipients Outlook.Recipients Dim xRecipient Kuten Outlook.Recipient Dim xPos kokonaislukuna Dim xYesNo kokonaislukuna Dim xPrompt kuin merkkijonona xAddress kuin merkkijono virheen jatkaminen Seuraava Jos kohde. Class <> olMail Poistu Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" Jokaiselle xRecipientissa xRacipientsissa xPos = InStr (LCase (xRecipient.Address), xAddress) Jos xPos = 0 Sitten xPrompt = "Lähetät tämä kohtaan "& xAddress &". Haluatko varmasti lähettää sen? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") Jos xYesNo = vbNo Peruuta = True End Jos Seuraava xRecipient End Sub

Tämän koodin avulla sinun ei tarvitse tarkistaa Microsoft Scripting Runtime valintaruutu, vain tallenna koodi suoraan voimaan.



Kutools for Outlook

Enemmän kuin 100-lisätoimintoja Outlook 2010ille, 2013ille, 2016ille, 2019ille ja 365ille

näytön laukaus kutools näkymää varten pieni banner 201812

Lisää ominaisuuksia | Ilmainen lataus | Vain $ 39.00 satoja toimintoja varten

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.