# [R], 103 bytes

    library(cwhmisc);\(x,y)paste(sapply(strsplit(x,"")[[1]],\(z)int2B(grep(z, letters),y))[1,],collapse="")

[R]: https://www.r-project.org