email vba help with attachments

[Kim]

I have the following code below

Sub EmailOpen()
Dim EmailSetup As String
Application.DisplayAlerts = False

On Error GoTo EmailNotFound

EmailSetup = "\\networkaddress\MACRO\SetupE-mail.msg"



ThisWorkbook.FollowHyperlink Address:=EmailSetup
Exit Sub

EmailNotFound:
MsgBox "Email Template Not Found - Please notify IT&S So Script Can Be
Updated", vbInformation

End Sub

The problem is I get a message box that askes the use to consider whether or
not the file is safe. Can someone tell me how to disable that message. The
e-mail message template has three attachments to it. I tried to write a
script to open outlook with a new e-mail message opened with the attachments
already attached, but I couldn't get it to work. So any help here will be
appreciated. I am still fairly new, so any help is appreciated. Thanks


Thanks

Kim

 

[Corey ....]

I trhink the error message may be Outlook security not Excel related.

Corey....