Skip i'r prif gynnwys

Archwiliwch y newydd, fersiwn am ddim o Kutools ar gyfer Outlook heddiw!

Sut i anfon e-bost ar amser penodol o'r dydd yn Excel?

Awdur: Siluvia Wedi'i Addasu Diwethaf: 2024-10-12

Mewn rhai achosion, efallai y bydd angen i chi ohirio anfon e-bost ar amser penodol yn ystod eich gwaith. Ydych chi'n gwybod sut i gyflawni hyn? Mae'r erthygl hon yn mynd i ddangos dull i chi o anfon e-bost ar adeg benodol y dydd yn Excel.

Anfon e-bost ar amser penodol o'r dydd gyda chod VBA

Anfon e-bost ar amser penodol o'r dydd gyda chod VBA

Gall y codau VBA canlynol eich helpu i anfon e-bost ar adeg benodol y dydd yn Excel. Gwnewch fel a ganlyn.

1. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch isod god VBA i mewn i ffenestr y Modiwl.

Cod VBA 1: Anfon e-bost ar amser penodol o'r dydd yn Excel

Sub SendEmail()
'Updated by Extendoffice 2018/3/5
Set olApp = CreateObject("Outlook.application")
Set objMail = olApp.CreateItem(olMailItem)
With objMail
 .Display
 .To = "Email address"
 .Subject = "Send email"
 'HTML for fun
 '.BodyFormat = olFormatHTML
 .HTMLBody = "<HTML><H2>Email Body</BODY></HTML>"
 '.Send
 
End With
End Sub

3. Cliciwch ddwywaith ar y Llyfr Gwaith hwn yn y cwarel chwith i agor ffenestr ThisWorkbook (Code). Ac yna copïwch isod god 2 VBA i'r ffenestr. Gweler y screenshot:

copïwch a gludwch y cod vba i fodiwl ThisWorkbook

Cod VBA 2: Anfon e-bost ar amser penodol o'r dydd yn Excel

Private Sub Workbook_Open()
'Updated by Extendoffice 2018/3/5
    Application.OnTime TimeValue("11:00:00"), "SendEmail"
End Sub

Nodyn: Yn y cod 2, nodwch yr amser anfon yn ôl yr angen.

4. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

5. Cliciwch Ffeil > Save As > Pori.

Cliciwch Ffeil > Cadw Fel > Pori

6. Yn y Save As blwch deialog, pledion yn dewis ffolder i achub y llyfr gwaith, ei enwi yn ôl yr angen, dewiswch Llyfr Gwaith Macro-alluogedig Excel fformat o'r Cadw fel math rhestr ostwng, ac yn olaf cliciwch y Save botwm. Gweler y screenshot:

dewiswch fformat Excel Macro-Enabled Workbook o'r math Cadw fel

O hyn ymlaen, cyn gynted ag y bydd yr amser penodol yn cyrraedd, bydd yr e-bost penodol yn arddangos yn awtomatig. Cliciwch y anfon botwm i anfon yr e-bost hwn.

sgrinlun o kutools ar gyfer excel ai

Datgloi Excel Magic gyda Kutools AI

  • Cyflawni Smart: Perfformio gweithrediadau celloedd, dadansoddi data, a chreu siartiau - i gyd wedi'u gyrru gan orchmynion syml.
  • Fformiwlâu Custom: Cynhyrchu fformiwlâu wedi'u teilwra i symleiddio'ch llifoedd gwaith.
  • Codio VBA: Ysgrifennu a gweithredu cod VBA yn ddiymdrech.
  • Dehongli Fformiwla: Deall fformiwlâu cymhleth yn rhwydd.
  • Cyfieithiad Testun: Torri rhwystrau iaith o fewn eich taenlenni.
Gwella'ch galluoedd Excel gydag offer wedi'u pweru gan AI. Lawrlwytho Nawr a phrofi effeithlonrwydd fel erioed o'r blaen!

Erthyglau cysylltiedig:

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog  |   VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr   |  Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd   |  Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau:  12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

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!