Sut i wirio cyfeiriadau derbynwyr cyn anfon trwy Outlook?

Awdur: Haul Wedi'i Addasu Diwethaf: 2020-09-18

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 SesiwnOutlook 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("", "", "")
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 ("""""") 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 Amser Rhedeg Sgriptio Microsoft blwch gwirio i mewn Cyfeiriadau-Prosiect1 deialog.

gwirio cyfeiriad y derbynnydd cyn anfon 2

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 ac 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 = ""
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 Amser Rhedeg Sgriptio Microsoft blwch gwirio, dim ond arbed y cod yn uniongyrchol i ddod i rym.