Sorry that should be
Sub CheckMailSize()
Dim CurrentMsg As Outlook.MailItem
Set CurrentMsg = ActiveInspector.CurrentItem
If (Not CurrentMsg Is Nothing) And (TypeName(CurrentMsg) = _
"MailItem") Then
MsgBox "Double-click on a message first."
Exit Sub
End If
MsgBox "This message is " & CurrentMsg.Size & " kb."
End Sub
On Jan 11, 4:15*pm, JP <jp2...@earthlink.net> wrote:
> Here is a VBA solution, if you were interested. It works on an email
> you are composing, or one you received from someone else and are
> currently viewing.
>
> Sub CheckMailSize()
> Dim CurrentMsg As Outlook.MailItem
>
> Set CurrentMsg = ActiveInspector.CurrentItem
>
> If (Not CurrentMsg Is Nothing) And (TypeName(CurrentMsg) <>
> "MailItem") Then
> * *MsgBox "Double-click on a message first."
> * *Exit Sub
> End If
>
> MsgBox "This message is " & CurrentMsg.Size & " kb."
>
> End Sub
>
> To install:
>
> 1. Hit Alt-F11 in Outlook to open VB Editor
> 2. Click Insert>Module
> 3. Copy/Paste the code above into the module.
> 4. Alt-Q to close and return to Outlook.
> 5. With the email open, hit Alt-F8, choose "CheckMailSize" and hit
> 'Run'.
>
> HTH,
> JP
>
> On Jan 11, 3:47*pm, jojo <j...@discussions.microsoft.com> wrote:
>
>
>
> > I want to be able to tell how large in size an email is prior to sendingit
> > out. *I want this to include attachments being sent as well- Hide quoted text -
>
> - Show quoted text -
|