I'm getting the same answer "1" for Exp[x] with x less than "1.1*10^-21", and I really need to calculate much smaller numbers (in order of 10^-40).

I tried using SetPrecision[Exp[x],40000] and more!

Obviously I'm doing something wrong. #_-

I've searched about increasing the precision but I couldn't find helpful answers. Would you please kindly guide me?

I'm getting the same answer "1" for Exp[x] with x less than "1.1*10^-16", and I really need to calculate much smaller numbers (in order of 10^-40).

I tried using SetPrecision[Exp[x],1000].

Obviously I'm doing something wrong. #_-

I've searched about increasing the precision but I couldn't find helpful answers. Would you please kindly guide me?

Edit:

Maybe this screenshot could make it easier to understand what I'm talking about.