One way of sending mail from IGOR

// For yahoo, use smtpServer="smtp.mail.yahoo.com"
function email(selfServer,smtpServer,username,password,from,to,subject,message)
    string selfServer,smtpServer,username,password,from,to,subject,message
     
    variable sock       //holds the SOCKIT reference
    make/o/t buf        //holds the output from the SOCKIT connection
     
    sockitopenconnection /time=1 sock,smtpServer,25,buf //open a SOCKIT connection to the mail server
     
    sockitsendmsg sock,"HELO "+selfServer+"\n"      //say HELO to the server
    sockitsendmsg sock,"AUTH LOGIN\n"       //SMTP LOGIN, NOT VERY SECURE
    sockitsendmsg sock,base64encode(username)+"\r\n"
    sockitsendmsg sock,base64encode(password)+"\r\n"
     
    sockitsendmsg sock,"MAIL FROM:"+from+"\n"       //say who you are
    sockitsendmsg sock,"RCPT TO:"+to+"\n"       //say who the recipient is
     
    sockitsendmsg sock,"DATA\n"     //start the message
    sockitsendmsg sock,"Subject:"+subject+"\r\n"        //subject line, note double newline is required
    sockitsendmsg sock,message+"\r\n"       //the message
     
    sockitsendmsg sock,"\r\n.\r\n"      //finish the message and send
   
    sockitcloseconnection(sock) //close the SOCKIT connection
    killwaves /z buf
end

function email(selfServer,smtpServer,username,password,from,to,subject,message)
    string selfServer,smtpServer,username,password,from,to,subject,message
       
        string cmd = ""
    variable sock       //holds the SOCKIT reference
    make/o/t buf        //holds the output from the SOCKIT connection
 
    sockitopenconnection/q sock,smtpServer,25,buf   //open a SOCKIT connection to the mail server
        cmd += "HELO "+selfServer+"\n"      //say HELO to the server
    cmd += "AUTH LOGIN\n"       //SMTP LOGIN, NOT VERY SECURE
        cmd += base64encode(username)+"\r\n"
    cmd += base64encode(password)+"\r\n"
 
        cmd += "MAIL FROM:"+from+"\n"       //say who you are
    cmd += "RCPT TO:"+to+"\n"       //say who the recipient is
 
    cmd += "DATA\n"     //start the message
    cmd += "Subject:"+subject+"\r\n"        //subject line, note double newline is required
    cmd += message+"\r\n"       //the message
 
    cmd += "\r\n.\r\n"      //finish the message and send
       
        sockitsendmsg sock, cmd
    sockitcloseconnection(sock) //close the SOCKIT connection
    killwaves /z buf
end