Email + PHP + VFP

[Marcos Guedes]

Relembrando a primeira mensagem :

Criei uma forma diferente para enviar emails e decidi compartilhar com os colegas.
A solução consiste em utilizar um código PHP/ juntamente com o [b]VFP.

Para que a mesma funcione corretamente, você precisará ter acesso a um servidor PHP com suporte a SMTP.
Segue o passo a passo:

Antes de mais nada, crie uma página PHP e adicione o seguinte código:

Código:

<?
   $to = $_POST['emailDestinatario'];
     $subject = $_POST['assunto'];
     $html = $_POST['mensagem'];
 
     // Se quizer enviar em formato HTML
     $headers = 'MIME-Version: 1.0' . "\n";
     $headers .= 'Content-type: text/html; charset=UTF-8' . "\n";
 
     // Se houver problemas com acentos substitua a linha acima por esta abaixo:
     //$headers = "Content-type: text/html; charset=iso-8859-1\r\n"; 
 
     // Remetente
     $headers .= "From: " . $_POST['nomeRemetente'] . " <" . $_POST['emailRemetente'] . ">\r\n";
 
     if (mail($to, $subject, $html, $headers))
     {
      echo "Email enviado com sucesso !";
     }
?>

Após ter criado a página, hospede em um servidor com suporte à PHP, e verifique o link da mesma, pois será utilizado no código criado com o Fox.

Para utilizar esta página para enviar emails a partir do VFP utilize o código abaixo:

Código:

FUNCTION emailphp AS logical
   LPARAMETERS ;
      nome_remetente AS STRING,;
      email_remetente AS STRING,;
      email_destinatario AS STRING,;
      assunto AS STRING,;
      mensagem AS STRING

   LOCAL parametros AS STRING && Dados que serão lidos pela página PHP
   m.parametros = "emailDestinatario=" + m.email_destinatario + "&"
   m.parametros = m.parametros + "assunto=" + m.assunto + "&"
   m.parametros = m.parametros + "mensagem=" + m.mensagem + "&"
   m.parametros = m.parametros + "nomeRemetente=" + m.nome_remetente + "&"
   m.parametros = m.parametros + "emailRemetente=" + m.email_remetente

   loxmlhttp = CREATEOBJECT("MSXML2.XMLHTTP")
   loxmlhttp.OPEN("POST","http://url.de.sua/pagina.php",.F.)

   loxmlhttp.setrequestheader("content-type", "application/x-www-form-urlencoded")

   loxmlhttp.SEND(m.parametros)
   lcresponse = loxmlhttp.responsetext

   loxmlhttp = .NULL.
   
   RETURN ALLTRIM(m.lcresponse)="Email enviado com sucesso !"
ENDFUNC

No código acima, substitua "http://url.de.sua/pagina.php" pela URL de sua página PHP.

Para utilizar a função faça o seguinte:

Código:

LOCAL nome_remetente AS STRING
LOCAL email_remetente AS STRING
LOCAL email_destinatario AS STRING
LOCAL assunto AS STRING
LOCAL mensagem AS STRING

m.nome_remetente = "Nome do Remetente"
m.email_remetente = "email@remetente.com.br"
m.email_destinatario = "email@destinatario.com"
m.assunto = "Assunto do email"
m.mensagem = "Exemplo postado no <a href=http://forum.programacaobrasil.com>Programação Brasil</a><br/><b>Autor: </b>Marcos Guedes"

IF (emailphp(m.nome_remetente, m.email_remetente, m.email_destinatario, m.assunto, m.mensagem)) THEN
   MESSAGEBOX("Email enviado com sucesso!")
ELSE
   MESSAGEBOX("Erro ao enviar o email!")
ENDIF

Espero que este código seja útil aos colegas!

[Rubens]

Marcos,
Meu PHP fica num servidor linux.

[Rubens]

Valeu Djguina...

Funcionou ....
era somente essa maldita linha.....

[djguina]

Seguinte galera,

Achei uma solução paleativa para o Retorno de Enviado ou não:
BOTÃO Original

Código:


IF sndmailphp(varHost, varUserHost, varPassHost, mailDe, nomeDe, mailPara, nomePara, mailTitulo, Mensagem, mailCC)
  MESSAGEBOX("Email enviado com sucesso!")
ELSE
  MESSAGEBOX("Erro ao enviar o email!")
ENDIF


BOTÃO Alterado

Código:


sndmailphp(varHost, varUserHost, varPassHost, mailDe, nomeDe, mailPara, nomePara, mailTitulo, Mensagem, mailCC)

IF EMPTY(lcresponse)
   MESSAGEBOX("Erro ao enviar o email !")
ELSE
   MESSAGEBOX("E-mail Enviado com sucesso !")
ENDIF


E a alteração que fiz no meu PRG:

PRG Original:

Código:


  loxmlhttp.SEND(m.parametros)
  lcresponse = loxmlhttp.responsetext

  loxmlhttp = .NULL.
  RETURN ALLTRIM(m.lcresponse)="Email enviado com sucesso !"
ENDFUNC


PRG Alterado:

Código:


  loxmlhttp.SEND(m.parametros)
Public lcresponse && ====> Alteração
  lcresponse = loxmlhttp.responsetext

  loxmlhttp = .NULL.
  RETURN ALLTRIM(m.lcresponse)="Email enviado com sucesso !"
ENDFUNC


Abraços

[Marcos Guedes]

Obrigado por compartilhar, djguina!
Peço-lhe desculpas por não ter respondido antes.
Eu havia esquecido deste tópico.

[djguina]

Relaxxx... =P tamo ai

[rasptty]

Boas

testei e funciona muito bem, pois tive vários problemas antes com o JMAIL por causa da firewall do windows ou as vezes dos routers, mas gostava se possivel enviar um ficheiro em anexo, por exemplo um PDF como altero a função
Obrigado

Sérgio Gonçalves

[alceu11]

Veja este link
Enviando Email com anexo em PHP