Sut i anfon e-bost trwy Outlook pan arbedir llyfr gwaith yn Excel?
Mae'r erthygl hon yn sôn am anfon e-bost trwy Outlook pan arbedir llyfr gwaith penodol yn Excel. Gwnewch fel y dengys y tiwtorial.
Anfonwch e-bost trwy Outlook pan arbedir llyfr gwaith gyda chod VBA
Anfonwch e-bost trwy Outlook pan arbedir llyfr gwaith gyda chod VBA
Ar gyfer anfon e-bost trwy Outlook pan fydd y llyfr gwaith yn cael ei gadw yn Excel, gwnewch fel a ganlyn.
1. Cadwch y llyfr gwaith fel Llyfr Gwaith Macro-alluog Excel ar y dechrau. Cliciwch Ffeil > Save As. Yn y Save As blwch deialog, dewiswch ffolder i achub y llyfr gwaith, ei enwi yn y blwch enw Ffeil, dewiswch Llyfr Gwaith Macro-alluogedig Excel oddi wrth y Cadw fel math rhestr ostwng, ac yna cliciwch ar y Save botwm. Gweler y screenshot:
2. Agorwch y Llyfr Gwaith Macro-alluog Excel rydych chi wedi'i arbed nawr, pwyswch y Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith Llyfr Gwaith hwn yn y bar chwith, yna copïwch a gludwch y cod VBA isod i'r Llyfr Gwaith hwn ffenestr cod. Gweler y screenshot:
Cod VBA: Anfon e-bost pan arbedir llyfr gwaith
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 SubNodyn: Amnewid y Cyfeiriad e-bost gyda'r cyfeiriad e-bost derbynnydd yn unol .To = "Cyfeiriad E-bost", a newid y Cc, Pwnc yn ogystal â meysydd y corff yn y cod VBA yn ôl yr angen.
3. Gwasgwch y Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
O hyn ymlaen, pan fyddwch chi'n diweddaru'r llyfr gwaith a'i gadw, bydd e-bost yn cael ei greu'n awtomatig gyda'r llyfr gwaith wedi'i ddiweddaru ynghlwm. Cliciwch y anfon botwm i anfon yr e-bost. Gweler y screenshot:
Nodyn: Dim ond pan fyddwch chi'n defnyddio Outlook fel eich rhaglen e-bost y mae'r cod VBA yn gweithio.
Erthyglau cysylltiedig:
- Sut i anfon e-bost yn awtomatig yn seiliedig ar werth celloedd yn Excel?
- Sut i anfon e-bost os yw cell benodol yn cael ei haddasu yn Excel?
- Sut i anfon e-bost os yw'r botwm wedi'i glicio yn Excel?
- Sut i anfon e-bost os yw'r dyddiad dyledus wedi'i fodloni yn Excel?
- Sut i anfon nodyn atgoffa neu hysbysiad e-bost os yw'r llyfr gwaith yn cael ei ddiweddaru yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
