[Resolvido] Enviar email localhost em php

[alissong 1]

Pessoal,

 

Como transformar esse código em VB06 que enviar email localhost em IP dinâmico para php.

Veja o código completo:

Private Sub Command1_Click()

On Error GoTo Enviar ' Erro ao enviar e-mail

 

Dim Msg As cdo.Message

Dim Cof As cdo.Configuration

Dim mensagem As String

Dim sucesso As Boolean

Dim Camp

 

Set Msg = New cdo.Message

Set Cof = New cdo.Configuration

Set Camp = Cof.Fields

 

If txtdestino.Text = Empty Then

MsgBox " Digite o e-mail do destinatário", vbExclamation, "Campo Obrigatório"

txtdestino.SetFocus

Exit Sub

End If

If txtassunto.Text = Empty Then

MsgBox " Digite o assunto da mensagem", vbExclamation, "Campo Obrigatório"

txtassunto.SetFocus

Exit Sub

End If

 

With Camp

 

.Item(cdoSendUsingMethod) = 2 ' cdoSendUsingPort

.Item(cdoSMTPServer) = "smtps.bol.com.br"

.Item(cdoPriorityUrgent) = 2

.Item(cdoSMTPConnectionTimeout) = 10 ' quick timeout

.Item(cdoSMTPAuthenticate) = 1

.Item(cdoSendUserName) = "nossilasantana@bol.com.br"

.Item(cdoSendPassword) = "*******"

.Update

 

End With

 

With Msg

 

Set .Configuration = Cof

For i = 0 To txtanexo.ListCount - 1

.AddAttachment txtanexo.List(i)

Next i

.To = "nossilasantana@bol.com.br"

.BCC = txtdestino.Text

.CC = txtremetente.Caption

.From = """compras"" <nossilasantana@bol.com.br>"

.Subject = txtassunto.Text

.TextBody = txttexto.Text

.Send

 

End With

 

If sucesso = True Then

mensagem = "O E-MAIL NÃO FOI ENVIADO COM SUCESSO!"

Else

mensagem = "O E-MAIL ENVIADO COM SUCESSO!"

 

End If

 

MsgBox mensagem, vbInformation, "Enviando emails usando ASPMAIL"

 

Enviar_exit:

gUltHora = Now

 

Exit Sub

Enviar:

MsgBox Err.Description, vbInformation, "Erro ao [Enviar]"

 

End Sub

O sistema operacial é windows 2000.

OBS. Usa dll cdonts

 

Alguém sabe como fazer isso...

 

 

Alissong

[Alaerte Gabriel 662]

Além de eu não entender nada ai, poderia explicar o que você pretende fazer ? não é possível enviar e-mail do local host a não ser que esteja devidamente configurado.

[alissong 1]

Alerte,

 

 

Tenho um sistema em visual basic 06 que faz isso, basta o computador ter acesso a internet. Os email dos clientes são buscados em uma consulta. Então digito a mensagem e clico em enviar. O sistema usa o email bol para fazer isso. Em php como é feito isso, pois tenho que enviar senhas para os usuários não atentos por email, mas não estou sabendo faz isso no servidor smtp usando windows 2000.

O código que uso em php é esse, mas não está funcionando:

<?php

 

# Função para conectar o banco de dados

include("bdinc.php");

 

# Inclusão do arquivo de funções

 

# Função para conectar a class PHPMailer

include ("phpmailer/class.phpmailer.php");

 

# Fim

 

$e_mail = $_POST['e_mail'];

 

$confirmacao = pg_query("select * from usuarios where nome= '$nome' and e_mail = '$e_mail'"); //verifica se o login e a email conferem

while ($row = pg_fetch_assoc($confirmacao)) {

$nome = $row["nome"]; //adiciona a variavel $login o login do usuario

$senha = $row["senha"]; //adiciona a variavel $senha a senha do usuario

$email = $row["e_mail"]; //adiciona a variavel $email o email do usuario

}

 

$contagem = pg_num_rows($confirmacao); //traz o resultado da pesquisa acima

 

if ( $contagem == 1 ) {

$msg = "Recuperação de senha";

$msg .= "Senha enviada em " .date("d/m/Y") . ", os dados seguem abaixo: \r";

$msg .= "Nome : $nome\r";

$msg .= "Email : $email\r";

$msg .= "Senha : $senha";

 

//Envia o email

 

$mail = new PHPMailer();

//ENVIAR VIA SMTP

$mail->IsSMTP(); // send via SMTP

$mail->SMTPAuth =true; //ATIVA O SMTP AUTENTICADO

 

$mail->Host = "arq.ufmg.br"; //SERVIDOR DE SMTP, USE smtp.SeuDominio.com OU smtp.hostsys.com.br

 

$mail->Username = "scompras@arq.ufmg.br"; //EMAIL PARA SMTP AUTENTICADO (pode ser qualquer conta de email do seu domínio)

$mail->Password = "xxxxxx"; //SENHA DO EMAIL PARA SMTP AUTENTICADO

$mail->From = "scompras@arq.ufmg.br";//E-MAIL DO REMETENTE

 

$mail->FromName = $_POST['e_mail'];

$mail->Subject = "Email de contato"; //ASSUNTO DA MENSAGEM

 

$html = "<strong>De:</strong> ".$_POST['nome']."<br><strong>E-mail:</strong> ".$_POST['e_mail']."<br><strong>Comentário:</strong> ".$_POST['comentario']."";

$texto = $msg;

 

$mail->Body = $html;

$mail->AltBody = $texto;

 

$mail->AddAddress("alisson@arq.ufmg.br","nossilasantana@bol.com.br"); //E-MAIL DO DESINATÁRIO, NOME DO DESINATÁRIO

//$mail->AddReplyTo("",""); //UTILIZE PARA DEFINIR OUTRO EMAIL DE RESPOSTA (opcional)

 

 

if(!$mail->Send()){

 

echo "<div align=center><font size=2 face=Verdana, Arial, Helvetica, sans-serif>Sua senha foi enviada com sucesso para o email: $email</font></div>"; //resposta se o email foi enviado com sucesso

}

else

{

echo "<div align=center><font size=2 face=Verdana, Arial, Helvetica, sans-serif>Seu login ou email está incorreto.</font></div>"; //resposta se não foi possivel enviar o email

}

}

?>

 

Um abraço.

 

 

Alissong

[alissong 1]

Resolvido......

[João Melo 1]

Então posta o resultado resolvido por favor, tbm estou querendo saber como se faz

[weibson 0]

seria uma boa mesmo postar o codigo =)

 

Estou procurando a um bom tempo como enviar email via PHP. mas não consigo

 

eu tento o comando

 

mail();

 

 

mas da erro de autenticação

[alissong 1]

Pessoal,

 

Não tenho muita experiência em php por que trabalhava com visual basic 06. Então gostaria que melhorasse o código em php.

 

1- Baixe a py.sendmail

2- Configure o php.ini em:

smtp = localhost

port = 25

send = seu email

3- Registre a dll no sistem32

4- O código senha.php

<html>

<head>

<title>Cadastro de Fornecedor</title>

<link href="estilo.css" rel="stylesheet" type="text/css">

<head>

<script language="javascript">

function valida_dados ()

{

if (senha.nome.value=="") {

alert ("Por favor digite o login.");

senha.nome.focus();

return false;

}

if (senha.e_mail.value=="") {

alert ("Por favor digite o email cadastrado no banco de dados.");

senha.e_mail.focus();

return false;

}

if (senha.e_mail.value.indexOf('@' , 0) == -1 || senha.e_mail.value.indexOf('.' , 0) == -1) {

alert ("E-Mail inválido.");

senha.e_mail.focus();

return false;

}

return true;

}

</script>

</head>

<body bgcolor="#E1E1E1">

<hr>

<center><b><font size="3">ENVIO DE SENHA</font></b></center>

<left> <b> <a href="index.php"><img src=imagens/voltar.gif width=70 height=20 alt="Voltar"></a></b></left>

<hr>

<form name="senha" method="post" action="enviar_senha.php" onSubmit="return valida_dados(this)">

<table width="400" border="0" cellspacing="0" cellpadding="0">

<tr>

<td width="150"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Login:</font></td>

<td width="250"><input name="nome" type="text" id="nome" size="20" class="input"></td>

</tr>

<tr>

<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Email:</font></td>

<td><input name="e_mail" type="text" id="e_mail" size= "60" class="input"></td>

</tr>

<tr>

<td> </td>

<td> </td>

</tr>

<tr>

<td colspan="2"><div align="center">

<input name="enviar" type="submit" id="enviar" value="Enviar minha Senha" class="botao">

</div></td>

</tr>

</table>

</form>

</body>

</html>

5- O código enviar_senha.php

<?php

 

# Função para conectar o banco de dados

include("bdinc.php");

 

# Fim

 

$e_mail = $_POST['e_mail'];

 

$confirmacao = pg_query("select * from usuarios where nome= '$nome' and e_mail = '$e_mail'"); //verifica se o login e a email conferem

while ($row = pg_fetch_assoc($confirmacao)) {

$nome = $row["nome"]; //adiciona a variavel $login o login do usuario

$senha = $row["senha"]; //adiciona a variavel $senha a senha do usuario

$email = $row["e_mail"]; //adiciona a variavel $email o email do usuario

}

 

$contagem = pg_num_rows($confirmacao); //traz o resultado da pesquisa acima

 

if ( $contagem == 1 ) {

$msg = "Recuperação de senha<br><br>";

$msg .= "Senha enviada em " .date("d/m/Y") . ", os dados seguem abaixo:<br>";

$msg .= "Login :<b>$nome</b><br>";

$msg .= "Email :<b>$email</b><br>";

$msg .= "Senha :<b>".base64_decode($senha)."</b><br><br>";

$msg .= "Atenciosamente,<br><br><br>";

$msg .= "Alisson G. Santana";

 

//Envia o email

 

$obj = new COM("Py.SendMail");

$obj->SMTPServer = "arq.ufmg.br";

$obj->From = "alisson@arq.ufmg.br";

$obj->To = $_POST['e_mail'];

$obj->Subject = "Recuperação de Senha";

$obj->Body = $msg;

if ($obj->Send()){

echo "<div align=center><font size=2 face=Verdana, Arial, Helvetica, sans-serif>Sua senha foi enviada com sucesso para o email: $email</font></div>"; //resposta se o email foi enviado com sucesso

}

else

{

echo "<div align=center><font size=2 face=Verdana, Arial, Helvetica, sans-serif>Seu login ou email está incorreto.</font></div>"; //resposta se não foi possivel enviar o email

}

}

?>

Obs.: O banco que uso é POSTGRESQL 8.1 para windows

 

 

Um abraço.

 

 

Alissong

[hgb7 3]

Mas é este que está funfando?

[PlayeRR 0]

# Função para conectar o banco de dados

include("bdinc.php");

 

Ta dando erro porque num tem esse arquivo , pode postar o código dele ?

 

# Fim

3- Registre a dll no sistem32

Que dll tem que registrar e como registrar?

 

Obrigado.

[alissong 1]

PlayeRR,

 

Essa aqui:

Py.SendMail

Procure no google, mas qualquer dúvida é só perguntar.

 

 

Um abraço.

 

 

Alissong

[Marco Polo Viana 0]

Encontrei e utilizo uma solução mais simples:

 

Sendmail para Windows XP ou 2000/2003