One way of sending mail from IGOR

string mailServer = "mail.mymailserver.com" string username = base64encode("myusername") string password = base64encode("mypassword") variable sock //holds the SOCKIT reference make/t buf //holds the output from the SOCKIT connection sock = sockitopenconnection(mailServer,25,buf,"","",1) //open a SOCKIT connection to the mail server sockitsendmsg(sock,"AUTH LOGIN\n") //SMTP LOGIN, NOT VERY SECURE sockitsendmsg(sock,username+"\n") sockitsendmsg(sock,password+"\n") sockitsendmsg(sock,"HELO whatever.whatever.com\n") //say HELO to the server sockitsendmsg(sock,"MAIL FROM: username@mymailserver.com\n") //say who you are sockitsendmsg(sock,"RCPT TO: poo@mymailserver.com\n") //say who the recipient is sockitsendmsg(sock,"DATA\n") //start the message sockitsendmsg(sock,"Subject:test a message\n\n") //subject line, note double newline is required sockitsendmsg(sock,"This is a test message\n") //the message sockitsendmsg(sock,".\n") //finish the message and send sockitcloseconnection(sock) //close the SOCKIT connection

RGerkin

I'm updating this example with SockIT operations. Also, some mail servers require CRLF in places, or require HELO before AUTH LOGIN. For example, this format will work for Yahoo mail. For servers that require SSL, like gmail, see http://www.igorexchange.com/node/952.

For some reason, this only works without the /q flag in sockitiopenconnection. Maybe printing output slows Igor down enough to let messages get sent before the socket is closed?

// 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

August 2, 2010 at 11:15 am - Permalink

andyfaff

Could one roll it up like:

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

The only trouble is that the server may barf because the whole message arrives at once.

August 2, 2010 at 04:18 pm - Permalink

One way of sending mail from IGOR

Igor Pro 10

Igor XOP Toolkit

Igor NIDAQ Tools MX