Note: The other languages of the website are Google-translated. Back to English

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 = "happy.xuebi@163.com"
            .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 Sub

Nodyn: nodwch eich derbynnydd e-bost, pwnc, a chorff trwy newid yr amrywiad i mewn .To = hapus.xuebi@163.com, .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 ar gyfer 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! (Llwybr 30 diwrnod am ddim)



Erthyglau cysylltiedig:


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 Swyddfa / Excel 2007-2019 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.
tab kte 201905

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!
gwaelod officetab
sylwadau (14)
Wedi graddio 5 allan o 5 · Graddfeydd 1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n gallu "Anfon e-bost yn gyflym gydag atodiadau lluosog ynghlwm yn Excel gyda Kutools ar gyfer Excel" gan ddefnyddio'ch camau uchod, ond hoffwn fynd ag ef un cam ymhellach a phersonoli pob e-bost trwy fewnosod eu henwau (o golofn yn y daflen Excel) i mewn i gorff yr e-bost. Tra yng nghorff yr e-bost, rwy'n ceisio dewis y maes a chlicio ar "Insert Placeholder" ond nid oes dim yn digwydd. Unrhyw syniad pam neu sut y gallaf drwsio hyn? Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth os yw'r ffeiliau uchod wedi'u lleoli mewn is-ffolderi? Sut i chwilio am ffeil mewn ffolder ac is-ffolderi?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth os anfonir sawl defnyddiwr gwahanol ac atodiad gwahanol gyda llinell pwnc gwahanol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'r cod uchod yn gweithio'n berffaith diolch !! ond mae'n ymddangos bod fy llofnod awtomatig e-bost yn diflannu gyda'r cod hwn. unrhyw syniad pam?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Tîm Helo ... nid wyf yn gallu gweld yr atodiad yn y post felly os byddaf yn dilyn eich cam ... a allwch chi pls helpu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych ..... Yn gweithio'n berffaith.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi mwynhau gweithio trwy'r datrysiad hwn ar gyfer ychwanegu atodiadau lluosog i e-bost o fewn Excel VBA. Diolch. Gwn fod llawer ohonom yn elwa ac yna eisiau rhyw agwedd wedi'i haddasu ar gyfer yr union beth yr ydym yn ceisio ei wneud. Nid wyf yn wahanol, ond ar gyfer cam 8. A allwn ni osod y llwybr y mae'r Pori Bydd ffenestr yn agor gyda? Gallaf bori drosodd i ffolder arall mewn lleoliad gwahanol ond pe gallwn osod y llwybr byddai hynny'n arbed amser.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Me gustaría saber mar quedaría la macro si quisiera enviar enviar un mismo correo a varias personas a mwy a varios ficheros neu fwy.
Diolch yn fawr iawn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw het ook mogelijk om een ​​filter te zetten op de selectie van de bijlagen, zodat er alleen pdf-bestanden aan de mail kunnen worden toegevoegd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Alex de Graaf,
Mae'r cod yn galw ffenestr dewis ffeiliau Microsoft yn uniongyrchol. Mae hyn yn ei gwneud hi'n hawdd i ddefnyddwyr VBA ddewis ffeiliau sydd eu hangen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Crystal,

Ydw, rwy'n deall hynny. Fodd bynnag, rwyf am i'r defnyddwyr allu dewis ffeiliau pdf yn unig.
A yw hyn yn bosibl?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Alex de Graaf,
Mae'r cod VBA canlynol yn rhestru'r ffeiliau PDF yn y ffenestr Pori yn unig. Rhowch gynnig arni.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220714
    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)
    xFileDlg.Filters.Add "PDF", "*.pdf", 1
xFileDlg.FilterIndex = 1
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = "happy.xuebi@163.com"
            .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 Sub
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Crystal,
Ydw, rwy'n deall hynny. Fodd bynnag, a yw'n bosibl cyfyngu defnyddwyr i ddewis ffeiliau pdf yn unig?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
أريد إرسال بريد إلكتروني مع البريد أو hotmail مع CDO ولكن كل ما لدي فقط مع مرفق واحد ولكن أريد أن أرسل مع العديد من المرفقات يرجى إرسال لي عن طريق بريدي الإلكتروني الرمز أو ملف Excel naims62@hotmail.com
Wedi graddio 5 allan o 5
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir