Ir para conteúdo
Fórum Script Brasil
  • 0

Email Duplicado ...

PRISCILA STOCHINI

Perguntado por PRISCILA STOCHINI,

 Share

Pergunta

5 respostass a esta questão

Posts Recomendados

  • 0
PRISCILA STOCHINI

PRISCILA STOCHINI

Postado
  • Autor
Postado 

<title>Multiplus - Software T&eacute;cnicos</title>
<!-- #include file = "funcoes_upload.asp" -->
<!--#include file="conectando.asp"-->
<%
'Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Tipo de arquivo que esta sendo enviado
tipo_arquivo = UploadRequest.Item("arquivo").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_arquivo = UploadRequest.Item("arquivo").Item("FileName")

' Nome dos arquivos enviados
nome_arquivo = Right(caminho_arquivo,Len(caminho_arquivo)-InstrRev(caminho_arquivo,"\"))

' Conteudo binario dos arquivos enviados
arquivo = UploadRequest.Item("arquivo").Item("Value")

'pasta onde as imagens serao guardadas
pasta = Server.MapPath("obras/")
nome_arquivo = "/"&nome_arquivo

' pasta + nome dos arquivos
Varquivo = "obras" + nome_arquivo

' Fazendo o Upload do arquivo selecionado
if Varquivo <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo)
For i = 1 to LenB(arquivo)
MyFile.Write chr(AscB(MidB(arquivo,i,1)))
Next
MyFile.Close
end if
'---------------- RESPOSTA DO TECNICO COM ANEXO---------------------

'selecionando o registro cadastrado para preparar o envio de email
sql = "Select * from suptec where codigo = '"&Vcodigo&"'"

'executando recordset para pesquisar se os dados foram cadastrados
Set rs = bco.Execute(sql)

'verificando se houve erro, se não houve envia por email
if rs.eof then 
Response.Write("Registro não encontrado.Erro na gravação")
else

'definimos o endereço de email que irá enviar o email
Vemail = "teste@cype.com.br"

'criamos o obejto do cdonts
Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

'recebe o valor do recordset com o email cadastrado
EnviarMail.To = rs("email")

'recebe o email de quem envia da variavel Vemail
EnviarMail.From = Vemail

'corpo do email armazenado na variavel
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type""" 
HTML = HTML & "content=""text/html; charset=iso-8859-1"">" 
HTML = HTML & "<title>DÚVIDA ENCAMINHADAS AO SUPORTE TÉCNICO DA MULTIPLUS</title>" 
HTML = HTML & "</head>" 
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "<p style=""font-family: Arial, Helvetica, sans-serif; font-size: 24px"">MULTIPLUS</span><br/>"
HTML = HTML & "<span style=""font-size: 12px"">Softwares T&eacute;cnicos</span></p>"
HTML = HTML & "<p style=""font-size: 18px; font-family: Arial, Helvetica, sans-serif"">Resposta a dúvida encaminhada ao Departamento de Suporte Técnico da MULTIPLUS:</p>"
HTML = HTML & "<font size=""2"" face=""arial"">"
HTML = HTML & "<B>Prezado Usuário: </B>" & Session("Vcontato") & "<BR><BR>"
HTML = HTML & "<B>Assunto da Dúvida: </B>" & Session("Vresumo") & "<BR>"
HTML = HTML & "<B>Dúvida: </B>" & Session("Vduvida") & "<BR><BR>"
HTML = HTML & "</font>"
HTML = HTML & "<font size=""3"" face=""arial"" color=""#FF0000"">"
HTML = HTML & "<B>RESPOSTA DO SUPORTE TÉCNICO DA MULTIPLUS</B><BR>"
HTML = HTML & "</font>"
HTML = HTML & "<font size=""2"" face=""arial"">"
HTML = HTML & "<B>Técnico: </B>" & Session("Vtecnico") &  "<BR>"
HTML = HTML & "<B>Resposta: </B>" & Session("Vresposta") & "<BR>"
HTML = HTML & "<B>Anexo: </B>" & nome_arquivo & "<BR>"
HTML = HTML & "</font>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"

'propriedade recebe a variavel do corpo do email
Server.ScriptTimeout = 1000

varanexo = Server.MapPath(Varquivo)

Set myMail = CreateObject("CDONTS.NewMail") 
myMail.From = "teste@cype.com.br"
myMail.To = rs("email")
myMail.Subject = "RESPOSTA DO SUPORTE TECNICO DA MULTIPLUS"
myMail.BodyFormat = 0 
myMail.MailFormat = 0
myMail.Attachfile varanexo
myMail.Body = HTML 
myMail.Send 

Set myMail = Nothing 

EnviarMail.Send 
End if

'---------------- EMAIL DE SATISFAÇÃO DO USUARIO ---------------

'selecionando o registro cadastrado para preparar o envio de email
sql = "Select * from suptec where codigo = '"&Vcodigo&"'"

'executando recordset para pesquisar se os dados foram cadastrados
Set rs = bco.Execute(sql)

'verificando se houve erro, se não houve envia por email
if rs.eof then 
Response.Write("Registro não encontrado.Erro na gravação")
else

'definimos o endereço de email que irá enviar o email
Vemail = "teste@cype.com.br"

'criamos o obejto do cdonts
Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

'recebe o valor do recordset com o email cadastrado
EnviarMail.To = rs("email")

'recebe o email de quem envia da variavel Vemail
EnviarMail.From = Vemail

'Assunto do email
EnviarMail.Subject = "Solucionada a sua dúvida?"

'corpo do email armazenado na variavel
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type""" 
HTML = HTML & "content=""text/html; charset=iso-8859-1"">" 
HTML = HTML & "<title>CADASTROS</title>" 
HTML = HTML & "</head>" 
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "<p style=""font-family: Arial, Helvetica, sans-serif; font-size: 24px"">MULTIPLUS</span><br/>"
HTML = HTML & "<span style=""font-size: 14px"">Softwares T&eacute;cnicos</span></p><BR><BR>"
HTML = HTML & "<p style=""font-size: 18px; font-family: Arial, Helvetica, sans-serif"">Prezado Usuário, " & Session("Vcontato") & "</p>"
HTML = HTML & "<p style=""font-size: 16px; font-family: Arial, Helvetica, sans-serif"">Gostaríamos que nos respondesse este e-mail caso a sua dúvida não tenha sido solucionada satisfatóriamente.</p>"
HTML = HTML & "<p style=""font-size: 18px; font-family: Arial, Helvetica, sans-serif"">Atenciosamente,</p>"
HTML = HTML & "<p style=""font-size: 18px; font-family: Arial, Helvetica, sans-serif"">Departamento de Qualidade de Atendimento MULTIPLUS</p>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"

'propriedade recebe a variavel do corpo do email
EnviarMail.Body = HTML
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0

EnviarMail.Send 

'fecha o objeto cdonts
Set EnviarMail = Nothing

if Err.Number <> 0 Then
Response.Write("Erro:" & Err.Description &".")
else
Response.Write("Email Enviado")
End if
End if

'fechando e destuindo a conexão
bco.Close
Set bco = Nothing

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If Fso.FileExists(varanexo) Then
Set anexo = FSO.GetFile(varanexo)
anexo.delete
end if
'-----------------------------------------------------------------------------------------------------------------------------------

' finaliza o cadastro
Response.Redirect(response.write("<script>location = 'relatorio.asp';alert('Seu email foi enviado com sucesso!.')</script>")) 
%>

O código tá tudo certo, está enviando os emails com anexo tudo certinho...só está indo um email sem nada e não deveria ir esse email..

Me ajudem só falta isso!

Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado 

<%
'---------------- RESPOSTA DO TECNICO COM ANEXO---------------------

'selecionando o registro cadastrado para preparar o envio de email
sql = "Select * from suptec where codigo = '"&Vcodigo&"'"

'executando recordset para pesquisar se os dados foram cadastrados
Set rs = bco.Execute(sql)

'verificando se houve erro, se não houve envia por email
if rs.eof then 
Response.Write("Registro não encontrado.Erro na gravação")
else

'definimos o endereço de email que irá enviar o email
Vemail = "teste@cype.com.br"

'criamos o obejto do cdonts
Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

'recebe o valor do recordset com o email cadastrado
EnviarMail.To = rs("email")

'recebe o email de quem envia da variavel Vemail
EnviarMail.From = Vemail

'corpo do email armazenado na variavel
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type""" 
HTML = HTML & "content=""text/html; charset=iso-8859-1"">" 
HTML = HTML & "<title>DÚVIDA ENCAMINHADAS AO SUPORTE TÉCNICO DA MULTIPLUS</title>" 
HTML = HTML & "</head>" 
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "<p style=""font-family: Arial, Helvetica, sans-serif; font-size: 24px"">MULTIPLUS</span><br/>"
HTML = HTML & "<span style=""font-size: 12px"">Softwares T&eacute;cnicos</span></p>"
HTML = HTML & "<p style=""font-size: 18px; font-family: Arial, Helvetica, sans-serif"">Resposta a dúvida encaminhada ao Departamento de Suporte Técnico da MULTIPLUS:</p>"
HTML = HTML & "<font size=""2"" face=""arial"">"
HTML = HTML & "<B>Prezado Usuário: </B>" & Session("Vcontato") & "<BR><BR>"
HTML = HTML & "<B>Assunto da Dúvida: </B>" & Session("Vresumo") & "<BR>"
HTML = HTML & "<B>Dúvida: </B>" & Session("Vduvida") & "<BR><BR>"
HTML = HTML & "</font>"
HTML = HTML & "<font size=""3"" face=""arial"" color=""#FF0000"">"
HTML = HTML & "<B>RESPOSTA DO SUPORTE TÉCNICO DA MULTIPLUS</B><BR>"
HTML = HTML & "</font>"
HTML = HTML & "<font size=""2"" face=""arial"">"
HTML = HTML & "<B>Técnico: </B>" & Session("Vtecnico") &  "<BR>"
HTML = HTML & "<B>Resposta: </B>" & Session("Vresposta") & "<BR>"
HTML = HTML & "<B>Anexo: </B>" & nome_arquivo & "<BR>"
HTML = HTML & "</font>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"

'propriedade recebe a variavel do corpo do email
Server.ScriptTimeout = 1000

varanexo = Server.MapPath(Varquivo)

Set myMail = CreateObject("CDONTS.NewMail") 
myMail.From = "teste@cype.com.br"
myMail.To = rs("email")
myMail.Subject = "RESPOSTA DO SUPORTE TECNICO DA MULTIPLUS"
myMail.BodyFormat = 0 
myMail.MailFormat = 0
myMail.Attachfile varanexo
myMail.Body = HTML 
myMail.Send 

Set myMail = Nothing 

EnviarMail.Send 
End if

'---------------- EMAIL DE SATISFAÇÃO DO USUARIO ---------------
%>
vrifique que você no enviaremail não colocou o corpo da mensagem que seria html.... 
<%
EnviarMail.Body = HTML 
EnviarMail.Send 
%>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,2k
    • Posts
      651,9k
×
×
  • Criar Novo...