Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

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" a .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'r 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 rhoi cynnig arni nawr! (Llwybr am ddim 30 diwrnod)



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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alberto · 7 months ago
    Hola,

    Me gustaría saber como quedaría la macro si quisiera enviar en un mismo correo a varias personas o más y con varios ficheros o más.

    Muchas gracias.
  • To post as a guest, your comment is unpublished.
    Bigfoot17 · 1 years ago
    I have enjoyed working through this solution for adding multiple attachments to an email from within Excel VBA. Thank you. I know that a lot of us benefit and then want some aspect customized for exactly what we are trying to do. I am no different, but for step 8. Can we set the path that the Browse window will open with? I can browse over to another folder at a different location but if I could set the path that would be a time saver.
  • To post as a guest, your comment is unpublished.
    udayakumar · 1 years ago
    Superb...... Works perfectly.

  • To post as a guest, your comment is unpublished.
    kailash.naik00@gmail.com · 2 years ago
    HI Team ....i am unable to see the attachment in mail so if i follow the your step...can you pls help
  • To post as a guest, your comment is unpublished.
    Regina · 2 years ago
    the above code works perfectly thanks!! but my email automatic signature seem to disappear with this code. any idea why?
  • To post as a guest, your comment is unpublished.
    Rizwan Siddiqui · 3 years ago
    What if multiple different user and different attachment to be send with different subject line.
  • To post as a guest, your comment is unpublished.
    prashantsoni51@gmail.com · 3 years ago
    What if above files are located in sub-folders? How to look for a file in folder and sub-folders?
  • To post as a guest, your comment is unpublished.
    Laurel Granger · 3 years ago
    I am able to "Quickly send email with multiple attachments attached in Excel with Kutools for Excel" using your steps above, but would like to take it one step further and personalize each email by inserting their names (from a column in the Excel sheet) into the body of the email. While in the body of the email, I try selecting the field and clicking on "Insert Placeholder" but nothing happens. Any idea why or how I can fix this? Thank you!