Conas meabhrúchán ríomhphoist nó fógra ríomhphoist a sheoladh má dhéantar an leabhar oibre a nuashonrú in Excel?
I roinnt cásanna, b’fhéidir go mbeidh ort fógra ríomhphoist a spreagadh chuig faighteoir sonraithe má dhéantar sonraí a nuashonrú sa leabhar oibre a sheol tú. Taispeánfaidh an t-alt seo modh duit chun é a bhaint amach.
Seol meabhrúchán ríomhphoist nó fógra má dhéantar leabhar oibre a nuashonrú le cód VBA
Seol meabhrúchán ríomhphoist nó fógra má dhéantar leabhar oibre a nuashonrú le cód VBA
Déan mar a leanas le do thoil chun meabhrúchán ríomhphoist nó fógra a sheoladh má dhéantar an leabhar oibre a nuashonrú.
1. Sa leabhar oibre, oscail bileog oibre shonraithe seolfaidh tú fógra ríomhphoist bunaithe ar na sonraí nuashonraithe taobh istigh.
2. Cliceáil ar dheis ar an táb bileog, agus roghnaigh Féach an cód ón roghchlár cliceáil ar dheis. Féach an pictiúr:
2. Sa Microsoft Visual Basic d’Fheidhmchláir an cód seo a leanas a fhuinneog, a chóipeáil agus a ghreamú isteach i bhfuinneog an chóid. Féach an pictiúr:
Cód VBA: Seol meabhrúchán ríomhphoist nó fógra má dhéantar an leabhar oibre a nuashonrú
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
Dim xYesOrNo As Integer
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xYesOrNo = MsgBox("Want to attach updated workbook in email?", vbInformation + vbYesNo, "KuTools For Excel")
If xYesOrNo = 6 Then ActiveWorkbook.Save
If xYesOrNo = 6 Then xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.cc = ""
.Subject = "email notification test"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
If xYesOrNo = 6 Then .Attachments.Add xName
.Display
End With
xMailItem = Nothing
xOutApp = Nothing
End Sub
nótaí: Cuir seoladh ríomhphoist an fhaighteora in áit an Seoladh Ríomhphoist .To = "Seoladh Ríomhphoist". Agus athraigh an Cc, Ábhar chomh maith le réimsí coirp sa chód VBA de réir mar a theastaíonn uait.
3. Brúigh an Eile + Q eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
4. Tar éis cill a chur in eagar sa bhileog oibre, a Kutools le haghaidh Excel Beidh bosca dialóige aníos mar a thaispeántar thíos. Más mian leat an leabhar oibre nuashonraithe a cheangal leis an ríomhphost, cliceáil ar an Is ea cnaipe. Mura bhfuil, cliceáil ar an Uimh cnaipe.
5. Ansin cruthaítear r-phost go huathoibríoch leis an leabhar oibre nuashonraithe atá ceangailte leis nó gan é. Agus tá gach réimse sonraithe liostaithe sa ríomhphost freisin. Cliceáil le do thoil ar an Seol cnaipe chun é a sheoladh.
nótaí: Níl an cód VBA ag obair ach nuair a úsáideann tú Outlook mar do chlár ríomhphoist.
Earraí gaolmhara:
- Conas ríomhphost a sheoladh go huathoibríoch bunaithe ar luach cille in Excel?
- Conas ríomhphost a sheoladh trí Outlook nuair a shábháiltear leabhar oibre in Excel?
- Conas ríomhphost a sheoladh má athraítear cill áirithe in Excel?
- Conas ríomhphost a sheoladh má chliceáiltear an cnaipe in Excel?
- Conas ríomhphost a sheoladh má tá an dáta dlite comhlíonta in Excel?
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á!