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 Sub
Nodyn: Amnewid y e-bost Cyfeiriad 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?
Yr Offer Cynhyrchedd Swyddfa Gorau
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
- Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
- Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
- Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
- Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
- Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
- Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
- Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
- Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
- Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!

















