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