E-Mail โดยกำหนดช่วงข้อมูลและวางใน BODY เกิดอเะไรขึ้น

[godman]

สวัสดีครับ
ผมมีความต้องการที่จะ ให้excel สามารถส่งเมล์โดยอัตโนมัติเมื่อทำงานกับ VBA โดยเกิดจากการเรียก Call โค้ดตัวนี้ แต่ว่าผมนำไปลองใช้แล้วไม่สามารถส่งได้ ขึ้นสีแดงตรง email addreess ครับ ความต้องการคือให้มัน copy ช่วงที่ผมกำหนดจาก sheet ที่มันอยู่คือช่วง B1-G111 ยกไปเป็นส่วน BODY ของ อีเมล์ outlook ครับ ไม่ทราบต้องปรับโค้ดตรงใหนครับ

Code: Select all

Sub EmailRange()
     
    Dim MailSelection As Object
    Dim cell As Range
    Dim Subject As String
    Dim EmailAddress As String
     
     
     
    ThisWorkbook.Sheets("FirstSheet").Range("B1:G111").Copy
     
     
     
    Set OutlookApp = CreateObject("Outlook.Application")
     
    For Each cell In _
        Columns("A").Cells
        If cell.Value Like "*@*" Then
            Subject = "Subject"
            EmailAddress = cell.Value
             
            Set MailSelection = OutlookApp.CreateItem(0)
            With MailSelection
                .To = theeranart@intriplex.co.th
                .Subject = Subject
                .Display
                SendKeys "^({v})", True
            End With
        End If
    Next
End Sub

[snasui]

ค่า Text ใน Code ต้องล้อมด้วยฟันหนูเสมอครับ

จาก

Code: Select all

.To = theeranart@intriplex.co.th

เปลี่ยนเป็น

Code: Select all

.To = "theeranart@intriplex.co.th"

[godman]

ขอบคุณครับ ไทยนำ 2-0 แล้วครับ