alias emsg {
  var %x 1
  while $chan(%x) {
    var %chan $v1
    if (!$istok($1,%chan,44)) msg %chan $2-
    inc %x
  }
}

If you dont want to amsg in a certan channel type /emsg #chan,#chan2,#chan3 (Message here)