(Note the different MinRecursion values.) 
 
NIntegrate[MyD[0.001, Ez, Ep, 10, 2, WLU, WRD, mLUPi, m1i, mRDOWNi], {Ez, -((mRDOWNi/mLUPi)*WRD + 
     e*0.001), -((mRDOWNi/mLUPi)*(WRD + e*0.001))}, {Ep, (-e*0.001 -  Ez), (mRDOWNi/(mLUPi - mRDOWNi))*(Ez + WRD + e*0.001)},  MinRecursion -> **4**]
OUT=  1.08254*10^-13 + 7.38211*10^-35 I
NIntegrate[MyD[0.001, Ez, Ep, 10, 2, WLU, WRD, mLUPi, m1i, mRDOWNi], {Ez, -((mRDOWNi/mLUPi)*WRD + 
     e*0.001), -((mRDOWNi/mLUPi)*(WRD + e*0.001))}, {Ep, (-e*0.001 -  Ez), (mRDOWNi/(mLUPi - mRDOWNi))*(Ez + WRD + e*0.001)},  MinRecursion -> **5**]
OUT=  1.08254*10^-13
You can check the attached file
				
					
				
				
					
					
						
							 Attachments:
							Attachments: