ฉันใช้ขั้นตอนจากโพสต์อื่นในไซต์นี้และใช้งานได้สองสามวันและตอนนี้ก็ไม่ได้ ไฟล์มาจากบุคคลเดียวกันเสมอและเป็นไฟล์แนบ xlsm เสมอ
ฉันเปิดใช้งานกฎเมลไคลเอ็นต์ที่ไม่ปลอดภัยในมุมมองเพื่อเปิดใช้งานสคริปต์
ฉันสร้างกฎที่ย้ายอีเมลจากบุคคลที่เฉพาะเจาะจงไปยังโฟลเดอร์ย่อยภายใต้กล่องจดหมาย
จากนั้นเรียกใช้สคริปต์ต่อไปนี้
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "c:\Automation\CBM\"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Set objAtt = Nothing
Next
End Subการย้ายไปยังโฟลเดอร์ย่อยจะทำงานได้ แต่การบันทึกสิ่งที่แนบไปยังตำแหน่งโฟลเดอร์จะไม่ทำงานอีกต่อไป
ฉันตรวจสอบการตั้งค่ามาโครและพวกเขาถูกตั้งค่าให้เปิดใช้งานทั้งหมด
ฉันไม่แน่ใจว่าทำไมมันหยุดทำงาน มันทำงาน แต่หลังจากการย้ายไปยังโฟลเดอร์ย่อยไม่มีอะไรเกิดขึ้น
คำแนะนำใด ๆ จะได้รับการชื่นชมอย่างมาก
กฎอาจทำงานได้ แต่คุณรู้ได้อย่างไรว่ารหัสทำงานอย่างไร คุณสามารถใส่ MsgBox เพื่อตรวจสอบ หากรหัสกำลังทำงานอยู่คุณสามารถใส่รหัสเพื่อย้ายรายการหลังจากบันทึกสิ่งที่แนบมาแล้วปล่อยการย้ายจากกฎ
—
niton
ฉันไม่คิดว่ามันกำลังดำเนินการ ฉันเพิ่ม MsgBoxs ลงในโค้ดและไม่มีอะไรปรากฏขึ้น .... ฉันยังไม่สามารถรันโค้ดจากโมดูล ... แสดงว่างฉันเพิ่ม MsgBox "โค้ดเริ่มต้น" ด้านล่างสลัว saveFolder As String และ MsgBox "สิ้นสุด code "ในระหว่าง Next และ End Sub
—
Mindbender
หากไม่มีวิธีแก้ปัญหาสำหรับคำถามนี้คุณสามารถสลับไปที่ ItemAdd ซึ่งจะทำงานเมื่อมีการย้ายจดหมายโดยอัตโนมัติหรือด้วยตนเองลงในโฟลเดอร์ที่ระบุ superuser.com/questions/286658/…
—
niton
ฉันพบรหัสนี้และแก้ไขเพื่อให้ตรงกับความต้องการของฉัน มันใช้งานได้ แต่ฉันไม่แน่ใจว่าจะแก้ไขได้อย่างไร สิ่งที่ฉันต้องการจะทำคือบันทึกไฟล์เป็น Report_ACTIVITY.xlsm ทุกครั้ง คุณช่วยได้ไหม นี่คือลิงค์ไปยังรหัสต้นฉบับที่ฉันใช้ http: //www.vbaexpress.com/kb/getarticle.php? kb_id = 522
—
Mindbender
คุณสามารถสร้างคำถามใหม่ได้ แต่เนื่องจากคำถามที่ถามบ่อยนี้ไม่จำเป็นต้องถามอีก ดู stackoverflow.com/questions/43639596/…
—
niton