Description: You need to run an smtp server to use this. - I used "Easy Smtp"


;$sendmail(<Server[:Port]>,<From>,<To>,<Subject>,<Message>)
alias sendmail {  
  if (!$isid) return
  elseif (!$5) return
  elseif ($regex($1,/(?=(.+):(.+)|(.+))/)) {
    var %server = $regml(1), %port = $iif($regml(2),$v1,25)
  }
  var %num = $ticks, %sockname = sendmail. $+ %num
  .sockclose %sockname | .sockopen %sockname %server %port
  hadd -mu5 %sockname To $2
  hadd -mu5 %sockname From $3
  hadd -mu5 %sockname Subject $4
  hadd -mu5 %sockname Message $5
}
on *:sockread:sendmail.*:{
  var %data, %sw = sockwrite -tn $sockname
  sockread %data
  tokenize 32 %data

  var %From = $hget($sockname,From), %To = $hget($sockname,To)
  var %Subject = $hget($sockname,Subject), %Message = $hget($sockname,Message)

  if (220* iswm $1-) %sw HELO $iif($config(network,ip),$v1,$ip)

  elseif (250* iswm $1-) {
    hinc -mu5 $sockname step
    if ($hget($sockname,step) == 1) %sw MAIL FROM: %From
    elseif ($hget($sockname,step) == 2) %sw RCPT TO: %To
    elseif ($hget($sockname,step) == 3) %sw DATA
    elseif ($hget($sockname,step) == 4) { %sw QUIT | .hfree -sw $sockname | sockclose $sockname }
  }
  elseif (354* iswm $1) {
    %sw From: %From
    %sw To: %To
    %sw Subject: %Subject
    %sw Mime-Version: 1.0
    %sw Content-Type: MULTIPART/MIXED; BOUNDARY="mailtoboundary"
    %sw
    %sw --mailtoboundary
    %sw Content-Type: TEXT/PLAIN; charset=US-ASCII
    %sw

    %sw %Message
    %sw .
  }
  else sockclose $sockname
}
on *:sockclose:sendmail.*:.hfree -sw $sockname

</mirc>

Oops! You need to login or register before you can post a comment!