Conas rabhadh a fháil agus ríomhphost á sheoladh chuig fearann seachtrach in Outlook?
Agus Outlook á úsáid agat, conas is féidir leat cosc a chur ar ríomhphoist a sheoladh trí thimpiste chuig faighteoirí lasmuigh de do chuideachta? I ndáiríre, is féidir leat bosca rabhaidh a thaispeáint agus ríomhphost á sheoladh chuig fearann seachtrach in Outlook. Tabharfaidh an t-alt seo modh VBA isteach chun é a bhaint amach.
Faigh rabhadh agus tú ag seoladh ríomhphoist chuig fearann seachtrach le cód VBA
Faigh rabhadh agus tú ag seoladh ríomhphoist chuig fearann seachtrach le cód VBA
Is féidir leis an gcód VBA seo a leanas cabhrú leat rabhadh a fháil agus ríomhphost á sheoladh chuig fearann seachtrach in Outlook. Déan mar a leanas le do thoil.
1. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil dúbailte ThisOutlookSession a oscailt ThisOutlookSession (Cód) fuinneog, agus ansin cóipeáil faoi bhun an chóid VBA isteach san fhuinneog. Féach an pictiúr:
Cód VBA: Faigh rabhadh agus ríomhphost á sheoladh chuig fearann seachtrach
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Update by Extendoffice 20180504
Dim xMailItem As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim i As Long
Dim xRecipientAddress As String
Dim xPrompt As String
Dim xYesNo As Integer
Dim xPos As Integer
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
For i = xRecipients.Count To 1 Step -1
xRecipientAddress = xRecipients.Item(i).Address
xPos = InStrRev(LCase(xRecipientAddress), "@addin99.com")
If xPos <= 0 Then Exit For
Cancel = False
Next
If InStrRev(LCase(xRecipientAddress), "@addin99.com") > 0 Then Exit Sub
xPrompt = "Are you sure to send this email to outside your company? "
xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
End Sub
nótaí: Sa chód, “@ addin99.com"Is é an fearann inmheánach ríomhphoist a sheolfaidh tú ríomhphoist chuig. Athraigh é de réir mar is gá duit.
As seo amach, nuair a chliceálann tú Seol cnaipe chun ríomhphoist a sheoladh chuig fearann ríomhphoist seachtrach (ní an fearann inmheánach ríomhphoist a shonraigh tú sa chód VBA), nochtfaidh bosca rabhaidh mar atá thíos an pictiúr a thaispeántar.
Earraí gaolmhara:
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!