Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

warning message before sending email with excel file

Posted on 2014-03-10
4
Medium Priority
?
291 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 52

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 52

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 52

Accepted Solution

by:
Rgonzo1971 earned 2000 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

Problems using Powershell and Active Directory?

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

This article will help to fix the below error for MS Exchange server 2010 I. Out Of office not working II. Certificate error "name on the security certificate is invalid or does not match the name of the site" III. Make Internal URLs and External…
Want to know how to use Exchange Server Eseutil command? Go through this article as it gives you the know-how.
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an antispam), the admini…
Suggested Courses

721 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