Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Tosta

Envio de Email

Recommended Posts

Boa tarde,

 

Tenho um formulário no meu site para enviar um orçamento para um cliente. O meu servidor de domínio só me deixa fazer o envio para uma conta minha, o que preciso é fazer o envio para um cliente, send que tenho o email dele armazenado em um BD, então quero pegar este email e ao redigir o orçamento ele seja encaminhado para o cliente específico.

 

Quero entrar na página do cliente, preencher alguns dados e ao enviar o email que ele seje direcionado ao email deste cliente. Como posso fazer?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crio uma conta de email no servidor e depois uso essa conta para chamar a função

Costumo chamar esta função.

<%

 Function SendEmail(de, para, assunto, msg)

on error resume next
FromName  = "NOME -  opcional, normalmente coloco o nome do cliente"
FromEmail =  de '' é a conta de email minha que criei no servidor
ToName       = ""
ToEmail   = para '' email do cliente
Subject   = assunto
HTMLBody  = msg




' conta de email criada no servidor no-reply@xxxxxxx.pt

smtpserver     = "SMTP"
sendusername = "no-reply@xxxxxxx.pt" '' user
sendpassword = "xxxxxxxx"


dim Mailer
set Mailer = server.createobject("CDO.Message")
set mailConf = server.createobject("CDO.Configuration")

if err.number <> 0 then
    errText = displayError("CDOSYS", searchURL, err.Number, err.Source, err.Description)
    CDOSYS_Mailer = false : set Mailer = nothing : err.clear() : err = 0
end if
Mailer.From = FromName & " <" & FromEmail & ">"
Mailer.To = ToName & " <" & ToEmail & ">"
Mailer.Subject = Subject
Mailer.HTMLBody = HTMLBody

with mailConf
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '1
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1' 2'
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = sendusername
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = sendpassword
   ' .Fields("http://schemas.microsoft.com/cdo/configuration/cdoSendUsingMethod") = 1
    '.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
    .Fields.Update
end with
set Mailer.Configuration = mailConf

Mailer.Send

if err.number <> 0 then
    errText = displayError("CDOSYS", searchURL, err.Number, err.Source, err.Description)
    CDOSYS_Mailer = false : set Mailer = nothing : err.clear() : err = 0
end if
set Mailer = Nothing
CDOSYS_Mailer = true


End function





 %>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tentei ver este seu código enviado, porém não consegui vincular o formulário que desejo com este envio.

No formulário quero colocar Nome, Email, Telefone e Mensagem

 

Dai ele vai mandar o email para a empresa com estas informações. Mas não consegui fazer.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Consegui de outra forma:

 

<%@ LANGUAGE="VBSCRIPT" %>
<%
dim html, nome, assunto, telefone, mensagem
nome = Trim(Request.Form("nome"))
email = Trim(Request.Form("email"))
assunto = Trim(Request.Form("assunto"))
telefone = Trim(Request.Form("telefone"))
mensagem = Trim(Request.Form("mensagem"))
response.Write(nome)
set mail = server.createobject("cdonts.newmail")
mail.from = "Pedido de orçamento do Divulga Sete <email@meuemail.com.br>"
'mail.From = Request.Form("email")
Mail.To = " "&email&" "
'Mail.Bcc = "email@email.com.br"
Mail.Subject = "Formulário de Contato On-line"
html = "Formulário de contato via Web" + "<br />" + "<br />"
html = html + "<strong>Nome: </strong>" + nome + "<br />"
html = html + "<strong>Telefone: </strong>" + Request.Form("telefone") + "<br />"
html = html + "<strong>E-mail: </strong>" + Request.Form("email") + "<br />"
html = html + "<strong>Comentario: </strong>" + Request.Form("mensagem") + "<br />"
response.Write(nome)
Mail.BodyFormat = 0
Mail.MailFormat = 0
Mail.Body = html
Mail.Send
Set Mail = Nothing
response.redirect "obrigado.html"
%>
<body>
</body>
</html>
O único problema é que quando tento o envio para o Yahoo ele não recebe, outros emails todos receberam normal. O que posso fazer para o yahoo receber?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tente por esse, nunca me deu problema:

 

<?php
$quebra_linha = "\n";
$emailsender = "email do dominio";
$nomeremetente = $_POST['nome'];
$emaildestinatario = "email que vai receber";
$msg = $_POST['msg'];
$email = $_POST['email'];
$fone = $_POST['fone'];
if(!preg_match("/[A-z]{3,40}/",$nome)){
echo("<script type='text/javascript'> alert('Nome Inválido!'); location.href='../contact.html';</script>");
}
if (!preg_match("/[0-9]{9,11}/", $fone)) {
echo("<script type='text/javascript'> alert('Insira o fone com DDD'); location.href='../contact.html';</script>");
}
if (!preg_match("/[a-z0-9_\.\-]+@[a-z0-9_\.\-]*[a-z0-9_\-]+\.[a-z]{2,4}/", $email)) {
echo("<script type='text/javascript'> alert('E-mail inválido !'); location.href='../contact.html';</script>");
}
$mensagemHTML = "<strong>$nomeremetente</strong><br><strong>$email</strong><br><strong>$fone</strong><p>$msg</p>";
$headers = "MIME-version: 1.1".$quebra_linha;
$headers .= "Content-type: text/html; charset=iso-8859-1".$quebra_linha;
$headers .= "From: ".$emailsender.$quebra_linha;
$headers .= "Return-Path: ".$emailsender.$quebra_linha;
mail($emaildestinatario, $msg, $mensagemHTML, $headers, $emailsender);
echo("<script type='text/javascript'> alert('E-mail enviado com sucesso !!!'
); location.href='../contact.html';</script>");
?>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.