Well, this doesnt work worth crap :(
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If TypeOf Item Is Outlook.MailItem Then
Cancel = Not SendBigMail(Item)
End If
End Sub
Private Function SendBigMail(oMail As Outlook.MailItem) As Boolean
Dim lSize As Long...
Ive been searching for hours... I'm trying to write a small macro or whatever to check the persons email's attachment size before it is sent. If above 1 meg or whatever, display error msg.
Nothing is out there on the internet. I found one peice of code, but it doesnt get the attachment size...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.