Cookieak gure zerbitzuak hornitzen laguntzen digute. Gure zerbitzuak erabiltzerakoan, cookieen erabilera onartzen duzu.
Aholkua: beste hizkuntza Google-k itzulitako dira. Bisitatu dezakezu English estekaren bertsioa.
Saioa hasi
x
or
x
x
Eman izena
x

or

Nola egiaztatu helbide elektronikoak Outlook bidez bidali aurretik?

Zenbaitetan, hartzaile garrantzitsuak gehitu ditzakezu To, CC edo BCC eremuan, Outlook bidez E-postak bidaliz. Hemen, Outlook-era bidali aurretik helbide elektroniko zehatzak gehitu badira, egiaztatu metodoa.

Begiratu helbideei VBA kodea bidaltzen hasi aurretik

Erantzun guztiei baztertzeko aurreikuspenak

Outlook-eko funtzio guztiei erantzutea erabiltzen dugunean, kontuak eremuan sartu ditzakegu ere, jasotzen dituzun mezu elektronikoak bi kontu gehiago baditu. Kasu honetan, zure kontuak To eta CC eremuetatik ezabatu nahi dituzu. Outlook-eko ktools's Nire izena da Lan hori azkar konpontzeko lanean lagun dezakezu. Klik bakar bat bakarrik behar da, Outlook-en myselft kontu guztiak A eta CC eremuetan ezabatuko dira. Egin klik 45 eguneko doako probetan!
doc-en erantzuna baztertu kontua
doc arrow dowm

doc-en erantzuna baztertu kontua 2
Kutools Outlook-era: Outlook gehigarri erabilgarriekin dozenaka, doako 45 egunetan mugak ez erabiltzeko.

Begiratu helbideei VBA kodea bidaltzen hasi aurretik

Hemen, bi kodeak behar ditut lan hau konpontzeko, edonork aukeratu ahal izango duzu behar duzun moduan.

1. Prentsa Alt + F11 keys gaitzeko Microsoft Visual Basic aplikazioak leihoa.

2. Egin klik bikoitza ThisOutlookSession ra Project1 Panelaren kodea editorea irekitzeko, kopiatu eta itsatsi kodea behean editorean.

VBA: kontsultatu hartzailearen helbidea eremuan bidali aurretik

Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Variant Dim xAddress As String Dim x Recipient Dimension As Dim xPrompt String Dim xYesNo As Integer Dim xDictionary As Scripting.Dictionary On Error Reboot Next Set xDictionary = New Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") For i = LBound (xAddressArr) To UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Next i For EachRecipient in Item.Recipients xRecipient.Type = olTo ondoren xDictionary.Exists (xRecipient.Address) ondoren xDictionary.Remove xRecipient.Address Amaitu hurrengo bada xDictionary.Count = 0 Ondoren GoTo L1 For i = 0 xDictionary.Count - 1 xAddress = "" Orduan xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" eta xDictionary.Keys (i) Amaitu hurrengo bada xPrompt = "Ez duzu hau bidaltzen: "& xAddress &". Ziur zaude Posta bidali nahi duzula? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools Outlook-era") xYesNo = vbNo Then Cancel = True L1: Ezarri xRecipient = Ezarri Ezarpena xDictionary = Ezer ez End Sub

doc egiaztatzen duen hartzailearen helbidea 1 bidaltzen hasi aurretik

Kodean, aldatu egin dezakezu ("example1@126.com", "example2@126.com", "example3@126.com") Behar dituzun benetako hartzaileak.

3. Orduan ere Microsoft Visual Basic aplikazioak leiho, egin klik tresnak > Erreferentziak. Check Microsoft Scripting Runtime kontrol-laukia sartu Erreferentziak-Project1 elkarrizketa.

doc egiaztatzen duen hartzailearen helbidea 2 bidaltzen hasi aurretik doc arrow eskuinera doc egiaztatzen duen hartzailearen helbidea 3 bidaltzen hasi aurretik

4. klik OK eta gorde kodea.

Orain zehaztutako hartzaileak ez badira eremuan Eranskinak bidaltzen badituzu, elkarrizketa bat agertuko da mezu elektronikoak bidaltzeko gogorarazteko.
doc egiaztatzen duen hartzailearen helbidea 4 bidaltzen hasi aurretik

Kodearen gainetik, helbide elektronikoak soilik kontsultatu to eremua, egiaztatu nahi baduzu to, CC eta BCC eremuak, kodea azpitik erabil dezakezu.

VBA: kontsultatu hartzailearen helbidea To / CC / BCC eremuak bidali aurretik

Private Sub Application_ItemSend (ByVal Item Object As, Cancel As Boolean) 'UpdatebyExtendoffice20180523 Dim xRecipients As Outlook.Recipients Dim xRecipient As Outlook.Recipient Dim xPos As Integer Dim xYesNo As Integer Dim xPrompt As String Dim xAddress As String On Error Re-start Next Item if. Klase <> olMail Gero Exit Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" XRecipients xRecipients for xPos = InStr (LCase (xRecipient.Address), xAddress) XPos = 0 ondoren xPrompt = "Bidaltzen ari zara Honek "& xAddress &" izenekoa da. Ziur al zaude bidali nahi duzula? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") xYesNo = vbNo Then Cancel = True End If Next x Recipient End Sub

Kodearekin, ez duzu egiaztatu behar Microsoft Scripting Runtime kontrol-laukia, zuzenean gorde kodea eragina izateko.



Kutools Outlook-era

Outlook 100, 2010, 2013, 2016 eta 2019 Outlook 365 funtzio aurreratuak baino gehiago

pantailako kutools pantailako xNUMX banner txikiari begira

Ezaugarri gehiago | Free Download | $ 39.00 bakarrik ehunka funtzioentzat

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.