Question : Emails make it to store but not to mailbox

Hi Experts

I have a client with a small network, SBS Server (2003 Std) and Trend Micro Worry Free Business Security (Advanced v6.0) installed. Emails sent from a particular sender (and possibly more) is not making it to their mailbox. After looking through the message tracking I can see the exchange server accepting the email - submitting it to advanced queuing - submitting it to categorizer - categorized & queued for routing - Queued for local delivery - delivered locally to the users email address then delivered locally to store to users email address.

But I cannot find any trace of any of the emails in the users Outlook mailbox? I have checked the spam folder, junk email folder & deleted items folder - but nothing.

I am trying to also work out if trend micro is blocking these messages, but I can't find out where to view the blocked emails to identify them. It just says 1.4% spam with a pretty pie graph.

Any help is very appreciated.

Thank you!

Any Suggestions

Answer : Emails make it to store but not to mailbox

Give this a try

                       
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

           
           
             <%
'Create recordset
 Dim sql, objRS

 sql = "SELECT tblGeneral.ChartID, tblGeneral.City, tblGeneral.State, " & _
 	"tblSpace.SpaceAll, tblSpace.SpacePERC " & _
	"FROM tblGeneral INNER JOIN tblSpace ON tblGeneral.ChartID= tblSpace.ChartID " & _
	"WHERE tblGeneral.VISNID LIKE '12' "
	
		If Request.querystring("sort") = "" then
 			sql = sql & "ORDER BY City"
 		Else
  			sql = sql & "ORDER BY " & Request.querystring("sort")
  		End If			
	
	Set objRS = Server.CreateObject("ADODB.Recordset")
	objRS.Open sql, objConn


'First, display the TABLE header info:
Response.Write "<TABLE class='CCTable' cellspacing='0' border='1' cellpadding='5' width='350px'>"

'Display table headings for each column in the Recordset

Dim rowHeader, rowAll, rowPerc

rowHeader = "<TR style='background-color:white;'><td>&nbsp;</td>"
rowAll = "<TR style='background-color:white;'><td><b>Space</b></td>"
rowPerc = "<TR style='background-color:white;'><td><b>PERC</b></td>"

While Not objRS.EOF

	rowHeader = rowHeader & "<th scope='col'>" & objRS("City") & "&nbsp;</th>" & VbCrLf
	rowAll = rowAll & "<TD scope='row'>" & objRS("SpaceAll") & "&nbsp;</TD>" & VbCrLf
	rowPerc = rowPerc & "<TD scope='row'>" & objRS("SpacePERC") & "&nbsp;</TD>" & VbCrLf

   'Advance the recordset
   objRS.MoveNext

Wend
objRS.Close
Set objRS = Nothing

rowHeader = rowHeader & "</tr>" & VbCrLf
rowAll = rowAll & "</tr>" & VbCrLf
rowPerc = rowPerc & "</tr>" & VbCrLf

Response.Write rowHeader
Response.Write rowAll
Response.Write rowPerc

Response.Write "</TABLE></div>" & vbCrLf

%>
           
         