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

For that use the same event. See the Item.Attachments collection, if its
Count property is 0, there's no attachment.

--
Best regards
Michael Bauer - MVP Outlook
Category Manager - Manage and share your categories:
SAM - The Sending Account Manager:
http://www.vboffice.net/product.html?lang=en


Am Mon, 10 May 2010 13:31:19 +0100 schrieb Thomy:

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

Thank you Michael.
I can guess that the logic to use is the one you have suggested. The problem is that, with no programming knowledge, I lack the right syntax.
Is someone willing to compose something for me?

Thanks again.

Tom

You might also look on www.slipstick.com. There're are ready-to-use Addins
for that available.

--
Best regards
Michael Bauer - MVP Outlook
Category Manager - Manage and share your categories:
SAM - The Sending Account Manager:
http://www.vboffice.net/product.html?lang=en


Am Tue, 11 May 2010 10:26:59 +0100 schrieb Thomy:

Thank you Michael.
I can guess that the logic to use is the one you have suggested. The
problem is that, with no programming knowledge, I lack the right
syntax.
Is someone willing to compose something for me?

Thanks again.

Tom

'Michael Bauer [MVP - Outlook Wrote:
;348672']For that use the same event. See the Item.Attachments
collection, if its
Count property is 0, there's no attachment.

--
Best regards
Michael Bauer - MVP Outlook
Category Manager - Manage and share your categories:
SAM - The Sending Account Manager:
http://www.vboffice.net/product.html?lang=en