Это не родное поведение для Outlook. Там даже нет никаких вариантов для правил, чтобы сделать это. Существует множество надстроек для обработки вложений, но я не знаю, какие из них будут делать то, что вы ищете. Ниже приводится альтернатива.
В статье блога Delete vcf Attachment from Incoming Emails объясняется, как использовать 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
Я не претендую на то, как это будет работать, потому что я не знаю, каков ваш уровень знаний, и я не проверял это. В любом случае, это должно привести вас в правильном направлении.