PC Review


Reply
Thread Tools Rate Thread

how can I tell the size of an email prior to sending

 
 
jojo
Guest
Posts: n/a
 
      11th Jan 2008
I want to be able to tell how large in size an email is prior to sending it
out. I want this to include attachments being sent as well
 
Reply With Quote
 
 
 
 
JP
Guest
Posts: n/a
 
      11th Jan 2008
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 sending it
> out. *I want this to include attachments being sent as well


 
Reply With Quote
 
JP
Guest
Posts: n/a
 
      11th Jan 2008
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 -


 
Reply With Quote
 
dlw
Guest
Posts: n/a
 
      11th Jan 2008
or save it in drafts and add the size field to the list view

"jojo" wrote:

> I want to be able to tell how large in size an email is prior to sending it
> out. I want this to include attachments being sent as well

 
Reply With Quote
 
 
 
Reply

Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
How can I validate an email address prior to sending an email? =?Utf-8?B?SWR5IENsYXJl?= Microsoft Outlook Discussion 8 30th Jun 2006 03:14 PM
How can I validate an email address prior to sending an email? =?Utf-8?B?SWR5IENsYXJl?= Microsoft Outlook Discussion 0 29th Jun 2006 02:33 PM
Outlook promt to save prior to sending email =?Utf-8?B?c2Vhbg==?= Microsoft Outlook VBA Programming 1 17th Mar 2005 06:49 AM
Can you print a RE or FW email w/HEADERS prior to sending w/o sen. =?Utf-8?B?amtjYmQ=?= Microsoft Outlook Discussion 0 10th Mar 2005 03:29 PM
Changing email accounts prior to sending an email =?Utf-8?B?UGl0Y2gx?= Microsoft Outlook Discussion 4 1st Nov 2004 01:22 PM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 12:10 AM.