Index: TECH/Mail.cls.xml
===================================================================
diff -u -r1304 -r1318
--- TECH/Mail.cls.xml	(.../Mail.cls.xml)	(revision 1304)
+++ TECH/Mail.cls.xml	(.../Mail.cls.xml)	(revision 1318)
@@ -100,7 +100,8 @@
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set FileName = "NSLOOKUP"_$zd(##class(TECH.DateTime).CurrentDate(),3)
+	Set FileName = "NSLOOKUP"_$job	
+	Do DELFILE^vhDEV("c:\",FileName)
 	Set Exec="NSLOOKUP -q=mx "_MailDomainPart_" > c:\"_FileName
 	s Ok=$ZF(-1,Exec)
 	Set %NsLookUp=0
@@ -120,7 +121,8 @@
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set FileName = "NSLOOKUP"_$zd(##class(TECH.DateTime).CurrentDate(),3)
+	Set FileName = "NSLOOKUP"_$job
+	Do DELFILE^vhDEV("c:\",FileName)
 	Set Exec="NSLOOKUP "_MailDomainPart_" > c:\"_FileName
 	s Ok=$ZF(-1,Exec)
 	Set %NsLookUp=0