Enviar Emails pelo RMXP Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

Aldeia RPG
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Enviar Emails pelo RMXP

2 participantes

Ir para baixo

Enviar Emails pelo RMXP Empty Enviar Emails pelo RMXP

Mensagem por RD12 Qui Fev 14, 2013 11:36 am

Enviar Email

Este script lhe permite enviar emails para um pessoa pelo Rmxp. 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 RMXP.
O arquivo php já está hospedado, mas se você quiser hospedar no seu servidor eu estou postando o código aqui.

Script

Código:
#:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=:=
#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://arquivo.hospedado/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
Uma página php deve ser hospedada em um site, cujo endereço deve ser inserido no script acima em @site = "http://arquivo.hospedado/receive.php?". Segue o código do arquivo .php
Código:
<?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.

Créditos RD12


Última edição por RD12 em Dom Fev 18, 2018 11:20 am, editado 1 vez(es)
RD12
RD12
Lenda
Lenda

Medalhas : Enviar Emails pelo RMXP 48080450Enviar Emails pelo RMXP Trophy11Enviar Emails pelo RMXP GIueZEnviar Emails pelo RMXP ZgLkiRU
Mensagens : 1946
Créditos : 745

Ir para o topo Ir para baixo

Enviar Emails pelo RMXP Empty Re: Enviar Emails pelo RMXP

Mensagem por Canjoo Qui Fev 14, 2013 11:37 am

Nem li, mas tenho certeza q é bom vou ler agora e dou um edit!

EDIT: Muito bom RD12, se eu for continuar com meu jogo vou usa-lo para enviar alertas e coisas tipo promoções pros jogadores.
Canjoo
Canjoo
Experiente
Experiente

Mensagens : 505
Créditos : 52

http://...

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos