นั่นไม่ใช่พฤติกรรมดั้งเดิมสำหรับ Outlook ไม่มีแม้แต่ตัวเลือกสำหรับกฎการทำเช่นนี้ มีแอดออนเพิ่มเติมสำหรับการจัดการไฟล์แนบ แต่ฉันไม่รู้ว่าอันไหนจะทำในสิ่งที่คุณต้องการ ด้านล่างเป็นทางเลือก
ในบทความบล็อกลบ vcf Attachment จาก Email ขาเข้ามันจะอธิบายวิธีการใช้ VBA เพื่อตรวจสอบและลบ.vcf
สิ่งที่แนบมา รหัสด้านล่างสามารถอยู่ในThisOutlookSession
โมดูล มันจะทำงานเมื่อได้รับอีเมลเพื่อลบไฟล์แนบที่มี.vcf
นามสกุล
โปรดทราบว่าจะลบข้อมูลทั้งหมด ไม่ใช่เฉพาะเจาะจง
Private Sub Application_NewMail()
Dim mi As MailItem
Dim att As Attachment
For Each mi In Me.GetNamespace(“MAPI”).GetDefaultFolder(olFolderInbox).Items
If mi.Unread Then
If mi.Attachments.Count > 0 Then
For Each att In mi.Attachments
If Right$(att.FileName, 4) = “.vcf” Then
att.Delete
mi.Save
Exit For
End If
Next att
End If
End If
Next mi
End Sub
ฉันไม่อ้างว่ามันจะทำงานได้อย่างไรเพราะฉันไม่รู้ว่าระดับความเชี่ยวชาญของคุณคืออะไรและฉันยังไม่ได้ทดสอบ ไม่ว่าจะด้วยวิธีใดคุณควรไปในทิศทางที่ถูกต้อง