You are here: Office-Outlook.com  / Outlook Forum

Would like the pop-up warning when sending External emails

Home » General Outlook opportunities » Outlook
Would like the pop-up warning when sending External emails [message #94450] Tue, 05 December 2006 00:56 Go to next message
Whuzzuupp
Messages: 4
Registered: December 2006
Junior Member
Is it possiable to create an Add-on/vbs script to prompt user with a warning
dialog box when sending mail to an external email address? This feature
exists in Lotus Notes.

Environment:Outlook 2003/WinXPPro/Exchange2003

Thanks in Advance
Re: Would like the pop-up warning when sending External emails [message #94885] Tue, 05 December 2006 22:48 Go to previous messageGo to next message
Whuzzuupp
Messages: 4
Registered: December 2006
Junior Member
Thanks for that. Can you giude me on how to add this to outlook. I will then
need to package it somehow to rollout to 100 users.

Cheers

"John Blessing" wrote:

> "Whuzzuupp" <Whuzzuupp@discussions.microsoft.com> wrote in message
> news:14E7A85D-761E-4DBE-99C1-76AE30DD4264@microsoft.com...
> > Is it possiable to create an Add-on/vbs script to prompt user with a
> > warning
> > dialog box when sending mail to an external email address? This feature
> > exists in Lotus Notes.
> >
> > Environment:Outlook 2003/WinXPPro/Exchange2003
> >
> > Thanks in Advance
>
> I would put some code in the Application_ItemSend event and check recipients
>
>
> Dim objRecipients As Outlook.Recipients
>
> Dim lIndex As Long
>
>
> Dim strtemp As String
>
>
> Set objRecipients = Item.Recipients
> lIndex = 1
> strtemp = ""
> Do While objRecipients.Count >= lIndex
> strtemp = strtemp & ";" & objRecipients(lIndex)
> lIndex = lIndex + 1
> Loop
> 'check for any internet style addresses that are not in your domain
> if instr(1, strtemp,"@")> 0 AND instr(1, strtemp,"yourdomain")= 0 THEN
> Application.ActiveExplorer.Activate
> If MsgBox("Are you sure?", vbYesNo) = vbNo Then
> Cancel = True
> End If
> End If
>
> --
> John Blessing
>
> http://www.LbeHelpdesk.com - Help Desk software priced to suit all
> businesses
> http://www.room-booking-software.com - Schedule rooms & equipment bookings
> for your meeting/class over the web.
> http://www.lbetoolbox.com - Remove Duplicates from MS Outlook, find/replace,
> send newsletters
>
>
>
Re: Would like the pop-up warning when sending External emails [message #94966] Wed, 06 December 2006 06:24 Go to previous messageGo to next message
suemvp
Messages: 18932
Registered: May 2006
Senior Member
Ideally, you'd need to build an Outlook add-in, which you can then deploy using your normal application deployment techniques. See http://www.outlookcode.com/d/comaddins.htm . There is no deployment story for VBA code.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"John Blessing" <blessij@**REMOVE**THIS**gmail.com> wrote in message news:zhAdh.1064$Qa6.291@newsfe6-gui.ntli.net...
>
> "Whuzzuupp" <Whuzzuupp@discussions.microsoft.com> wrote in message
> news:FB0F1A2D-9373-471D-9536-A536F5507572@microsoft.com...
>> Thanks for that. Can you giude me on how to add this to outlook. I will
>> then
>> need to package it somehow to rollout to 100 users.
>>
>
> Sorry, maybe one of the MVPs can tell you how to deploy to multiple users.
Re: Would like the pop-up warning when sending External emails [message #97744] Wed, 13 December 2006 15:58 Go to previous messageGo to next message
Whuzzuupp
Messages: 4
Registered: December 2006
Junior Member
Thanks John for you help. This has given me a great starting point. It works
great with only a few things I'll like to add.

With the script I'm having issues trying to add a second domain name in the
search as we run 2 domains in the company.
....
if instr(1, strtemp,"@")> 0 AND instr(1, strtemp,"yourdomain.com.au" or
“domain2.com”)= 0 THEN
.....

Also

When carrying out the search, it doesn't pick up external emails addresses
if the contact is in the address book with the display name NOT showing the
email address. If the display name is the email address, it works.

Thanks in Advance





"John Blessing" wrote:

> "Whuzzuupp" <Whuzzuupp@discussions.microsoft.com> wrote in message
> news:14E7A85D-761E-4DBE-99C1-76AE30DD4264@microsoft.com...
> > Is it possiable to create an Add-on/vbs script to prompt user with a
> > warning
> > dialog box when sending mail to an external email address? This feature
> > exists in Lotus Notes.
> >
> > Environment:Outlook 2003/WinXPPro/Exchange2003
> >
> > Thanks in Advance
>
> I would put some code in the Application_ItemSend event and check recipients
>
>
> Dim objRecipients As Outlook.Recipients
>
> Dim lIndex As Long
>
>
> Dim strtemp As String
>
>
> Set objRecipients = Item.Recipients
> lIndex = 1
> strtemp = ""
> Do While objRecipients.Count >= lIndex
> strtemp = strtemp & ";" & objRecipients(lIndex)
> lIndex = lIndex + 1
> Loop
> 'check for any internet style addresses that are not in your domain
> if instr(1, strtemp,"@")> 0 AND instr(1, strtemp,"yourdomain")= 0 THEN
> Application.ActiveExplorer.Activate
> If MsgBox("Are you sure?", vbYesNo) = vbNo Then
> Cancel = True
> End If
> End If
>
> --
> John Blessing
>
> http://www.LbeHelpdesk.com - Help Desk software priced to suit all
> businesses
> http://www.room-booking-software.com - Schedule rooms & equipment bookings
> for your meeting/class over the web.
> http://www.lbetoolbox.com - Remove Duplicates from MS Outlook, find/replace,
> send newsletters
>
>
>
Re: Would like the pop-up warning when sending External emails [message #98030] Thu, 14 December 2006 09:53 Go to previous messageGo to next message
John Blessing
Messages: 349
Registered: July 2006
Senior Member
if instr(1, strtemp,"@")> 0 AND instr(1, strtemp,"yourdomain.com.au")=0
AND instr(1, strtemp,"yourseconddomain.com.au")=0


--
John Blessing

http://www.LbeHelpdesk.com - Help Desk software priced to suit all
businesses
http://www.room-booking-software.com - Schedule rooms & equipment bookings
for your meeting/class over the web.
http://www.lbetoolbox.com - Remove Duplicates from MS Outlook, find/replace,
send newsletters

"Whuzzuupp" <Whuzzuupp@discussions.microsoft.com> wrote in message
news:60398F36-12B7-4CD1-9992-BD43C96B4404@microsoft.com...
> Thanks John for you help. This has given me a great starting point. It
> works
> great with only a few things I'll like to add.
>
> With the script I'm having issues trying to add a second domain name in
> the
> search as we run 2 domains in the company.
> ...
> if instr(1, strtemp,"@")> 0 AND instr(1, strtemp,"yourdomain.com.au" or
> "domain2.com")= 0 THEN
> ....
>
> Also
>
> When carrying out the search, it doesn't pick up external emails addresses
> if the contact is in the address book with the display name NOT showing
> the
> email address. If the display name is the email address, it works.
>
> Thanks in Advance
>
>
>
>
>
> "John Blessing" wrote:
>
>> "Whuzzuupp" <Whuzzuupp@discussions.microsoft.com> wrote in message
>> news:14E7A85D-761E-4DBE-99C1-76AE30DD4264@microsoft.com...
>> > Is it possiable to create an Add-on/vbs script to prompt user with a
>> > warning
>> > dialog box when sending mail to an external email address? This feature
>> > exists in Lotus Notes.
>> >
>> > Environment:Outlook 2003/WinXPPro/Exchange2003
>> >
>> > Thanks in Advance
>>
>> I would put some code in the Application_ItemSend event and check
>> recipients
>>
>>
>> Dim objRecipients As Outlook.Recipients
>>
>> Dim lIndex As Long
>>
>>
>> Dim strtemp As String
>>
>>
>> Set objRecipients = Item.Recipients
>> lIndex = 1
>> strtemp = ""
>> Do While objRecipients.Count >= lIndex
>> strtemp = strtemp & ";" & objRecipients(lIndex)
>> lIndex = lIndex + 1
>> Loop
>> 'check for any internet style addresses that are not in your domain
>> if instr(1, strtemp,"@")> 0 AND instr(1, strtemp,"yourdomain")= 0 THEN
>> Application.ActiveExplorer.Activate
>> If MsgBox("Are you sure?", vbYesNo) = vbNo Then
>> Cancel = True
>> End If
>> End If
>>
>> --
>> John Blessing
>>
>> http://www.LbeHelpdesk.com - Help Desk software priced to suit all
>> businesses
>> http://www.room-booking-software.com - Schedule rooms & equipment
>> bookings
>> for your meeting/class over the web.
>> http://www.lbetoolbox.com - Remove Duplicates from MS Outlook,
>> find/replace,
>> send newsletters
>>
>>
>>
Re: Would like the pop-up warning when sending External emails [message #98033] Thu, 14 December 2006 10:02 Go to previous messageGo to next message
John Blessing
Messages: 349
Registered: July 2006
Senior Member
> Also
>
> When carrying out the search, it doesn't pick up external emails addresses
> if the contact is in the address book with the display name NOT showing
> the
> email address. If the display name is the email address, it works.

I missed that bit....

Good point. It would need to search the contacts, and check their email
address. Sorry, this is now more work than feasible on the current fee <g>

--
John Blessing

http://www.LbeHelpdesk.com - Help Desk software priced to suit all
businesses
http://www.room-booking-software.com - Schedule rooms & equipment bookings
for your meeting/class over the web.
http://www.lbetoolbox.com - Remove Duplicates from MS Outlook, find/replace,
send newsletters

"Whuzzuupp" <Whuzzuupp@discussions.microsoft.com> wrote in message
news:60398F36-12B7-4CD1-9992-BD43C96B4404@microsoft.com...
> Thanks John for you help. This has given me a great starting point. It
> works
> great with only a few things I'll like to add.
>
> With the script I'm having issues trying to add a second domain name in
> the
> search as we run 2 domains in the company.
> ...
> if instr(1, strtemp,"@")> 0 AND instr(1, strtemp,"yourdomain.com.au" or
> "domain2.com")= 0 THEN
> ....
>
> Also
>
> When carrying out the search, it doesn't pick up external emails addresses
> if the contact is in the address book with the display name NOT showing
> the
> email address. If the display name is the email address, it works.
>
> Thanks in Advance
>
>
>
>
>
> "John Blessing" wrote:
>
>> "Whuzzuupp" <Whuzzuupp@discussions.microsoft.com> wrote in message
>> news:14E7A85D-761E-4DBE-99C1-76AE30DD4264@microsoft.com...
>> > Is it possiable to create an Add-on/vbs script to prompt user with a
>> > warning
>> > dialog box when sending mail to an external email address? This feature
>> > exists in Lotus Notes.
>> >
>> > Environment:Outlook 2003/WinXPPro/Exchange2003
>> >
>> > Thanks in Advance
>>
>> I would put some code in the Application_ItemSend event and check
>> recipients
>>
>>
>> Dim objRecipients As Outlook.Recipients
>>
>> Dim lIndex As Long
>>
>>
>> Dim strtemp As String
>>
>>
>> Set objRecipients = Item.Recipients
>> lIndex = 1
>> strtemp = ""
>> Do While objRecipients.Count >= lIndex
>> strtemp = strtemp & ";" & objRecipients(lIndex)
>> lIndex = lIndex + 1
>> Loop
>> 'check for any internet style addresses that are not in your domain
>> if instr(1, strtemp,"@")> 0 AND instr(1, strtemp,"yourdomain")= 0 THEN
>> Application.ActiveExplorer.Activate
>> If MsgBox("Are you sure?", vbYesNo) = vbNo Then
>> Cancel = True
>> End If
>> End If
>>
>> --
>> John Blessing
>>
>> http://www.LbeHelpdesk.com - Help Desk software priced to suit all
>> businesses
>> http://www.room-booking-software.com - Schedule rooms & equipment
>> bookings
>> for your meeting/class over the web.
>> http://www.lbetoolbox.com - Remove Duplicates from MS Outlook,
>> find/replace,
>> send newsletters
>>
>>
>>
Re: Would like the pop-up warning when sending External emails [message #98118] Thu, 14 December 2006 13:51 Go to previous messageGo to next message
Whuzzuupp
Messages: 4
Registered: December 2006
Junior Member
Thank you, very much appreciated!!


"John Blessing" wrote:

> if instr(1, strtemp,"@")> 0 AND instr(1, strtemp,"yourdomain.com.au")=0
> AND instr(1, strtemp,"yourseconddomain.com.au")=0
>
>
> --
> John Blessing
>
> http://www.LbeHelpdesk.com - Help Desk software priced to suit all
> businesses
> http://www.room-booking-software.com - Schedule rooms & equipment bookings
> for your meeting/class over the web.
> http://www.lbetoolbox.com - Remove Duplicates from MS Outlook, find/replace,
> send newsletters
>
> "Whuzzuupp" <Whuzzuupp@discussions.microsoft.com> wrote in message
> news:60398F36-12B7-4CD1-9992-BD43C96B4404@microsoft.com...
> > Thanks John for you help. This has given me a great starting point. It
> > works
> > great with only a few things I'll like to add.
> >
> > With the script I'm having issues trying to add a second domain name in
> > the
> > search as we run 2 domains in the company.
> > ...
> > if instr(1, strtemp,"@")> 0 AND instr(1, strtemp,"yourdomain.com.au" or
> > "domain2.com")= 0 THEN
> > ....
> >
> > Also
> >
> > When carrying out the search, it doesn't pick up external emails addresses
> > if the contact is in the address book with the display name NOT showing
> > the
> > email address. If the display name is the email address, it works.
> >
> > Thanks in Advance
> >
> >
> >
> >
> >
> > "John Blessing" wrote:
> >
> >> "Whuzzuupp" <Whuzzuupp@discussions.microsoft.com> wrote in message
> >> news:14E7A85D-761E-4DBE-99C1-76AE30DD4264@microsoft.com...
> >> > Is it possiable to create an Add-on/vbs script to prompt user with a
> >> > warning
> >> > dialog box when sending mail to an external email address? This feature
> >> > exists in Lotus Notes.
> >> >
> >> > Environment:Outlook 2003/WinXPPro/Exchange2003
> >> >
> >> > Thanks in Advance
> >>
> >> I would put some code in the Application_ItemSend event and check
> >> recipients
> >>
> >>
> >> Dim objRecipients As Outlook.Recipients
> >>
> >> Dim lIndex As Long
> >>
> >>
> >> Dim strtemp As String
> >>
> >>
> >> Set objRecipients = Item.Recipients
> >> lIndex = 1
> >> strtemp = ""
> >> Do While objRecipients.Count >= lIndex
> >> strtemp = strtemp & ";" & objRecipients(lIndex)
> >> lIndex = lIndex + 1
> >> Loop
> >> 'check for any internet style addresses that are not in your domain
> >> if instr(1, strtemp,"@")> 0 AND instr(1, strtemp,"yourdomain")= 0 THEN
> >> Application.ActiveExplorer.Activate
> >> If MsgBox("Are you sure?", vbYesNo) = vbNo Then
> >> Cancel = True
> >> End If
> >> End If
> >>
> >> --
> >> John Blessing
> >>
> >> http://www.LbeHelpdesk.com - Help Desk software priced to suit all
> >> businesses
> >> http://www.room-booking-software.com - Schedule rooms & equipment
> >> bookings
> >> for your meeting/class over the web.
> >> http://www.lbetoolbox.com - Remove Duplicates from MS Outlook,
> >> find/replace,
> >> send newsletters
> >>
> >>
> >>
>
>
>
Re: Would like the pop-up warning when sending External emails [message #469479] Sat, 29 March 2014 01:53 Go to previous message
dohodoho
Messages: 1
Registered: March 2014
Junior Member
Hi,

I found this free Outlook add-in that does exactly the same without any VBA code Wink

www.safesendsoftware.com

http://www.safesendsoftware.com/uploads/2/2/5/6/22561952/header_images/1379100417.jpg

[Updated on: Sat, 29 March 2014 15:51]

Previous Topic:Error Number: 0x800CCC0E (will not receive incoming mail)
Next Topic:How to fix outlook error 0x8004010f?
Goto Forum: