有没有办法检测Outlook邮件是否没有附件？

1 回答

• 0

  您可以在VBScript中轻松完成此操作，如下所示：

  Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  Dim m As Variant
  Dim strBody As String
  Dim intIn As Long
  Dim intAttachCount As Integer, intStandardAttachCount As Integer
  
  On Error GoTo handleError
  
  'Edit the following line if you have a signature on your email that includes images or other files. Make intStandardAttachCount equal the number of files in your signature.
  intStandardAttachCount = 0
  
  strBody = LCase(Item.Body)
  
  intIn = InStr(1, strBody, "original message")
  
  If intIn = 0 Then intIn = Len(strBody)
  
  intIn = InStr(1, Left(strBody, intIn), "attach")
  
  intAttachCount = Item.Attachments.Count
  
  If intIn > 0 And intAttachCount <= intStandardAttachCount Then
  
      m = MsgBox("It appears that you mean to send an attachment," & vbCrLf & "but there is no attachment to this message." & vbCrLf & vbCrLf & "Do you still want to send?", vbQuestion + vbYesNo + vbMsgBoxSetForeground)
  
      If m = vbNo Then Cancel = True
  
  End If
  
  handleError:
  
  If Err.Number <> 0 Then
      MsgBox "Outlook Attachment Reminder Error: " & Err.Description, vbExclamation, "Outlook Attachment Reminder Error"
  End If
  
  End Sub
  

  这可以根据您的确切需要进行修改，但它非常简单 .

  简单的谷歌搜索 . 给编写它的人credit .

  回复于 2024-04-28T18:08:51+08:00