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
http://forums.slipstick.com

Add another If ... End If block to check the value of Item.Recipients.Count.
--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54



"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
http://forums.slipstick.com

.