How to extract email ids from a data frame column and send mail using the Email[[To]] function?