I need a bit of help. I am using CDONTS object to send internal emails. I have it right now to send the email to an outside address like JHANCOCK@domain.com. I would rather have it be sent internally through our exchange server to JHANCOCK and let exchange resolve the email address instead of sending it outside then have it come back in. We installed an encryption device to encrypt all emails as it is sent out and now if it came back without keywords in the email it stays encrypted. The much better sollution is to send the email to exchange and have it resolve the address to be sent to an internal employee such as JHANCOCK? If I plug in JHANCOCK the email does not get sent to the employee for some reason... Here is my code below. It may be a simple setting in exchange or IIS I am not aware of an option though... TIA
'Create the Message Object
Set objMsg = Server.CreateObject("CDONTS.NewMail"
'Set the properties of the Message
objMsg.From = "IISUSER"
objMsg.To = "JHANCOCK"
objMsg.Subject = "IS Request Form for " & EmployeeFName & " " & EmployeeLName & " Requested by " & Session("UserAlias"
& "."
'Use the actual Request Object so that you do not over load the string Data type.
objMsg.Body = "IS Request Form Requested by: " & Session("UserAlias"
& vbCr & "Originating-IP: " & Request.ServerVariables("REMOTE_ADDR"
& vbCr & vbCr & VpApproval & vbCr & vbCr & "IS Request report attached..."
objMsg.Importance = 2
FilePathOnServer= Server.MapPath("/Departmental Pages/InformationSystems/Information Systems Requests/Profiles"
FilePath_Name = FilePathOnServer & "\" & EmployeeFName & "_" & EmployeeLName & ".HTM"
'Attach it
objMsg.AttachFile FilePath_Name
'Send Message
objMsg.Send
'Destroy the object
Set objMsg = Nothing Thanks
-Robert
System Analyst/Programmer
'Create the Message Object
Set objMsg = Server.CreateObject("CDONTS.NewMail"
'Set the properties of the Message
objMsg.From = "IISUSER"
objMsg.To = "JHANCOCK"
objMsg.Subject = "IS Request Form for " & EmployeeFName & " " & EmployeeLName & " Requested by " & Session("UserAlias"
'Use the actual Request Object so that you do not over load the string Data type.
objMsg.Body = "IS Request Form Requested by: " & Session("UserAlias"
objMsg.Importance = 2
FilePathOnServer= Server.MapPath("/Departmental Pages/InformationSystems/Information Systems Requests/Profiles"
FilePath_Name = FilePathOnServer & "\" & EmployeeFName & "_" & EmployeeLName & ".HTM"
'Attach it
objMsg.AttachFile FilePath_Name
'Send Message
objMsg.Send
'Destroy the object
Set objMsg = Nothing Thanks
-Robert
System Analyst/Programmer