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.

---

Cúntóir Ríomhphoist AI in Outlook: Freagraí níos Cliste, Cumarsáid níos soiléire (draíocht aon-cliceáil!) SAOR

Sruthlaigh do thascanna Outlook laethúla leis an Cúntóir Mail AI ó Kutools le haghaidh Outlook. Foghlaimíonn an uirlis chumhachtach seo ó do ríomhphoist roimhe seo chun freagraí cliste agus cruinne a thairiscint, chun ábhar do ríomhphoist a bharrfheabhsú, agus chun cabhrú leat teachtaireachtaí a dhréachtú agus a fheabhsú gan stró.

Tacaíonn an ghné seo le:

• Freagraí Cliste: Faigh freagraí ó do chomhráite san am a chuaigh thart - in oiriúint, beacht, agus réidh le dul.
• Ábhar Feabhsaithe: Déan do théacs ríomhphoist a bheachtú go huathoibríoch ar mhaithe le soiléireacht agus tionchar.
• Comhdhéanamh gan stró: Just a chur ar fáil eochairfhocail, agus lig AI láimhseáil an chuid eile, le stíleanna scríbhneoireachta iolracha.
• Eisínteachtaí Chliste: Leathnaigh do chuid smaointe le moltaí atá feasach ar an gcomhthéacs.
• Achoimre: Faigh forbhreathnú gonta ar ríomhphoist fhada láithreach.
• Global Reach: Aistrigh do ríomhphoist go teanga ar bith gan stró.

Tacaíonn an ghné seo le:

• Freagraí ríomhphoist cliste
• Ábhar optamaithe
• Dréachtanna bunaithe ar eochairfhocail
• Síneadh ábhar Chliste
• Achoimre ríomhphoist
• Aistriúchán ilteangach

Is fearr ar fad, tá an ghné seo go hiomlán saor go deo! Ná fan -íoslódáil Cúntóir Ríomhphoist AI anois agus bain sult as!

Earraí gaolmhara:

• Conas pras nó deimhniú a fháil sula seolfaidh tú ríomhphoist in Outlook?