Sut i anfon e-bost gydag atodiadau lluosog ynghlwm yn Excel?
Mae'r erthygl hon yn sôn am anfon e-bost trwy Outlook gyda nifer o atodiadau ynghlwm yn Excel.
Anfon e-bost gydag atodiadau lluosog ynghlwm yn Excel gyda chod VBA
Anfon e-bost gydag atodiadau lluosog ynghlwm yn Excel gyda chod VBA
Gwnewch fel a ganlyn i anfon e-bost gydag atodiadau lluosog ynghlwm yn Excel.
1. Mewnosodwch botwm gorchymyn trwy glicio Datblygwr > Mewnosod > Botwm Gorchymyn (Rheoli ActiveX). Gweler y screenshot:
2. Ar ôl mewnosod y Botwm Gorchymyn, cliciwch ar y dde a dewis Gweld y Cod o'r ddewislen cyd-destun.
3. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch offer > cyfeiriadau fel y dangosir isod screenshot.
4. Yn y Cyfeiriadau - VBAProject blwch deialog, dewch o hyd i a gwirio'r Llyfrgell Gwrthrychau Microsoft Outlook opsiwn, ac yna cliciwch ar y OK botwm.
5. Yna disodli'r cod gwreiddiol yn ffenestr y Cod gyda chod VBA islaw.
Cod VBA: Anfon e-bost ynghlwm ag atodiadau lluosog yn Excel
Private Sub CommandButton1_Click()
Dim xStrFile As String
Dim xFilePath As String
Dim xFileDlg As FileDialog
Dim xFileDlgItem As Variant
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xMailOut = xOutApp.CreateItem(olMailItem)
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
If xFileDlg.Show = -1 Then
With xMailOut
.BodyFormat = olFormatRichText
.To = ""
.Subject = "test"
.HTMLBody = "test"
For Each xFileDlgItem In xFileDlg.SelectedItems
.Attachments.Add xFileDlgItem
Next xFileDlgItem
.Display
End With
End If
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End SubNodyn: nodwch eich derbynnydd e-bost, pwnc, a chorff trwy newid yr amrywiad i mewn .i= , .Subject = "prawf" ac .HTMLBody = "prawf" llinellau yn y cod.
6. Gwasgwch y Alt + Q allweddi gyda'i gilydd i adael y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
7. Cliciwch Datblygwr > Modd Dylunio i ddiffodd y Modd Dylunio. Gweler y screenshot:
8. Cliciwch y Botwm Gorchymyn i redeg y cod. Yn y popping up Pori ffenestr, dewiswch y ffeiliau y mae angen i chi eu hatodi yn yr e-bost, ac yna cliciwch ar y OK botwm. Gweler y screenshot:
9. Yna crëir e-bost gyda meysydd ac atodiadau penodol wedi'u rhestru. Cliciwch y anfon botwm i'w anfon. Gweler y screenshot:
Nodyn: Dim ond pan fyddwch chi'n defnyddio Outlook fel eich rhaglen e-bost y mae'r cod VBA yn gweithio.
Yn hawdd anfon e-bost trwy Outlook yn seiliedig ar feysydd rhestr bostio a grëwyd yn Excel:
Mae Anfon E-byst cyfleustodau Kutools for Excel yn helpu defnyddwyr i anfon e-bost trwy Outlook yn seiliedig ar restr bostio wedi'i chreu yn Excel.
Dadlwythwch a rhowch gynnig arni nawr! (30- llwybr diwrnod am ddim)
Erthyglau cysylltiedig:
- Sut i anfon e-bost i gyfeiriadau e-bost a bennir mewn celloedd yn Excel?
- Sut i anfon e-bost gyda chopïo a gludo ystod benodol i'r corff e-bost yn Excel?
- Sut i fewnosod llofnod yn e-bost Outlook wrth anfon trwy vba yn Excel?
- Sut i anfon e-bost os yw'r dyddiad dyledus wedi'i fodloni yn Excel?
- Sut i anfon e-bost yn awtomatig yn seiliedig ar werth celloedd yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
