Login
Estamos no Facebook
Buscar
Quem está conectado
Há 12 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 12 Visitantes :: 2 Motores de buscaNenhum
[ Ver toda a lista ]
O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Brasília
| |
Estamos no Twitter

Nossa Comunidade

Nosso Grupo

Últimos assuntos
Top dos mais postadores
| Marcos Guedes | ||||
| hugo | ||||
| alceu11 | ||||
| Julio | ||||
| m@r<3|o | ||||
| mfelis | ||||
| Tales Ruan | ||||
| Nelson Arcas | ||||
| _batmanvfp_ | ||||
| marcio |
Karaoke feito em FoxPro 2.6
23/5/2012, 11:45 por fabiomacarrao
Bom dia a todos. Desenvolvi um programa em FoxPro for windows 2.6 para karaoke. tenho mais de 2700 …
Comentários: 3
Estatísticas
Temos 4048 usuários registradosO último usuário registrado atende pelo nome de fabiomacarrao
Os nossos membros postaram um total de 14433 mensagens em 2047 assuntos
Email + PHP + VFP
Página 2 de 2 • Compartilhe •
Página 2 de 2 •
1, 2
Email + PHP + VFP
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:
Para utilizar esta página para enviar emails a partir do VFP utilize o código abaixo:
Para utilizar a função faça o seguinte:
Espero que este código seja útil aos colegas!

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 !";
}
?>
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
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!
Marcos Guedes- Webmaster

Re: Email + PHP + VFP
Valeu Djguina...
Funcionou ....
era somente essa maldita linha.....
Funcionou ....
era somente essa maldita linha.....
Rubens- Começando a Participar

Re: Email + PHP + VFP
Seguinte galera,
Achei uma solução paleativa para o Retorno de Enviado ou não:
BOTÃO Original
BOTÃO Alterado
E a alteração que fiz no meu PRG:
PRG Original:
PRG Alterado:
Abraços
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

djguina- Começando a Participar

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

Peço-lhe desculpas por não ter respondido antes.
Eu havia esquecido deste tópico.
_________________
Marcos Guedes - Programador e desenvolvedor Web.
Convidado, seja nosso seguidor no Twitter:
twitter.com/programacaobras
Marcos Guedes- Webmaster

Re: Email + PHP + VFP
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
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
rasptty- Participa Pouco

Pesquisa NO Google envia email c/anexo em PHP
Veja este link
Enviando Email com anexo em PHP
Enviando Email com anexo em PHP

alceu11- Usuário 5 Estrelas

Re: Email + PHP + VFP
Também queria saber se tem como enviar um anexo, pois tentei algumas formas e não obtive êxito.

BrunoMesquita- Começando a Participar

Re: Email + PHP + VFP
Olá, bruno!
Tem como enviar, mas ainda não consegui pensar numa solução.
Mas, até onde lembro, é utilizando o MIME.
Outra forma é enviar o arquivo para o servidor onde o código PHP está hospedado e anexá-lo, via PHP, como referência no próprio servidor.

Para envio de arquivos podes ser utilizado códigos de envio via FTP os quais já temos como exemplos aqui no fórum.
Tem como enviar, mas ainda não consegui pensar numa solução.
Mas, até onde lembro, é utilizando o MIME.
Outra forma é enviar o arquivo para o servidor onde o código PHP está hospedado e anexá-lo, via PHP, como referência no próprio servidor.

Para envio de arquivos podes ser utilizado códigos de envio via FTP os quais já temos como exemplos aqui no fórum.
_________________
Marcos Guedes - Programador e desenvolvedor Web.
Convidado, seja nosso seguidor no Twitter:
twitter.com/programacaobras
Marcos Guedes- Webmaster

Página 2 de 2 •
1, 2
Página 2 de 2
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum
» Modificar TitleBar e Icone do Executavel.
» Criar atalho, SYS(2020) e Desktop
» Karaoke feito em FoxPro 2.6
» Como separar caminho do diretório?
» Utilizando PHPMailer
» Programador em Visual Foxpro
» Link PHP (Dúvida)
» Fundo do PROJETO Transparente??
» Minimizar , Maximizar e Restaurar
» Pivot Table no sql server
» Scroll EditBox Automatico
» Select Nexval do FoxPro no OracleXE
» Colocar gif na caixa do MESSAGEBOX ()
» Comparar Versões do programa.exe
» Menu lateral
» Fazer com que a tela do sistema assume a janela principal
» Trocar Palavra no Sistema
» invocar Dll em Xbase
» Fechar Porta Aberta