Email generating code picked up by Symantec as x97m.outlookworm.gen? Work arounds?

yurip

New Member
Joined
Jun 26, 2015
Messages
10
Hey Guys, I have some code (see below) I use at work to generate emails and it keeps getting picked up as malware by Symantec and was wondering if you could offer any potential modifications that might help it fly under the radar.

Code:
Sub Create_Email()
MsgBox ("A Draft will be created in your Outlook draft folder")
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim rSEL As Range
Set rSEL = Selection
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
   .To = rSEL.Offset(0, -1).Value
   .Subject = "New/Update of Briefing Notes"
   .Body = "Good day, %0A %0A Please review the briefing note/s attached and send any new briefing notes to be added."
MsgBox (Cells(1, 2).Value & "\" & rSEL.Offset(0, 3).Value)

.Attachments.Add (Cells(1, 2).Value & "\" & rSEL.Offset(0, 3).Value)
   If DisplayMsg Then
       .Display
   Else
       .Send
   End If
End With
Set objOutlook = Nothing
End Sub
 

Excel Facts

How to change case of text in Excel?
Use =UPPER() for upper case, =LOWER() for lower case, and =PROPER() for proper case. PROPER won't capitalize second c in Mccartney

Forum statistics

Threads
1,223,909
Messages
6,175,312
Members
452,634
Latest member
cpostell

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top