Missing attachment warning

Status
Not open for further replies.

Thomy

Member
Hello.




I am trying to personalize my Outlook to avoid sending useless e-mails. For instance, since I have no knowledge of Visual Basic, I have found on the web the following script to avoid sending e-mails with no subject:


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)


Dim strSubject As String


strSubject = Item.Subject


If Len(strSubject) = 0 Then


Prompt$ = "Subject not present, continue?"


If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check for Subject") = vbNo Then


Cancel = True


End If


End If


End Sub




It works fine. Now I would like something different:


I would like a similar warning when I am trying to send an e-mail without attachment to more then, let’s say, 8 addresses. The idea is that when I send an e-mail to several recipients I usually have to attach something, so this would be a valuable warning to avoid forgetting it.




Can you help?




Thanks,




Tom
 
S

Sue Mosher [MVP]

Add another If ... End If block to check the value of Item.Recipients.Count.

Sue Mosher

"Thomy" wrote:



> Hello.

> I am trying to personalize my Outlook to avoid sending useless e-mails.
> For instance, since I have no knowledge of Visual Basic, I have found on
> the web the following script to avoid sending e-mails with no subject:
> Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
> Boolean)
> Dim strSubject As String
> strSubject = Item.Subject
> If Len(strSubject) = 0 Then
> Prompt$ = "Subject not present, continue?"
> If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check
> for Subject") = vbNo Then
> Cancel = True
> End If
> End If
> End Sub

> It works fine. Now I would like something different:
> I would like a similar warning when I am trying to send an e-mail
> without attachment to more then, let's say, 8 addresses. The idea is
> that when I send an e-mail to several recipients I usually have to
> attach something, so this would be a valuable warning to avoid
> forgetting it.

> Can you help?

> Thanks,

> Tom

> > Thomy
>

> .
>
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
M Outlook calendar is missing Using Outlook 2
witzker Open Contact missing in Outlook 2019 Using Outlook 2
L Outlook 2016 Contacts missing in Outlook 365 Using Outlook 1
M Missing emails in Inbox, but are present in webmail Using Outlook 0
M Simplified ribbon missing Using Outlook 3
T Missing Folder in Outlook.com Using Outlook 3
G Missing forward/replied icons Using Outlook 2
T 3 months of archived e-mail is missing Using Outlook 1
T Missing text in e-mail message after "(Please keep confidential)" Using Outlook 3
A Outlook 2016 Web add-in missing on some machines Using Outlook 9
C iCloud Setting missing Outlook tab and Outlook missing the iCloud refresh button Using Outlook 4
O Outlook 365 - Toolbar - Close all items - missing? Using Outlook 3
V Items missing in Sent folder Using Outlook 10
A Missing context menu on Location field Using Outlook 2
J Outlook 2016 - Tasks View Settings Missing Using Outlook 1
S Missing Outlook calendar and contacts Using Outlook 0
T Missing Outlook subordinate folder Using Outlook 0
J Tasks - the missing link... for me at least. Using Outlook 4
M Outlook 2013 fails to start -- missing WindowsCodecs.dll error Using Outlook 3
GregS Dropdown address list missing Using Outlook 1
J Control Panel Mail (settings) icon missing Using Outlook 2
P Current View Pane for Contacts missing from Outlook 2016 Using Outlook 3
C Attached files on Outlook 2010 Sp1 & Exc 2013 are missing Exchange Server Administration 1
P Missing Folder Using Outlook 1
Werewolf Workaround for the missing Activities tab in Contact Folder Properties in Outlook 2010? Using Outlook 2
P Contacts gone missing in Outlook 2013 POP Using Outlook 4
N Outlook 2010 on re-imaged computer missing calendar/contacts Using Outlook 0
Diane Poremsky Shortcuts and the Missing Outlook:// Protocol Using Outlook 0
Diane Poremsky Task Request Status Update Address Missing Using Outlook 0
Diane Poremsky Check for missing attachments before sending a message Using Outlook 1
O Missing guide "Move an Outlook Personal Folders .pst File" Using Outlook 4
A Outlook Postal Addresses Missing/Blank Using Outlook 0
Diane Poremsky Contacts are missing when you click the To button Using Outlook 0
Diane Poremsky Exchange account set-up missing in Outlook 2016 Using Outlook 0
elzopi VBA missing Stationery Picker. Outlook VBA and Custom Forms 5
makinmyway ScanPST.exe Missing Repair Button Using Outlook 15
K IMAP Subfolders missing after migrating to new server Using Outlook 0
R Missing Quick Steps and Rules Using Outlook 0
P Outlook 2010: Missing tab - "Format/Picture Tools" HELP! Using Outlook 3
K pr_container class missing Using Outlook 1
J Missing BCM TAB Main Menu - 2007 BCM (Business Contact Manager) 2
M Missing Drafts (Drafts - This Computer Only) Outlook.com Using Outlook 1
K Missing Categories & Colors Using Outlook 5
C Export to excel missing items, but a larger total? BCM (Business Contact Manager) 6
T Missing sub-contact folders (distribution lists) Using Outlook 3
F Missing "More Settings" in Outlook 2007 Professional Using Outlook 8
wisedave Missing icon that show message was forwarded, etc Using Outlook 1
Brian Outlook List of custom task views missing in OL2013 Using Outlook 2
S Outlook 2013 Appointments missing Using Outlook 1
mikecox Missing alarm flag Using Outlook 2

Similar threads

Top