Additionally to the brilliant suggestions made, this might be helpful as
well. Open the VBA environment and copy the code into ThisOutlookSession and
click Save. You must edit the workbook's name, of course:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error Resume Next
Dim Att As Outlook.Attachment
Dim Attachments As Outlook.Attachments
Dim i&
Set Attachments = Item.Attachments
If Not Attachments Is Nothing Then
For i = 1 To Attachments.Count
Set Att = Attachments.Item(i)
If LCase$(Att.FileName) = LCase$("yourWorkbookNameHere.xls") Then
Cancel = True
MsgBox "Remember? Don't send " & Att.FileName & "!"
Exit For
End If
Next
End If
End Sub
--
Best regards
Michael Bauer - MVP Outlook
Use Outlook Categories? This is Your Tool:
<
http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6>
Am Wed, 13 Feb 2008 11:59:04 -0800 schrieb Cathy: