Solved

warning message before sending email with excel file

Posted on 2014-03-10
4
285 Views
Last Modified: 2014-03-26
Hi Everyone,

We are looking for a solution where an employee is sending out an email to external party with excel file attached and they should get a pop up question "Are you sure you would like to send this email with excel file"

We have exchange 2007 and would like to know if there is third party software or exchange has this type of feature. Please let me know as we need this asap.

Thanks
0
Comment
Question by:skyjumperdude
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
4 Comments
 
LVL 51

Expert Comment

by:Rgonzo1971
ID: 39918238
Hi,

I know about this one but you cannot discriminate sending an email with or without attachments as far as I know.

http://www.safesendsoftware.com/get-it.html

Regards
0
 
LVL 51

Expert Comment

by:Rgonzo1971
ID: 39918277
Hi,

this code would probably do it

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

Dim intRes As Integer
Dim strMsg As String

bExcelAttachment = False
Set myAttachments = myItem.Attachments
'if there are some...
If myAttachments.Count > 0 Then
    For i = 1 To myAttachments.Count
        If myAttachments(i).DisplayName Like "*.xls*" Then ' is Excel file
            bExcelAttachment = True
            Exit For
        End If
    Next i
End If
If bExcelAttachment = True Then
    strMsg = "Are you sure that you would like to send this email with excel file?"
    intRes = MsgBox(strMsg, vbYesNo + vbDefaultButton1, "Confirm Send ")
    If intRes = vbNo Then
        Cancel = True
    End If
End If
End Sub

Open in new window

Regards
0
 
LVL 1

Author Comment

by:skyjumperdude
ID: 39918414
Hi Rgonzo1971,

Thank you for your quick response. What do you mean by "I know about this one but you cannot discriminate sending an email with or without attachments as far as I know."?

Where would I insert that code?
0
 
LVL 51

Accepted Solution

by:
Rgonzo1971 earned 500 total points
ID: 39919774
Hi,

the code should be entered in the ThisOutlook Module with Alt-F11 and the Security level should be at medium, (ask before running Macros)

for a mor detailed description on how see
http://www.slipstick.com/developer/how-to-use-outlooks-vba-editor/

Regards
0

Featured Post

Does Powershell have you tied up in knots?

Managing Active Directory does not always have to be complicated.  If you are spending more time trying instead of doing, then it's time to look at something else. For nearly 20 years, AD admins around the world have used one tool for day-to-day AD management: Hyena. Discover why

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Office 365 and disappearing Public Folders... 2 34
Outlook 2016 6 61
Can't get my gmail account to work in Outlook 2007 11 42
Exchange 2016 Auto Reply 2 23
Large Outlook files lead to various unwanted errors and corruption issues. Furthermore, large outlook files can also make Outlook take longer to start-up, search, navigate, and shut-down. So, In this article, i will discuss a method to make your Out…
A list of top three free exchange EDB viewers that helps the user to extract a mailbox from an unmounted .edb file and get a clear preview of all emails & other items with just a single click on mailboxes.
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …
Many of my clients call in with monstrous Gmail overloading issues with Outlook. A quick tip is to turn off the All Mail and Important folders from synching. Here is a quick video I made to show you how to turn off these and other folders in Gmail s…

738 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question