Note: The other languages of the website are Google-translated. Back to English
ล็อกอิน  \/ 
x
or
x
สมัครสมาชิก  \/ 
x

or

วิธีส่งแผ่นงานผ่าน 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-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง 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.
    Bhattacharjee · 2 years ago
    This is to inform you that i have an VBA code for send email from outlook with the help of excel vba,now i want to put "MDD Code" & " MDD Name" as well as Cells(i, 1) & Cells(i, 2) in a table like that.

    MDD Code MDD Name
    M123 Joydip

    I am sending you the VBA Code,Request you for help.
    VBA Code
    ----------------------------------------------------------------------------------------------------------------------------------------------
    Sub sendmail()

    Dim olapp As Outlook.Application

    Dim olmail As Outlook.MailItem

    For i = 2 To 35

    Application.ScreenUpdating = False

    Set olapp = New Outlook.Application

    Set olmail = olapp.CreateItem(olMailItem)

    With olmail

    olmail.To = Cells(i, 4).Value

    olmail.CC = Cells(i, 6).Value

    olmail.Subject = Cells(i, 7).Value

    olmail.HTMLBody = "Dear Partner ," & _

    "
    Please find the attchment." & _

    "

    MDD Code : " & Cells(i, 1) & _

    "
    MDD Name : " & Cells(i, 2) & _

    "






    Joydip Bhattacharjee" & _

    "
    Company" & _

    "
    MIS" & _

    "
    Country" & _

    "
    Contact No : 7602066491"







    olmail.Attachments.Add Cells(i, 8).Value

    'On Error Resume Next

    'olmail.Attachments.Add Cells(i, 9).Value

    'On Error Resume Next

    'olmail.Attachments.Add Cells(i, 10).Value

    'On Error Resume Next

    'olmail.Attachments.Add Cells(i, 11).Value

    'On Error Resume Next

    'olmail.Attachments.Add Cells(i, 12).Value

    'On Error Resume Next

    'olmail.Attachments.Add Cells(i, 13).Value

    'On Error Resume Next

    'olmail.Attachments.Add Cells(i, 14).Value

    'On Error Resume Next

    olmail.Send

    End With

    Set olmail = Nothing

    Next

    End Sub
  • To post as a guest, your comment is unpublished.
    mehmet · 3 years ago
    merhaba ben bunu belirli periyotta otomatik mail atmasını nasıl ayarlayabilirim
  • To post as a guest, your comment is unpublished.
    Oscar Eseisa · 3 years ago
    Excelent code. Thanks!
  • To post as a guest, your comment is unpublished.
    Dave · 3 years ago
    Anyway I can easily send an excel worksheet through my outlook without all this ?? I can send the worksheet context, but no the workbook as an attachment. On my work computer I can send from word and excel, but am having trouble at home.
  • To post as a guest, your comment is unpublished.
    Richard · 3 years ago
    Hi! Is it possible to use this code, but instead of sending straight away it opens up the mail?
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      You can try this code:
      Sub SendWorkSheet()
      'Update 20180109
      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
      .Display
      ' .Send
      End With
      Wb2.Close
      Kill FilePath & FileName & xFile
      Set OutlookMail = Nothing
      Set OutlookApp = Nothing
      Application.ScreenUpdating = True
      End Sub

      Please let me know if it works for you, thank you.
  • To post as a guest, your comment is unpublished.
    Sherry · 4 years ago
    This code works good, however, does anyone know a way to automate a field as an alert for the email to go automatically based on a date column?
  • To post as a guest, your comment is unpublished.
    Adanma · 5 years ago
    Kindly help me out urgently. This the first time I am using the send current worksheet as PDF but the below code did not work at all and the dialogue to allow did not show up when I presses ctrl+G.

    I also want to know what to change to reference a cell that contained the email address instead of "to a specific email address.

    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
  • To post as a guest, your comment is unpublished.
    Ramakumar · 5 years ago
    Sir

    I am able to send selected worksheet as attachment by including subject & Text.
    But the file name is showing as book1-02-apr-2016....

    Instead i want to give the file name in the code itself ( same name to continue every time i send)

    Kindly helpme
  • To post as a guest, your comment is unpublished.
    Archana · 5 years ago
    Can we allow the user to add the email ID with above mentioned code... Its works really good if we mention the To email id...
  • To post as a guest, your comment is unpublished.
    CHARLES · 6 years ago
    hi,
    im french , sorry for my english.
    How is it possible to put the value's cell of my sheet in .too/ .CC ...

    i think is it like :

    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" & RANGE("AVIVA!b12")
    .CC = "" & RANGE("AVIVA!c12")
    .BCC = ""
    .Subject = "NOUVEAU DOSSIER"
    .body = "Please check and read this document."
    .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

    thank's for you help
  • To post as a guest, your comment is unpublished.
    Karan · 6 years ago
    Hi The macro works for me perfectly fine. I have never used macros before so, can anyone please put me in the right direction - I am trying to send this to more than one person but not sure how put extra email addresses in the "to" section of the macro.

    Thanks in advance
  • To post as a guest, your comment is unpublished.
    Jash · 6 years ago
    Hey I am using a automation process in my company I need to upgrade all my pc with the excel and outlook 2010 i have a code in windows xp with which i am mailing a sheet using outlook express the code is working fine in xp but now i need to upgrade it with windows 7 . I tried alot but i cant send the sheet so plz help
  • To post as a guest, your comment is unpublished.
    Jerry · 6 years ago
    Send single worksheet as an attachment from Excel with VBA code: Excellent VBA Code. Works GREAT !!! Thank you!!! :-)
    Instead of entering the To: & CC: e-mails manually, I want to pull the e-mail addresses from a separate worksheet called "E-Mail List". The (a1) has the "To" e-mail address and (b1) has the "CC" e-mail address. I know this is relatively simple to solve but I cannot figure out what I am doing wrong.

    Thank you everyone in advance.

    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
  • To post as a guest, your comment is unpublished.
    Shel · 7 years ago
    I'm trying to use this code to send a single spreadsheet using a personally created template *.ost file that resides on the c:\ drive. Can't seem to figure out how to adapt the code above for that. Any pointers?
  • To post as a guest, your comment is unpublished.
    Janet · 7 years ago
    Hi, I am using Office 2010 and Windows 7.
    Thanks!
    • To post as a guest, your comment is unpublished.
      admin_jay · 7 years ago
      [quote name="Janet"]Hi, I am using Office 2010 and Windows 7.
      Thanks![/quote]
      Hello, this VBA is OK with Office 2010 in Window 7. Please make sure you have open your Outlook before running this VBA.
  • To post as a guest, your comment is unpublished.
    Janet · 7 years ago
    I am using the code above to send a single sheet as an excel attachment, the problem I am having, is that it is sending the whole workbook, not just a single worksheet.
    I only changed the "To", "Subject" and "Body" for the email.
    I am not sure what went wrong.
    Help Please! :sad:
    • To post as a guest, your comment is unpublished.
      admin_jay · 7 years ago
      [quote name="Janet"]I am using the code above to send a single sheet as an excel attachment, the problem I am having, is that it is sending the whole workbook, not just a single worksheet.
      I only changed the "To", "Subject" and "Body" for the email.
      I am not sure what went wrong.
      Help Please! :sad:[/quote]
      Hello, please tell me the version information of your Office and computer system.
  • To post as a guest, your comment is unpublished.
    Janet · 7 years ago
    I am using the second example above to send a single sheet out of the workbook, but it is sending the whole workbook. I copied the above example and the only part I changed was the email address.
    I am not sure what is wrong.
  • To post as a guest, your comment is unpublished.
    SomeOneVBA · 7 years ago
    Hi,

    I'm using this code but I have any issue when sending.
    It's not a big problem but I don't like it :-)

    I first auto save the file to a certain location via VBA before sending the file by mail. The file already has name ending on .xlsx

    When emailing the file, the attachement reads .xlsx.xlsx so it adds .xslx to the file.

    Does anybody know if I can it to ignore saving before sending it as attachment ? I already have it saved before sending...

    Thanks,
  • To post as a guest, your comment is unpublished.
    Jim Bristow · 7 years ago
    I am attempting to Send Multiple Name Ranges within given workbooks as PDF's via Outlook. Automating open and closing numerous workbooks. I am not certain how to modify stated code below which works great sending a worksheet with All new versions on Laptop. I sent multiple reports each night off my desk top Windows 7 Excel and Outlook 10 Adobe Acrobat Pro 10 and attempting to reconfigure to do same on laptop with upgraded versions of windows 8.1 Office 15 and adobe acrobat Xl.

    Your Recommended Codes for Sending Worksheets

    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 = "jbristow1@gmail.com"
    .CC = ""
    .BCC = ""
    .Subject = "Outlook Code"
    .Body = "Please check and read this document."
    .Attachments.Add FileName
    .Send
    End With
    Kill FileName
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
    End Sub
    • To post as a guest, your comment is unpublished.
      SomeOneVBA · 7 years ago
      Jim,

      You need to add ; behind the email address and add an other, see example below :

      .To = "jbristow1@gmail.com; someone@gmail.com; onemoreperson@gmail.com"
  • To post as a guest, your comment is unpublished.
    ogunyemi · 7 years ago
    I have attached send to mail recipient, but is not activated when i click to send the excel. What am i doning wrong?
  • To post as a guest, your comment is unpublished.
    Niti Trivedi · 7 years ago
    Hi I want to send only selected cells through a command button in excel to receipts through outlook.
  • To post as a guest, your comment is unpublished.
    Chanda · 7 years ago
    When I use the VBA code to send as a pdf, the email sends fine, however there is no attachment. What am I doing wrong?

    Thanks,
    Chanda
    • To post as a guest, your comment is unpublished.
      HosWorker · 6 years ago
      Did you get an anser for this? Im also having the same difficulty.
  • To post as a guest, your comment is unpublished.
    Russ Streff · 7 years ago
    How do you add multiple recipients in the second example using VBA code?
    • To post as a guest, your comment is unpublished.
      Mela · 1 months ago
      this works, but how can we add in automatically in the cc the sender?