สวัสดี
ฉันกำลังพยายามส่งอีเมลโดยอิงจากการเปลี่ยนแปลงค่าของเซลล์ทางอ้อม (เช่น > 7) พร้อมไฟล์แนบอีเมลและการอ้างอิงเซลล์เฉพาะไปยังเซลล์ที่เปลี่ยนแปลงในเนื้อหาอีเมลขาออกของฉัน ฉันมีการเปลี่ยนแปลงค่าเซลล์ทางอ้อมตามเกณฑ์ อย่างไรก็ตาม ฉันได้รับข้อผิดพลาด 424 เมื่อพยายามตั้งค่าตัวแปรเพื่อเรียกที่อยู่ของเซลล์ลงในอีเมลของฉัน คุณช่วยได้ไหม ฉันรู้สึกว่าฉันอยู่ใกล้
Dim xRg เป็นช่วง
Dim xRgSel เป็นช่วง
'กำหนดช่วงและเป้าหมาย
Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
Dim xRgPre เป็นช่วง
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า Target.Cells.Count > 1 แล้วออกจาก Sub
ตั้งค่า xRg = ช่วง ("Q2:Q43")
ตั้งค่า xRgPre = xRg.Precedents
ตั้งค่า xRgSel = อินเตอร์เซก (เป้าหมาย xRg)
ActiveWorkbook บันทึก
ถ้า xRg.Value > 7 แล้ว
โทร Mail_small_Text_Outlook
ElseIf (ไม่ใช่ xRgPre ไม่มีอะไร) และ (ตัดกัน (เป้าหมาย xRgPre).Address = Target.Adress) จากนั้น
End If
End If
ย่อยสิ้นสุด
อีเมลย่อย_small_Text_Outlook()
Dim xOutApp เป็นวัตถุ
Dim xOutMail เป็นวัตถุ
Dim xMailBody เป็นสตริง
ตั้งค่า xOutApp = CreateObject("Outlook.Application")
ตั้งค่า xOutMail = xOutApp.CreateItem(0)
xMailBody = "สวัสดี เซลล์" & xRgSel.Address (เท็จ เท็จ) & _
" ในใบงาน '" & Me.Name & "' คือ 3 วันที่ผ่านมาการบริโภค" & vbNewLine & vbNewLine & _
"โปรดตรวจสอบและติดต่อกับลูกค้าเป้าหมาย" & vbNewLine & _
"ขอบคุณ"
เกี่ยวกับข้อผิดพลาดต่อไป
ด้วย xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "วันนับตั้งแต่ได้รับสารตะกั่ว"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display 'หรือ .Send
จบด้วย
เมื่อเกิดข้อผิดพลาด GoTo 0
ตั้งค่า xOutMail = Nothing
ตั้งค่า xOutApp = Nothing
ย่อยสิ้นสุด
ขอบคุณ!
ฉันกำลังพยายามส่งอีเมลโดยอิงจากการเปลี่ยนแปลงค่าของเซลล์ทางอ้อม (เช่น > 7) พร้อมไฟล์แนบอีเมลและการอ้างอิงเซลล์เฉพาะไปยังเซลล์ที่เปลี่ยนแปลงในเนื้อหาอีเมลขาออกของฉัน ฉันมีการเปลี่ยนแปลงค่าเซลล์ทางอ้อมตามเกณฑ์ อย่างไรก็ตาม ฉันได้รับข้อผิดพลาด 424 เมื่อพยายามตั้งค่าตัวแปรเพื่อเรียกที่อยู่ของเซลล์ลงในอีเมลของฉัน คุณช่วยได้ไหม ฉันรู้สึกว่าฉันอยู่ใกล้
Dim xRg เป็นช่วง
Dim xRgSel เป็นช่วง
'กำหนดช่วงและเป้าหมาย
Worksheet_Change ย่อยส่วนตัว (เป้าหมายเป็นช่วง ByVal)
Dim xRgPre เป็นช่วง
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า Target.Cells.Count > 1 แล้วออกจาก Sub
ตั้งค่า xRg = ช่วง ("Q2:Q43")
ตั้งค่า xRgPre = xRg.Precedents
ตั้งค่า xRgSel = อินเตอร์เซก (เป้าหมาย xRg)
ActiveWorkbook บันทึก
ถ้า xRg.Value > 7 แล้ว
โทร Mail_small_Text_Outlook
ElseIf (ไม่ใช่ xRgPre ไม่มีอะไร) และ (ตัดกัน (เป้าหมาย xRgPre).Address = Target.Adress) จากนั้น
End If
End If
ย่อยสิ้นสุด
อีเมลย่อย_small_Text_Outlook()
Dim xOutApp เป็นวัตถุ
Dim xOutMail เป็นวัตถุ
Dim xMailBody เป็นสตริง
ตั้งค่า xOutApp = CreateObject("Outlook.Application")
ตั้งค่า xOutMail = xOutApp.CreateItem(0)
xMailBody = "สวัสดี เซลล์" & xRgSel.Address (เท็จ เท็จ) & _
" ในใบงาน '" & Me.Name & "' คือ 3 วันที่ผ่านมาการบริโภค" & vbNewLine & vbNewLine & _
"โปรดตรวจสอบและติดต่อกับลูกค้าเป้าหมาย" & vbNewLine & _
"ขอบคุณ"
เกี่ยวกับข้อผิดพลาดต่อไป
ด้วย xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "วันนับตั้งแต่ได้รับสารตะกั่ว"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display 'หรือ .Send
จบด้วย
เมื่อเกิดข้อผิดพลาด GoTo 0
ตั้งค่า xOutMail = Nothing
ตั้งค่า xOutApp = Nothing
ย่อยสิ้นสุด
ขอบคุณ!