Email without ALLOW message

[toobig]

I need some help on figuring out how to send an email through Excel without getting the Microsoft Security message that asks you to Allow the message to be sent. Here is what I have now. Any help yould be greatly appreciated. Thanks...

Sub Mail_ActiveSheet()

Dim strDate As String
Dim Site As String
Dim Project As String


Site = Sheets("CDLEmail").Range("A6").Value
Project = Sheets("CDLEmail").Range("A8").Value
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")

ActiveSheet.Copy
Application.DisplayAlerts = False

ActiveWorkbook.SendMail "email.com", _
"CDL Maintenance for " & Site & " " & Project & " " & strDate
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True

End Sub

 

[Smitty]

Glad you got it sorted. Sorry we sorta' hijacked your thread.