[Resolvido] Enviar E-mail

[l_nando 0]

Dei um response.write no array e ele só não mostra o 1º mesmo.

 

Estou fazendo os testes com e-mails válidos, são particulares meus e estão enviando e recebendo normalmente, estranho!

 

?

 

Vlw!

[Jow Xavier 0]

Cara mostra ai o seu código ... se você estiver iniciando o seu for com i = 1 vai mostrar do segundo em diante, se iniciar com zero vai mostrar todos, sem erro ... posta ai o seu código !!!!

[l_nando 0]

beleza!

 

Agora se eu quizer enviar uma imagem junto, preciso fazer o upload dela 1º correto?

 

Vlw!

[Jow Xavier 0]

Funcionou o código ?

 

Se for uma imagem para cada email sim !!!

[l_nando 0]

Funcionou sim, valeu!

 

Fui tentar fazer o upload e está dando o seguinte erro:

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: '[undefined]'

/email2l/006.asp, line 11

 

 

Segue o cód:

 

<!--#include file="upload_funcoes.asp" -->
<link href="estilo.css" rel="stylesheet" type="text/css" />
<%' Chamando Funções, que fazem o Upload funcionar
Dim tipo_foto, caminh_foto, nome_foto, foto, pasta, cfoto
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
' Recuperando os Dados Digitados ----------------------
' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")
' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")
' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))
' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto").Item("Value")
' pasta onde as imagens serao guardadas
pasta = Server.MapPath("imagens/")
nome_foto = "/"&nome_foto
' pasta + nome dos arquivos
cfoto = "imagens" + nome_foto
' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if
' Conecta-se ao Banco de Dados
 %>
<%
Dim Vmail, Vemlass


Vmail = request.Form("txtmail")
Vemlass = request.Form("emlass")

if request.form("enviado") = 1 then
	rmail = split(request.form("txtmail"),chr(13))
	for i = 0 to ubound(rmail)
		'response.write rmail(i)
		'next
		
		'response.End()
	
Set Mail = Server.CreateObject("Persits.MailSender") 
Mail.Host = "smtp.dominio.com.br"
Mail.From = "nome@dominio.com.br"
Mail.FromName = "Nome Sobrenome"
Mail.AddAddress rmail(i)
Mail.Subject = Vemlass
Mail.Body = request.Form("emlmen")
Mail.AddAttachment foto
	Mail.Send
	next
	response.Redirect("006.asp")
	else

Linha 11:

tipo_foto = UploadRequest.Item("foto").Item("ContentType")

Até mais.

[Jow Xavier 0]

Cara é melhor você abrir outro tópico para solucionar o upload de imagens, assim outros usuários podem te ajudar ...

[l_nando 0]

beleza!

 

Engraçado, depois que tentei com o up de imagens, o envio de e-mail parou de funcionar, voltei como estava antes e nada.

 

Até

 

Desculpa galera, é que fiz umas modoficações no form e acabou colocando automaticamente o enctype="multipart/form-data" no cód.

 

Por isso parou de funcionar.

 

Valeu!!

[l_nando 0]

Valeu galera pela ajuda!

 

Vcs são fera!

 

Qlqer dúvida posto aí!

 

 

Abraços.

[xanburzum 169]

ok, amigo....

 

abraços

[Jow Xavier 0]

beleza que bom q resolveu

 

abraço