การใส่ข้อมูลตารางใน excel ลงไปใน email

[boxofbob]

ผมต้องการสร้าง VBA เพื่อนำข้อมูลตารางใน excel ใส่ใน email โดยลองดูตัวอย่างในอินเตอร์เน็ต เมือลองแล้วพบว่า VBA ไม่รู้ htmlbody กับ rangetohtml เลยขอสอบถามวิธีแก้ไขครับ

Code: Select all

Sub pricingemail()

Dim EmailApplication As Object
Dim EmailItem As Object

Set EmailApplication = CreateObject("Outlook.Application")
Set EmailItem = EmailApplication.createitem(0)

With EmailItem
    .To = "123.v@test.com"
    .CC = "321.123@test.com"
    .Subject = "Please Confirm Pricing Calculation for month of ..... "
    .display
    .htmlbody = rangetohtml(Range("B5: D20"))
End With

Set EmailItem = Nothing
Set EmailApplication = Nothing

End Sub

[snasui]

นำ Code มาไม่ครบครับ

กรุณาทำตามด้านล่างครับ

1. ทบทวนว่าได้นำ Code มาครบแล้ว rangetohtml(Range("B5: D20")) ควรเป็นฟังก์ชั่นสำหรับการสร้างตารางที่จะแนบเข้าไปในอีเมล
2. แนบไฟล์ที่เขียนมาเองแล้ว จะได้ตอบต่อไปจากนั้น