0
แก้
โหวต
สวัสดี
ฉันกำลังพยายามส่งอีเมลโดยอิงจากการเปลี่ยนแปลงค่าของเซลล์ทางอ้อม (เช่น > 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
.ถึง = ""
.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
.ถึง = ""
.CC = ""
.BCC = ""
.Subject = "วันนับตั้งแต่ได้รับสารตะกั่ว"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display 'หรือ .Send
จบด้วย
เมื่อเกิดข้อผิดพลาด GoTo 0
ตั้งค่า xOutMail = Nothing
ตั้งค่า xOutApp = Nothing
ย่อยสิ้นสุด
ขอบคุณ!
สวัสดี,
เมื่อคุณได้รับข้อผิดพลาด 424 โปรดคลิกแก้ไขข้อบกพร่อง จากนั้นจับภาพหน้าจอของปัญหาที่พบ
เรารันโค้ดที่คุณให้มา มันใช้งานได้ดีหลังจากที่เราเปลี่ยน สิ้นสุด if ด้านล่างถึง ทางออกย่อย.
โปรดเปลี่ยนรหัสของคุณให้เหมาะสม จากนั้นลองใช้งานเพื่อดูว่าใช้งานได้ตามที่คุณต้องการหรือไม่
อแมนดา
เมื่อคุณได้รับข้อผิดพลาด 424 โปรดคลิกแก้ไขข้อบกพร่อง จากนั้นจับภาพหน้าจอของปัญหาที่พบ
เรารันโค้ดที่คุณให้มา มันใช้งานได้ดีหลังจากที่เราเปลี่ยน สิ้นสุด if ด้านล่างถึง ทางออกย่อย.
โปรดเปลี่ยนรหัสของคุณให้เหมาะสม จากนั้นลองใช้งานเพื่อดูว่าใช้งานได้ตามที่คุณต้องการหรือไม่
อแมนดา
ขอบคุณอแมนดา! อย่างไรก็ตาม ฉันยังคงได้รับข้อผิดพลาด และข้อความแจ้งไม่มีตัวเลือก "แก้ไขข้อบกพร่อง" ฉันค่อนข้างใหม่กับ VBA อาจเป็นการเยื้องของฉันได้หรือไม่ เห็นว่ามันทำงานในส่วนของคุณ ฉันได้ลองอัปโหลดภาพหน้าจอแล้วแต่มีปัญหาในการส่งข้อความตอบกลับ (กำลังโหลดเป็นเวลานาน เพียงแจ้งล่วงหน้า)
0
แก้
โหวต
ขอบคุณอแมนดา! อย่างไรก็ตาม ฉันยังคงได้รับข้อผิดพลาด และข้อความแจ้งไม่มีตัวเลือก "แก้ไขข้อบกพร่อง" ฉันค่อนข้างใหม่กับ VBA อาจเป็นการเยื้องของฉันได้หรือไม่ เห็นว่ามันทำงานในส่วนของคุณ ฉันได้ลองอัปโหลดภาพหน้าจอแล้วแต่มีปัญหาในการส่งข้อความตอบกลับ (กำลังโหลดเป็นเวลานาน เพียงแจ้งล่วงหน้า)
คุณสามารถลองโพสต์พร้อมไฟล์แนบได้เลย
สวัสดี Amanda และ ExcelFan ขออภัยในความล่าช้า ฉันเปลี่ยน End if เป็น Exit Sub แต่ฉันยังคงไม่สามารถเพิ่มไฟล์ excel หรือภาพหน้าจอได้ด้วยเหตุผลบางประการ - ฉันไม่สามารถตอบกลับพร้อมไฟล์แนบได้ ฉันไม่สามารถเพิ่มไฟล์ excel ได้เนื่องจากเป็นไฟล์ xlsm และไม่รองรับการอัปโหลดไฟล์ อย่างไรก็ตามเราสามารถแชทผ่านอีเมลได้หรือไม่? ด้วยวิธีนี้ฉันสามารถส่งไฟล์ได้
0
แก้
โหวต
สวัสดี Amanda ขอโทษสำหรับความล่าช้า ฉันเปลี่ยน End if เป็น Exit Sub แต่ฉันไม่สามารถเพิ่มไฟล์ excel หรือภาพหน้าจอได้ด้วยเหตุผลบางประการ - ฉันไม่สามารถตอบกลับพร้อมไฟล์แนบ ฉันไม่สามารถเพิ่มไฟล์ excel ได้เนื่องจากเป็นไฟล์ xlsm และไม่รองรับการอัปโหลดไฟล์ เราคุยกันทางอีเมลได้ไหม
สวัสดี
ทำไมไม่บันทึกเป็น zip หรือ rar?
ฉันไม่สามารถโพสต์ไฟล์ประเภทใด ๆ ได้ โชคไม่ดีหรือลิงก์ ฉันเอื้อมมือออกไปให้การสนับสนุน แต่ตอนนี้ยังตอบอยู่ ไม่ทราบสาเหตุ แต่พอส่งเพจโหลดแล้วไม่ส่ง ได้ลองใช้เบราว์เซอร์หลายตัว ล้างแคชของฉัน และอุปกรณ์หลายเครื่อง:/
ฉันซาบซึ้งในความตั้งใจของคุณที่จะช่วย! ขออภัย ไม่สามารถส่งไฟล์ได้ในขณะนี้
ฉันซาบซึ้งในความตั้งใจของคุณที่จะช่วย! ขออภัย ไม่สามารถส่งไฟล์ได้ในขณะนี้
สวัสดีอแมนด้า!
นี่คือ Ryan4 จาก ExtendOffice. ขอขอบคุณที่ส่งที่อยู่อีเมลของคุณเพื่อช่วยแก้ปัญหา ฉันตั้งใจที่จะเป็นสมาชิกที่มีความกระตือรือร้นนับตั้งแต่ค้นพบชุมชนที่ยอดเยี่ยมของคุณ ดังนั้นฉันหวังว่าจะสามารถแก้ไขปัญหาการอัปโหลดไฟล์ได้ในที่สุด!
สำหรับตอนนี้ โปรดดูไฟล์แนบที่นี่ ฉันได้อัปเดตโค้ดเป็น "Exit Sub" แทนที่จะเป็น "End if" แต่ฉันยังคงได้รับข้อผิดพลาดโดยไม่มีตัวเลือกการดีบัก คุณช่วยแนะนำได้ไหม บางทีอาจเป็นโครงสร้างหรือเยื้องของฉัน
ขอขอบคุณอีกครั้งสำหรับความช่วยเหลือ!
ไรอัน
สวัสดีไรอัน
ได้รับข้อความอีเมลแล้ว เนื่องจากอาจมีผู้ใช้รายอื่นที่มีปัญหาเดียวกัน ฉันจะตอบกลับที่นี่
โปรดลองวิธีการด้านล่าง:
1 เปิด อ้างอิง.
2 ตรวจสอบ ไลบรารีอ็อบเจ็กต์ Microsoft Outlook 16.0. หมายเหตุ: แทนที่จะเป็น 16.0 คุณอาจมี 15.0, 14.0 เป็นต้น
3. แทนที่รหัสด้านล่าง
Dim xOutApp As Object
Dim xOutMail As Objectไปยัง
Dim xOutApp As Outlook.Application
Dim xOutMail As Outlook.MailItemโปรดลอง 3 ขั้นตอนข้างต้น เนื่องจาก vba ของคุณทำงานได้ดีบนคอมพิวเตอร์ของเรา ดังนั้นจึงเป็นเรื่องยากสำหรับเราที่จะทำซ้ำปัญหา หวังว่าวิธีนี้จะช่วยคุณได้!
อแมนดา
สวัสดี Amanda ฉันมี Microsoft Outlook 16.0 Object Library แต่น่าเสียดายที่สิ่งนี้ใช้ไม่ได้เช่นกัน - ฉันมีข้อผิดพลาดใหม่ที่ชี้ไปที่รหัสปัญหา ดูเหมือนว่า Outlook.Application ไม่ใช่ประเภทที่กำหนดไว้ ฉันต้องสร้างการเชื่อมโยงล่วงหน้าเพื่อให้มีคุณสมบัติตามที่กำหนดหรือไม่
ขอขอบคุณ!
(ปล. ฉันไม่สามารถส่งภาพหน้าจอ / ไฟล์แนบได้ - จะส่งทางอีเมล แต่สามารถโพสต์ที่นี่สำหรับชุมชนได้เช่นกัน)
ขอขอบคุณ!
(ปล. ฉันไม่สามารถส่งภาพหน้าจอ / ไฟล์แนบได้ - จะส่งทางอีเมล แต่สามารถโพสต์ที่นี่สำหรับชุมชนได้เช่นกัน)
แย่จัง :/ ฉันสงสัยว่ามันคืออะไร ฉันจะลองเล่นดูมากกว่านี้
เกี่ยวกับไฟล์ฉันลองแล้ว ฉันอัปโหลดได้ดี แต่หลังจากตรวจสอบแล้วฉันไม่ใช่หุ่นยนต์และกดตอบกลับ หน้าเพิ่งโหลดและโหลด แต่ไม่เคยส่ง ฉันสามารถตอบกลับได้ดีโดยไม่มีไฟล์แนบ อแมนด้า ฉันส่งไฟล์แนบและหนังสือให้คุณทางอีเมลแล้ว
จะแจ้งให้ทราบหากฉันได้รับการแก้ไข!
ขอบคุณสำหรับความช่วยเหลือทั้งหมดต่อไป
ไรอัน
เกี่ยวกับไฟล์ฉันลองแล้ว ฉันอัปโหลดได้ดี แต่หลังจากตรวจสอบแล้วฉันไม่ใช่หุ่นยนต์และกดตอบกลับ หน้าเพิ่งโหลดและโหลด แต่ไม่เคยส่ง ฉันสามารถตอบกลับได้ดีโดยไม่มีไฟล์แนบ อแมนด้า ฉันส่งไฟล์แนบและหนังสือให้คุณทางอีเมลแล้ว
จะแจ้งให้ทราบหากฉันได้รับการแก้ไข!
ขอบคุณสำหรับความช่วยเหลือทั้งหมดต่อไป
ไรอัน
- หน้า:
- 1
ไม่มีคำตอบสำหรับโพสต์นี้