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

จะส่งอีเมลพร้อมไฟล์แนบหลายไฟล์แนบใน Excel ได้อย่างไร

บทความนี้พูดถึงการส่งอีเมลผ่าน Outlook พร้อมแนบไฟล์แนบหลายไฟล์ใน Excel

ส่งอีเมลพร้อมไฟล์แนบหลายไฟล์แนบใน Excel พร้อมรหัส VBA


ส่งอีเมลพร้อมไฟล์แนบหลายไฟล์แนบใน Excel พร้อมรหัส VBA


โปรดทำดังนี้เพื่อส่งอีเมลพร้อมไฟล์แนบหลายไฟล์แนบใน Excel

1. กรุณาใส่ปุ่มคำสั่งโดยคลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > ปุ่มคำสั่ง (ActiveX Control). ดูภาพหน้าจอ:

2. หลังจากใส่ปุ่ม Command แล้วโปรดคลิกขวาและเลือก ดูรหัส จากเมนูบริบท

3. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคลิก เครื่องมือ > อ้างอิง ดังภาพด้านล่างที่แสดง

4 ใน เอกสารอ้างอิง - VBAProject โปรดค้นหาและตรวจสอบไฟล์ ไลบรารีวัตถุของ Microsoft Outlook จากนั้นคลิกตัวเลือก OK ปุ่ม

5. จากนั้นแทนที่รหัสเดิมในหน้าต่างรหัสด้วยรหัส VBA ด้านล่าง

รหัส VBA: ส่งอีเมลพร้อมไฟล์แนบหลายไฟล์ใน 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

หมายเหตุ: โปรดระบุผู้รับอีเมลหัวเรื่องและเนื้อหาของคุณโดยเปลี่ยนรูปแบบใน . ถึง = happy.xuebi@163.com, . เรื่อง = "ทดสอบ" และ .HTMLBody = "ทดสอบ" บรรทัดในรหัส

6 กด อื่น ๆ + Q เข้าด้วยกันเพื่อออกจากไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

7 คลิก ผู้พัฒนา > โหมดการออกแบบ เพื่อปิดโหมดออกแบบ ดูภาพหน้าจอ:

8. คลิกปุ่ม Command เพื่อเรียกใช้โค้ด ในการโผล่ขึ้นมา หมวดหมู่สินค้า เลือกไฟล์ที่คุณต้องการแนบในอีเมลจากนั้นคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

9. จากนั้นอีเมลจะถูกสร้างขึ้นโดยมีช่องและไฟล์แนบที่ระบุไว้ในรายการ กรุณาคลิกที่ไฟล์ ส่ง ปุ่มเพื่อส่ง ดูภาพหน้าจอ:

หมายเหตุ: รหัส VBA จะใช้งานได้ก็ต่อเมื่อคุณใช้ Outlook เป็นโปรแกรมอีเมลของคุณ


ส่งอีเมลผ่าน Outlook ได้อย่างง่ายดายตามช่องของรายชื่อผู้รับจดหมายที่สร้างขึ้นใน Excel

พื้นที่ ส่งอีเมลล์ ประโยชน์ของ Kutools สำหรับ Excel ช่วยให้ผู้ใช้ส่งอีเมลผ่าน Outlook ตามรายชื่อผู้รับจดหมายที่สร้างขึ้นใน Excel
ดาวน์โหลดและทดลองใช้เลย! (เส้นทางฟรี 30 วัน)



บทความที่เกี่ยวข้อง:


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (14)
ได้รับคะแนน 5 จาก 5 · การจัดอันดับ 1
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันสามารถ "ส่งอีเมลพร้อมไฟล์แนบหลายไฟล์แนบใน Excel ได้อย่างรวดเร็วด้วย Kutools for Excel" โดยใช้ขั้นตอนข้างต้น แต่ต้องการดำเนินการอีกขั้นหนึ่งและปรับแต่งอีเมลแต่ละฉบับด้วยการใส่ชื่อ (จากคอลัมน์ในแผ่นงาน Excel) ลงในเนื้อหาของอีเมล ขณะอยู่ในเนื้อหาของอีเมล ฉันลองเลือกฟิลด์และคลิก "แทรกตัวยึดตำแหน่ง" แต่ไม่มีอะไรเกิดขึ้น ความคิดใดว่าทำไมหรือฉันจะแก้ไขปัญหานี้ได้อย่างไร ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เกิดอะไรขึ้นถ้าไฟล์ด้านบนอยู่ในโฟลเดอร์ย่อย? จะค้นหาไฟล์ในโฟลเดอร์และโฟลเดอร์ย่อยได้อย่างไร?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
จะเกิดอะไรขึ้นหากมีผู้ใช้หลายรายและสิ่งที่แนบมาต่างกันเพื่อส่งโดยมีหัวเรื่องต่างกัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสด้านบนทำงานได้อย่างสมบูรณ์ขอบคุณ !! แต่ลายเซ็นอัตโนมัติของอีเมลของฉันดูเหมือนจะหายไปพร้อมกับรหัสนี้ ความคิดใด ๆ ว่าทำไม?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
HI Team ....ฉันไม่สามารถดูไฟล์แนบในเมลได้ ดังนั้นหากฉันทำตามขั้นตอนของคุณ...คุณช่วยหน่อยได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สุดยอด......ทำงานได้อย่างสมบูรณ์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันสนุกกับการใช้วิธีแก้ปัญหานี้ในการเพิ่มไฟล์แนบหลายไฟล์ในอีเมลจากภายใน Excel VBA ขอขอบคุณ. ฉันรู้ว่าพวกเราหลายคนได้รับประโยชน์และต้องการปรับแต่งบางแง่มุมสำหรับสิ่งที่เราพยายามจะทำ ฉันไม่ต่างกัน แต่สำหรับขั้นตอนที่ 8 เราสามารถกำหนดเส้นทางที่ หมวดหมู่สินค้า หน้าต่างจะเปิดด้วย? ฉันสามารถเรียกดูโฟลเดอร์อื่นในตำแหน่งอื่นได้ แต่ถ้าฉันสามารถกำหนดเส้นทางที่จะประหยัดเวลาได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
ฉัน 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.
ขอบคุณมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
het ook mogelijk om een ​​filter te zetten op de selectie van de bijlagen, zodat er alleen pdf-bestanden อีเมล kunnen worden toegevoegd?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี อเล็กซ์ เดอ กราฟ
รหัสเรียกหน้าต่างการเลือกไฟล์ของ Microsoft โดยตรง ซึ่งทำให้ผู้ใช้ VBA เลือกไฟล์ที่ต้องการได้ง่าย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีคริสตัล

ใช่ ฉันเข้าใจแล้ว อย่างไรก็ตาม ฉันต้องการให้ผู้ใช้เลือกได้เฉพาะไฟล์ pdf เท่านั้น
เป็นไปได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี อเล็กซ์ เดอ กราฟ
โค้ด VBA ต่อไปนี้แสดงเฉพาะไฟล์ PDF ในหน้าต่างเรียกดู กรุณาให้มันลอง

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
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีคริสตัล
ใช่ ฉันเข้าใจดี อย่างไรก็ตาม เป็นไปได้ไหมที่จะจำกัดผู้ใช้ให้เลือกเฉพาะไฟล์ pdf?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
أريد إرسال بريد إلكتروني مع البريد أو hotmail مع CDO ولكن كل ما لدي فقط مع مرفق واحد ولكن أريد أن أرسل مع العديد من المرفقات يرجى إرسال لي عن طريق بريدي الإلكتروني الرمز أو ملف Excel naims62@hotmail.com
ได้รับคะแนน 5 จาก 5
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ