Tá an t-alt seo ag caint ar r-phost a sheoladh trí Outlook nuair a shábhálfar leabhar oibre ar leith in Excel. Déan mar a léiríonn an rang teagaisc le do thoil.
Seol r-phost trí Outlook nuair a shábhálfar leabhar oibre le cód VBA
Chun ríomhphost a sheoladh trí Outlook nuair a shábhálfar an leabhar oibre in Excel, déan mar a leanas le do thoil.
1. Sábháil an leabhar oibre mar Leabhar Oibre Macra-Chumasaithe Excel ar dtús. Cliceáil Comhad > Sábháil Mar. Sa an Sábháil Mar bosca dialóige, roghnaigh fillteán chun an leabhar oibre a shábháil, ainmnigh é sa bhosca Ainm comhaid, roghnaigh Leabhar Oibre Macra-Chumasaithe Excel ó na Ach amháin mar chineál liosta anuas, agus ansin cliceáil ar an Sábháil cnaipe. Féach an pictiúr:
2. Oscail Leabhar Oibre Macra-Chumasaithe Excel a shábháil tú díreach anois, brúigh an Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil faoi dhó le do thoil An Leabhar Oibre seo sa bharra ar chlé, ansin cóipeáil agus greamaigh an cód VBA thíos sa An Leabhar Oibre seo fuinneog cód. Féach an pictiúr:
Cód VBA: Seol r-phost nuair a shábhálfar an leabhar oibre
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.CC = ""
.Subject = "The workbook has been saved"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
.Attachments.Add xName
.Display
'.send
End With
Set xMailItem = Nothing
Set xOutApp = Nothing
End Sub
nótaí: Cuir an Seoladh ríomhphoist le seoladh ríomhphoist an fhaighteora ar aon dul .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 ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
As seo amach, nuair a dhéanfaidh tú an leabhar oibre a nuashonrú agus a shábháil, cruthófar r-phost go huathoibríoch agus an leabhar oibre nuashonraithe ceangailte leis. Cliceáil le do thoil ar an Seol cnaipe chun an ríomhphost a sheoladh. Féach an pictiúr:
nótaí: Níl an cód VBA ag obair ach nuair a úsáideann tú Outlook mar do chlár ríomhphoist.
