Enviar Emails pelo RM

[RD12]

Enviar Email

XP/VX/ACE

Este script lhe permite enviar emails para um pessoa. Para fazê-lo usei PHP, o script apenas requisita o arquivo, fazendo ele enviar o email. O script seria maior se eu fizesse tudo pelo RM.
O arquivo php já está hospedado, mas se você quiser hospedar no seu servidor eu estou postando o código aqui.

Script

#:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=
#Author: RD12         Enviar Email
#:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=
#Para enviar um email, chame este script:
# $Email.send("Destino@host.com", "Assunto", "Mensagem")

class Email

  def initialize
    @iou = Win32API.new('wininet','InternetOpenUrl','lppllp','l')
    @ioa = Win32API.new('wininet','InternetOpenA','plppl','l').call('',0,'','',0)
    @site = "http://rd12.host22.com/receive.php?"
  end 
    
  def send(email,assunto,mensagem)
    if !email.include?("@") or !email.include?(".")
      p "Email inválido"
      return
    end
    @send = @iou.call(@ioa,@site+"email=#{email}&assunto=#{assunto}&mensagem=#{mensagem}",nil,0,0,0)
  end
  
end
$Email = Email.new

Instruções no script.

Código php(opcional)

<?php
$email = $_GET["email"];
$assunto = $_GET["assunto"];
$message = $_GET["mensagem"];

$message = wordwrap($message, 70);

// Send
mail($email, $assunto, $message);
?>

OBS: A mensagem pode ir parar na lixeira. Pode demorar um pouco para chegar também.

Créditos RD12

[makergame2000]

Util para jogos online
nunca pensei que isso era possível

+ ouro

[Raizen]

Bom deveras interessante xD, mesmo que uma função simples é algo bem útil para mandar as coisas para o email se necessário :D.
Err como sou chato vou criticar só uma coisa kk, é que é bom evitar o !, na frente das variáveis, tipo... da para usar o unless nesses casos ai :D