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

วิธีส่งแผ่นงานผ่าน Outlook จาก Excel เท่านั้น

ถ้าคุณต้องการส่งอีเมลแผ่นงานเดียวจากสมุดงานใน Excel ผ่าน Outlook คุณสามารถส่งแผ่นงานเป็นไฟล์แนบเป็นเนื้อหาเนื้อหาหรือเป็นไฟล์ PDF แต่มีวิธีที่เร็วกว่าสำหรับคุณในการจัดการกับปัญหานี้ใน Excel หรือไม่?

ส่งแผ่นงานเดียวเป็นเนื้อหาจาก Excel ด้วยคำสั่ง Send to Mail Recipient

ส่งแผ่นงานเดียวเป็นไฟล์แนบจาก Excel พร้อมรหัส VBA

ส่งแผ่นงานเดียวเป็นไฟล์ PDF จาก Excel พร้อมรหัส VBA


ลูกศรสีฟ้าฟองขวา ส่งแผ่นงานเดียวเป็นเนื้อหาจาก Excel ด้วยคำสั่ง Send to Mail Recipient

Excel สนับสนุนให้เราส่งอีเมลถึงแผ่นงานที่ใช้งานเป็นเนื้อหาเนื้อหาโดยใช้คำสั่ง Send to Mail Recipient คุณสามารถทำได้ดังนี้:

ถ้าคุณใช้ Excel 2007, 2010 หรือ 2013 คุณต้องเพิ่มสิ่งนี้ ส่งไปยังผู้รับจดหมาย คำสั่งไปที่ แถบเครื่องมือด่วน ก่อน

1. คลิกไอคอนของไฟล์ ปรับแต่งแถบเครื่องมือด่วนและเลือก คำสั่งเพิ่มเติมดูภาพหน้าจอ:

doc-email-sheet1

2. และใน ตัวเลือก Excel ให้เลือก คำสั่งไม่อยู่ใน Ribbon ใน เลือกคำสั่งจาก รายการแบบหล่นลงจากนั้นเลือก ส่งไปยังผู้รับจดหมาย แล้วคลิก เพิ่ม >> เพื่อเพิ่มคำสั่งนี้ในคลิกสุดท้าย OK เพื่อบันทึกการตั้งค่านี้ ดูภาพหน้าจอ:

doc-email-sheet2

3. พื้นที่ ส่งไปยังผู้รับจดหมาย แทรกคำสั่งลงในไฟล์ แถบเครื่องมือด่วนดูภาพหน้าจอ:

doc-email-sheet3

4. จากนั้นคลิกที่นี่ ส่งไปยังผู้รับจดหมาย ปุ่มไอคอนและกล่องพร้อมต์จะปรากฏขึ้นในไฟล์ E-mail กล่องข้อความให้เลือก ส่งแผ่นงานปัจจุบันเป็นเนื้อหาข้อความและคลิก OK. ดูภาพหน้าจอ:

doc-email-sheet4

5. และกล่องแก้ไขอีเมลจะแสดงเหนือข้อมูลในแผ่นงานคุณสามารถป้อนผู้รับหัวเรื่องและบทนำลงในกล่องข้อความที่เกี่ยวข้องได้ ดูภาพหน้าจอ:

doc-email-sheet5

6. จากนั้นคลิก ส่งชีนี้t เพื่อส่งแผ่นงานที่ใช้งานอยู่นี้เป็นเนื้อหาข้อความถึงบุคคลของคุณ


ลูกศรสีฟ้าฟองขวา ส่งแผ่นงานเดียวเป็นไฟล์แนบจาก Excel พร้อมรหัส VBA

หากคุณต้องการส่งอีเมลถึงแผ่นงานที่ใช้งานอยู่เป็นไฟล์แนบรหัส VBA ต่อไปนี้สามารถช่วยคุณได้

1. เปิดใช้งานแผ่นงานของคุณที่คุณต้องการส่ง

2. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.

3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

รหัส VBA: ส่งแผ่นงานปัจจุบันเป็นไฟล์แนบจาก Excel

Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
    If Wb2.HasVBProject Then
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Else
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Case Excel8:
    xFile = ".xls"
    xFormat = Excel8
Case xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add Wb2.FullName
    .Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub

หมายเหตุ: ในโค้ดด้านบนคุณสามารถเปลี่ยนข้อมูลต่อไปนี้ตามความต้องการของคุณเอง

  • . ถึง = "skyyang @extendoffice.com "
  • .CC = ""
  • .BCC = ""
  • .ubject = "คุณลักษณะ kte"
  • .Body = "โปรดตรวจสอบและอ่านเอกสารนี้"

4. จากนั้นคลิก F5 เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นให้คลิก อนุญาต เมื่อแถบความคืบหน้าเสร็จสิ้นจากนั้นแผ่นงานปัจจุบันจะถูกส่งไปยังผู้รับของคุณเป็นไฟล์แนบ

doc-email-sheet6


ลูกศรสีฟ้าฟองขวา ส่งแผ่นงานเดียวเป็นไฟล์ PDF จาก Excel พร้อมรหัส VBA

บางครั้งคุณต้องส่งรายงานเวิร์กชีตของคุณให้กับผู้อื่น แต่ไม่ต้องการให้ผู้อื่นแก้ไข ในกรณีนี้คุณสามารถส่งแผ่นงานเป็นไฟล์ PDF จาก Excel ได้

1. เปิดใช้งานแผ่นงานของคุณที่คุณต้องการส่ง

2. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.

3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

รหัส VBA: ส่งแผ่นงานปัจจุบันเป็นไฟล์ PDF จาก Excel

Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add FileName
    .Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

หมายเหตุ: ในโค้ดด้านบนคุณสามารถเปลี่ยนข้อมูลต่อไปนี้ได้ตามต้องการ

  • . ถึง = "skyyang @extendoffice.com "
  • .CC = ""
  • .BCC = ""
  • .ubject = "คุณลักษณะ kte"
  • .Body = "โปรดตรวจสอบและอ่านเอกสารนี้"

4. จากนั้นกด F5 และกล่องพร้อมต์จะปรากฏขึ้นให้คลิก อนุญาต หลังจากสิ้นสุดแถบความคืบหน้าแล้วแผ่นงานที่ใช้งานอยู่จะถูกส่งไปยังบุคคลที่ระบุเป็นไฟล์ PDF

doc-email-sheet6

หมายเหตุ:

1. วิธีการเหล่านี้ใช้ได้เฉพาะเมื่อคุณใช้ Outlook เป็นโปรแกรมเมลของคุณ

2. หลังจากส่งแผ่นงานปัจจุบันคุณสามารถไปที่ Outlook ของคุณเพื่อให้แน่ใจว่าส่งอีเมลเรียบร้อยแล้ว


สร้างรายชื่อผู้รับจดหมายจากนั้นส่งอีเมล

พื้นที่ Kutools สำหรับ Excel's สร้างรายชื่อผู้รับจดหมาย และ  ส่ง อีเมล โปรแกรมอรรถประโยชน์สามารถสร้างรายชื่อส่งเมลในแผ่นงานได้อย่างรวดเร็วจากนั้นส่งเรื่องเดียวกันเนื้อหาเดียวกันและไฟล์แนบเดียวกันไปยังที่อยู่อีเมลหลายแห่ง
รายชื่อผู้รับจดหมาย doc 1
doc ลูกศรลง
รายชื่อผู้รับจดหมาย doc 2

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

วิธีส่งสมุดงานปัจจุบันผ่าน Outlook จาก Excel

วิธีการส่ง / อีเมลช่วงเซลล์ผ่าน Outlook จาก Excel


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

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

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

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (33)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณจะเพิ่มผู้รับหลายคนในตัวอย่างที่สองโดยใช้รหัส VBA ได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้งานได้ แต่เราจะเพิ่มใน cc ผู้ส่งโดยอัตโนมัติได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เมื่อฉันใช้โค้ด VBA เพื่อส่งเป็น pdf อีเมลก็ส่งได้ตามปกติ แต่ไม่มีไฟล์แนบ ผมทำอะไรผิดหรือเปล่า? ขอบคุณค่ะคุณจันดา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณได้รับ anser สำหรับสิ่งนี้หรือไม่? ฉันยังมีปัญหาเดียวกัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันต้องการส่งเฉพาะเซลล์ที่เลือกผ่านปุ่มคำสั่งใน excel ไปยังใบเสร็จผ่าน Outlook
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันได้แนบการส่งไปยังผู้รับเมล แต่ไม่ถูกเปิดใช้งานเมื่อฉันคลิกเพื่อส่ง excel ฉันทำอะไรผิด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันกำลังพยายามส่งช่วงชื่อหลายช่วงภายในสมุดงานที่กำหนดเป็น PDF ผ่าน Outlook เปิดและปิดสมุดงานจำนวนมากโดยอัตโนมัติ ฉันไม่แน่ใจว่าจะแก้ไขโค้ดที่ระบุด้านล่างได้อย่างไรซึ่งใช้ได้ผลดีในการส่งเวิร์กชีตด้วยเวอร์ชันใหม่ทั้งหมดบนแล็ปท็อป ฉันส่งรายงานหลายฉบับในแต่ละคืนบนเดสก์ท็อป Windows 7 Excel และ Outlook 10 Adobe Acrobat Pro 10 และพยายามกำหนดค่าใหม่ให้ทำเช่นเดียวกันบนแล็ปท็อปที่มี Windows 8.1 Office 15 เวอร์ชันอัปเกรดและ adobe acrobat Xl รหัสที่แนะนำของคุณสำหรับการส่งเวิร์กชีตย่อย SendWorkSheetToPDF() 'อัปเดต 20131209 Dim Wb เป็นชื่อไฟล์สมุดงาน Dim เป็นสตริง Dim OutlookMail เป็นวัตถุ Dim OutlookMail เป็นวัตถุเมื่อเกิดข้อผิดพลาด ดำเนินการต่อ ชุดถัดไป Wb = Application.ActiveWorkbook ชื่อไฟล์ = Wb.FullName xIndex = VBA.InStrRev ( ชื่อไฟล์ ".") ถ้า xIndex > 1 แล้ว FileName = VBA.Left(FileName, xIndex - 1) FileName = FileName & "_" + ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= FileName Set OutlookApp = CreateObject("Outlook.Application") ตั้งค่า OutlookMail = OutlookApp.CreateItem(0) ด้วย OutlookMail .To = "jbristow1@gmail.com" .CC = "" .BCC = "" .Subject = "Outlook Code" .Body = "โปรดตรวจสอบและอ่านเอกสารนี้" .Attachments.Add ชื่อไฟล์ .ส่งท้ายด้วย Kill FileName Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
จิม คุณต้องเพิ่ม ; หลังที่อยู่อีเมลและเพิ่มอื่น ดูตัวอย่างด้านล่าง : .To = "jbristow1@gmail.com; someone@gmail.com; onemoreperson@gmail.com"
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันใช้รหัสนี้ แต่ฉันมีปัญหาในการส่ง ไม่ใช่ปัญหาใหญ่ แต่ฉันไม่ชอบ :-) ก่อนอื่นฉันบันทึกไฟล์ไปยังตำแหน่งที่แน่นอนผ่าน VBA โดยอัตโนมัติก่อนที่จะส่งไฟล์ทางไปรษณีย์ ไฟล์มีชื่อลงท้ายด้วย .xlsx แล้ว เมื่อส่งอีเมลไฟล์ ไฟล์แนบจะอ่านว่า .xlsx.xlsx เพื่อเพิ่ม .xslx ลงในไฟล์ ไม่มีใครรู้ว่าฉันสามารถละเว้นการบันทึกก่อนส่งเป็นไฟล์แนบได้หรือไม่? ฉันได้บันทึกไว้แล้วก่อนที่จะส่ง... ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันกำลังใช้ตัวอย่างที่สองด้านบนเพื่อส่งแผ่นงานเดียวจากสมุดงาน แต่กำลังส่งสมุดงานทั้งหมด ฉันคัดลอกตัวอย่างข้างต้นและส่วนเดียวที่ฉันเปลี่ยนคือที่อยู่อีเมล ฉันไม่แน่ใจว่ามีอะไรผิดปกติ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันกำลังใช้รหัสด้านบนเพื่อส่งแผ่นงานเดียวเป็นสิ่งที่แนบมากับ excel ปัญหาที่ฉันมีคือส่งทั้งสมุดงาน ไม่ใช่แค่แผ่นงานเดียว ฉันเปลี่ยนเฉพาะ "ถึง" "เรื่อง" และ "เนื้อหา" สำหรับอีเมลเท่านั้น ฉันไม่แน่ใจว่าเกิดอะไรขึ้น ช่วยด้วย! :เศร้า:
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
[quote]ฉันใช้โค้ดด้านบนเพื่อส่งชีตแผ่นเดียวเป็นสิ่งที่แนบมากับ excel ปัญหาที่ฉันมีคือส่งเวิร์กบุ๊กทั้งเล่ม ไม่ใช่แค่เวิร์กชีตเดียว ฉันเปลี่ยนเฉพาะ "ถึง" "เรื่อง" และ "เนื้อหา" สำหรับอีเมลเท่านั้น ฉันไม่แน่ใจว่าเกิดอะไรขึ้น ช่วยด้วย! :เศร้า:By เจเน็ต[/quote] สวัสดี โปรดบอกข้อมูลเวอร์ชันของ Office และระบบคอมพิวเตอร์ของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันใช้ Office 2010 และ Windows 7 ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
[quote]สวัสดี ฉันใช้ Office 2010 และ Windows 7 ขอบคุณ!By เจเน็ต[/quote] สวัสดี VBA นี้ใช้ได้กับ Office 2010 ใน Window 7 โปรดตรวจสอบให้แน่ใจว่าคุณได้เปิด Outlook ของคุณก่อนที่จะเรียกใช้ VBA นี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันกำลังพยายามใช้รหัสนี้เพื่อส่งสเปรดชีตเดียวโดยใช้ไฟล์เทมเพลต *.ost ที่สร้างขึ้นเป็นการส่วนตัวซึ่งอยู่บนไดรฟ์ c:\ ดูเหมือนจะคิดไม่ออกว่าจะปรับโค้ดด้านบนนี้อย่างไร พอยน์เตอร์ใด ๆ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ส่งแผ่นงานเดียวเป็นไฟล์แนบจาก Excel พร้อมรหัส VBA: รหัส VBA ที่ยอดเยี่ยม ทำงานได้ดีมาก !!! ขอขอบคุณ!!! :-) แทนที่จะป้อนอีเมลถึง: & CC: ด้วยตนเอง ฉันต้องการดึงที่อยู่อีเมลจากเวิร์กชีตแยกต่างหากที่เรียกว่า "รายการอีเมล" (a1) มีที่อยู่อีเมล "ถึง" และ (b1) มีที่อยู่อีเมล "CC" ฉันรู้ว่ามันค่อนข้างง่ายที่จะแก้ปัญหา แต่ฉันไม่สามารถเข้าใจได้ว่าฉันทำอะไรผิด ขอบคุณทุกคนล่วงหน้า Wb2.SaveAs FilePath & ชื่อไฟล์ & xFile, FileFormat:=xFormat ด้วย OutlookMail .To = "skyyang@extendoffice.com" .CC = "" .BCC = "" .Subject = "คุณสมบัติ kte" .Body = "โปรดตรวจสอบและอ่านเอกสารนี้" .Attachments.Add Wb2.FullName .Send End With Wb2.Close Kill FilePath & FileName & xFile Set OutlookMail = Nothing Set OutlookApp = Nothing Application.ScreenUpdating = True End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันกำลังใช้กระบวนการอัตโนมัติในบริษัทของฉัน ฉันต้องอัปเกรดพีซีทั้งหมดของฉันด้วย excel และ outlook 2010 ฉันมีรหัสใน windows xp ซึ่งฉันกำลังส่งแผ่นงานโดยใช้ outlook โดยด่วน แสดงว่ารหัสทำงานได้ดีใน xp แต่ตอนนี้ฉัน ต้องอัพเกรดเป็น windows 7 ฉันพยายามมาก แต่ฉันไม่สามารถส่งแผ่นงานได้โปรดช่วยด้วย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีมาโครใช้งานได้ดีสำหรับฉันอย่างสมบูรณ์แบบ ฉันไม่เคยใช้มาโครมาก่อนเลย ใครก็ได้ช่วยบอกให้ฉันไปในทิศทางที่ถูกต้องได้ไหม ฉันกำลังพยายามส่งให้มากกว่าหนึ่งคน แต่ไม่แน่ใจว่าจะใส่ที่อยู่อีเมลเพิ่มเติมในส่วน "ถึง" ของมาโครได้อย่างไร ขอบคุณล่วงหน้า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันเป็นคนฝรั่งเศส ขอโทษสำหรับภาษาอังกฤษของฉัน เป็นไปได้อย่างไรที่จะใส่เซลล์ของค่าของชีตของฉันใน .too/ .CC ... ฉันคิดว่ามันเป็นเช่นไร : Sub SendWorkSheet() 'Update 20131209 Dim xFile As String Dim xFormat As Long Dim Wb As Workbook Dim Wb2 As Workbook Dim FilePath As String Dim FileName เป็น String Dim OutlookApp เป็นวัตถุ Dim OutlookMail เป็นวัตถุบน Error ทำงานต่อ แอปพลิเคชันถัดไป ScreenUpdating = False Set Wb = Application.ActiveWorkbook ActiveSheet.Copy Set Wb2 = Application.ActiveWorkbook Select Case Wb.FileFormat Case xlOpenXMLWorkbook: xFile = ".xlsx" xFormat = xlOpenXMLWorkbook Case xlOpenXMLWorkbookMacroEnabled: ถ้า Wb2.HasVBProject แล้ว xFile = ".xlsm" xFormat = xlOpenXMLWorkbookMacroEnabled Else xFile = ".xlsx" xFormat = xlOpenXML CasexFormats Exmat = xlOpenXMLWorkbook Ends " : xFile = ".xlsb" xFormat = xlExcel8 End Select FilePath = Environ$("temp") & "\" FileName = Wb.Name & Format(ตอนนี้ "dd-mmm-yy h-mm-ss") ตั้งค่า OutlookApp = CreateObject ("Outlook.Application") ตั้งค่า OutlookMail = OutlookApp.Cre ateItem(8) Wb12.SaveAs FilePath & ชื่อไฟล์ & xFile, FileFormat:=xFormat ด้วย OutlookMail .To = "skyyang@extendoffice.com" & RANGE("AVIVA!b12") .CC = "" & RANGE("AVIVA!c12") .BCC = "" .Subject = "NOUVEAU DOSSIER" .body = "โปรดตรวจสอบและอ่านเอกสารนี้" .Attachments.Add Wb2.FullName .DISPLAY .Send End With Wb2.Close Kill FilePath & FileName & xFile Set OutlookMail = Nothing Set OutlookApp = Nothing Application.ScreenUpdating = True End Sub ขอบคุณสำหรับความช่วยเหลือ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เราอนุญาตให้ผู้ใช้เพิ่ม ID อีเมลด้วยรหัสที่กล่าวถึงข้างต้น... มันใช้งานได้ดีมากถ้าเราพูดถึง To email id...
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ท่านครับ ผมสามารถส่งแผ่นงานที่เลือกเป็นไฟล์แนบได้โดยใส่หัวเรื่องและข้อความ แต่ชื่อไฟล์แสดงเป็น book1-02-apr-2016.... แต่ฉันต้องการให้ชื่อไฟล์ในรหัสเอง (ชื่อเดียวกันเพื่อดำเนินการต่อทุกครั้งที่ฉันส่ง) กรุณาช่วยฉัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ได้โปรดช่วยฉันโดยด่วน นี่เป็นครั้งแรกที่ฉันใช้ส่งแผ่นงานปัจจุบันเป็น PDF แต่โค้ดด้านล่างใช้ไม่ได้เลย และกล่องโต้ตอบที่อนุญาตไม่แสดงขึ้นเมื่อฉันกด ctrl+G ฉันยังต้องการทราบสิ่งที่จะเปลี่ยนเพื่ออ้างอิงเซลล์ที่มีที่อยู่อีเมลแทน "เป็นที่อยู่อีเมลเฉพาะ Sub SendWorkSheetToPDF() 'อัปเดต 20131209 Dim Wb เป็นสมุดงาน Dim FileName เป็น String Dim OutlookApp เป็นวัตถุ Dim OutlookMail เป็นวัตถุบน ข้อผิดพลาด Resume Next Set Wb = Application.ActiveWorkbook FileName = Wb.FullName xIndex = VBA.InStrRev(FileName, ".") ถ้า xIndex > 1 แล้ว FileName = VBA.Left(FileName, xIndex - 1) FileName = FileName & "_" + ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .To = "skyyang@extendoffice.com" .CC = "" .BCC = "" .Subject = "คุณสมบัติ kte" .Body = "โปรดตรวจสอบและอ่านเอกสารนี้" .Attachments.Add FileName .Send With Kill FileName Set OutlookMail = Nothing Set OutlookApp = ไม่มีอะไรจบ Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสนี้ใช้งานได้ดี แต่ไม่มีใครรู้วิธีทำให้ฟิลด์เป็นอัตโนมัติเพื่อแจ้งเตือนให้อีเมลไปโดยอัตโนมัติตามคอลัมน์วันที่หรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี! เป็นไปได้ไหมที่จะใช้รหัสนี้ แต่แทนที่จะส่งทันที รหัสจะเปิดขึ้น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณสามารถลองใช้รหัสนี้:
ย่อย SendWorkSheet()
'อัปเดต 20180109
Dim xFile เป็นสตริง
Dim xFormat ตราบเท่าที่
Dim Wb เป็นสมุดงาน
Dim Wb2 เป็นสมุดงาน
Dim FilePath เป็นสตริง
หรี่ชื่อไฟล์เป็นสตริง
หรี่ OutlookApp เป็นวัตถุ
หรี่ OutlookMail เป็นวัตถุ
เกี่ยวกับข้อผิดพลาดต่อไป
Application.ScreenUpdating = เท็จ
ตั้งค่า Wb = Application.ActiveWorkbook
ActiveSheet.Copy
ตั้งค่า Wb2 = Application.ActiveWorkbook
เลือกกรณี Wb.FileFormat
กรณี xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
กรณี xlOpenXMLWorkbookMacroEnabled:
ถ้า Wb2.HasVBProject แล้ว
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
อื่น
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
กรณี Excel8:
xFile = ".xls"
xFormat = Excel8
กรณี xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
สิ้นสุดการเลือก
FilePath = Environ$("ชั่วคราว") & "\"
ชื่อไฟล์ = Wb.Name & รูปแบบ (ตอนนี้ "dd-mmm-yy h-mm-ss")
ตั้งค่า OutlookApp = CreateObject ("Outlook.Application")
ตั้งค่า OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & ชื่อไฟล์ & xFile, FileFormat:=xFormat
ด้วย OutlookMail
. ถึง = "skyyang @extendoffice.com "
.CC = ""
.BCC = ""
.ubject = "คุณลักษณะ kte"
.Body = "โปรดตรวจสอบและอ่านเอกสารนี้"
.Attachments.Add Wb2.FullName
.แสดง
' .ส่ง
จบด้วย
Wb2.ปิด
ฆ่า FilePath & ชื่อไฟล์ & xFile
ตั้งค่า OutlookMail = Nothing
ตั้งค่า OutlookApp = Nothing
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด

โปรดแจ้งให้เราทราบว่ามันเหมาะกับคุณหรือไม่ ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
อย่างไรก็ตาม ฉันสามารถส่งแผ่นงาน excel ผ่าน Outlook ได้อย่างง่ายดายโดยไม่ต้องมีทั้งหมดนี้ ?? ฉันสามารถส่งบริบทของเวิร์กชีตได้ แต่ไม่มีเวิร์กบุ๊กเป็นไฟล์แนบ บนคอมพิวเตอร์ที่ทำงานของฉัน ฉันสามารถส่งจาก word และ excel แต่มีปัญหาที่บ้าน
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL