Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

Sut i wirio cyfeiriadau derbynwyr cyn anfon trwy Outlook?

Mewn rhai adegau, efallai y byddwch yn colli ychwanegu rhai derbynwyr pwysig i feysydd To, CC neu BCC wrth anfon E-byst trwy Outlook. Yma, gallaf gyflwyno dull i wirio a yw'r cyfeiriadau e-bost penodol wedi'u hychwanegu cyn eu hanfon trwy Outlook.

Gwiriwch gyfeiriadau cyn eu hanfon gyda chod VBA


Gwiriwch gyfeiriadau cyn eu hanfon gyda chod VBA

Yma mae gen i ddau god a all eich helpu i ddatrys y swydd hon, gallwch ddewis unrhyw un yn ôl yr angen.

1. Gwasgwch Alt + F11 keys i alluogi Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch ddwywaith ThisOutlookSession o Project1 cwarel i agor golygydd y cod, copïo a gludo o dan y cod i'r golygydd.

VBA: gwiriwch gyfeiriad y derbynnydd yn To field cyn ei anfon

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180523
Dim xAddressArr() As Variant
Dim xAddress As String
Dim xRecipient As Recipient
Dim xPrompt As String
Dim xYesNo As Integer
Dim xDictionary As Scripting.Dictionary
On Error Resume 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 Each xRecipient In Item.Recipients
    If xRecipient.Type = olTo Then
        If xDictionary.Exists(xRecipient.Address) Then xDictionary.Remove xRecipient.Address
    End If
Next
If xDictionary.Count = 0 Then GoTo L1
For i = 0 To xDictionary.Count - 1
    If xAddress = "" Then
        xAddress = xDictionary.Keys(i)
    Else
        xAddress = xAddress + "; " & xDictionary.Keys(i)
    End If
Next i
xPrompt = "You are not sending this to: " & xAddress & ". Are you sure you want to send the Mail?"
xYesNo = MsgBox(xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
L1:
  Set xRecipient = Nothing
  Set xDictionary = Nothing
End Sub

gwirio cyfeiriad y derbynnydd cyn anfon 1

Yn y cod, gallwch chi newid ("example1@126.com", "example2@126.com", "example3@126.com") i'r derbynwyr go iawn sydd eu hangen arnoch chi.

3. Yna hefyd yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch offer > cyfeiriadau. Gwirio Microsoft Scripting Runtime blwch gwirio i mewn Cyfeiriadau-Prosiect1 deialog.

gwirio cyfeiriad y derbynnydd cyn anfon 2 saeth doc dde gwirio cyfeiriad y derbynnydd cyn anfon 3

4. Cliciwch OK ac arbed y cod.

Nawr Os nad yw'r derbynwyr penodedig yn ymddangos yn To field wrth anfon e-byst, bydd deialog yn galw allan i'ch atgoffa a ddylech anfon yr e-bost.
gwirio cyfeiriad y derbynnydd cyn anfon 4

Gyda'r cod uchod, dim ond y cyfeiriadau e-bost y mae'n eu gwirio I maes, os ydych chi am fewngofnodi I, CC a BCC meysydd, gallwch ddefnyddio isod cod.

VBA: gwiriwch gyfeiriad y derbynnydd ym meysydd To / CC / BCC cyn ei anfon

Private Sub Application_ItemSend(ByVal Item As Object, 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 Resume Next
If Item.Class <> olMail Then Exit Sub
Set xRecipients = Item.Recipients
xAddress = "example1@gmail.com"
For Each xRecipient In xRecipients
    xPos = InStr(LCase(xRecipient.Address), xAddress)
    If xPos = 0 Then
        xPrompt = "You sending this to " & xAddress & ". Are you sure you want to send it?"
        xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook")
        If xYesNo = vbNo Then Cancel = True
    End If
Next xRecipient
End Sub

Gyda'r cod hwn, nid oes angen i chi wirio Microsoft Scripting Runtime blwch gwirio, dim ond arbed y cod yn uniongyrchol i ddod i rym.


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
Say something here...
symbols left.
You are guest
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.