Ir para conteúdo

POWERED BY:

Arquivado

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

nfmi

Robozinho de envio de e-mail

Por , em PHP

Recommended Posts

nfmi    0

nfmi
Postado

Ae galera !!!

 

To com uma dúvida aqui.

preciso montar uma espécie de página que funciona como um robozinho de envio de e-mail. onde nessa página a pessoa seleciona uma arquivo htm e esta página pega esse arquivo htm e joga no corpo da msg de e-mail.

 

Tenho essa página em ASP e preciso passar p/ PHP

 

 

Segue o código das páginas:

 

Página NEWS

<%Response.Write "<html><head><title>Escolha de Arquivos - Newsletter</title></head>"Response.Write "<body link=#000000 vlink=#000000 alink=#000000>"Dim ObjFso, ObjArq, ObjPasta, ObjSubPasta Set ObjFso = Server.CreateObject("Scripting.FileSystemObject") Response.Write "<br>" Set ObjPasta = ObjFso.GetFolder(SERVER.MAPPATH(".")) 'For Each ObjSubPasta in ObjPasta.Subfolders '    Response.Write "<a href=view3.asp?pasta="&ObjSubPasta.Name & "> "&ObjSubPasta.Name &" </a?<br>" '    Response.Write "<br>" 'Next 'Response.Write "</font><br>" 'response.Write("<a></a>")Response.Write "<font color='#0000ff' size='2' face='verdana'><b>Listas de Envio " Response.Write "</b></font><br>" response.write "<form action=envio.asp method=get>"Response.Write "<font size='2' face='verdana'>" response.write "<br> Subject: <br> </font> <input type=text name='txtsubject' size=50> <br> "response.write "Emails - <br><select name=emailfrom> "Set arquivo = Server.CreateObject("Scripting.FileSystemObject") Set emailsfrom = arquivo.OpenTextFile(server.mappath("emailsfrom.txt"),1,true) while not emailsfrom.AtEndOfStreamresponse.write "<option> " & emailsfrom.readlinewendset arquivo=nothingresponse.write "</select> <br>"'---------------------------------  Monta Combo de To (Destinatarios)response.write "Lista de Envio <br><select name=lista>"For Each ObjArq in ObjPasta.Files  if mid(objarq.name,len(objarq.name)-2,4)="csv" then    response.write "<option>" & Mid(ObjArq.Name,1,len(ObjArq.Name)-4)  end if    Next response.write "</select>"Response.Write "<br>" Response.Write "<font color='#0000ff' size='2' face='verdana'><b>News de Envio " Response.Write "</b></font><br>" response.write "<select name=News>"'---------------------------------  Monta Combo de NewsFor Each ObjArq in ObjPasta.Files  if mid(objarq.name,len(objarq.name)-2,4)="htm" then    response.write "<option>" & ObjArq.Name end ifNext response.write "</select> "response.write "<br> Email: <input type=text name='txtemail' size=50> <br> "response.write "<input type=Submit Value='Enviar'></form>"Set ObjPasta = Nothing Set ObjArq = Nothing 'Set ObjSubPasta = Nothing Set ObjFso = Nothing Response.Write "</body></html>" %>

Página ENVIO

<%xlista = request("lista")xnews = request("news")xemail = request("txtemail")xsubject= request("txtsubject")xemailsfrom = request("emailfrom")response.buffer = true%><form name="f1"><input type=text name="contador" value="0"> <br></form><%response.flush()Set arquivo = Server.CreateObject("Scripting.FileSystemObject") Set news = arquivo.OpenTextFile(server.mappath(xnews),1,true) NewsEnvio  = news.readALLif len(xemail)=0 thenSet Nomes = arquivo.opentextfile(server.mappath(xlista & ".csv"),1,true)SERVER.ScriptTimeout = 99999while not nomes.AtEndOfStream NomesEnvio = nomes.readlineok = 0x = instr(1,NomesEnvio,";")y = instr(x+1,NomesEnvio," ")z = instr(1,NomesEnvio,"@.")w = instr(1,NomesEnvio,".@")if y<>0 or z<>0 or w<>0 then ok=1if ok=0 then AddressName =  mid(NomesEnvio,1,instr(nomesenvio,";")-1)AddressMail =  mid(NomesEnvio,instr(nomesenvio,";")+1,len(nomesenvio))Set objmail = Server.CreateObject("Persits.MailSender")objmail.Host = "smtp.iphotel.com.br"objmail.From = xemailsfromobjmail.AddAddress AddressMail , AddressNameobjmail.Subject = xsubjectobjmail.IsHTML = Trueobjmail.Body = replace(NewsEnvio,"email=","email=" & AddressMail )objmail.Send%><script language="JavaScript">document.f1.contador.value++</script><%Set objmail = nothingresponse.flush()ELSE response.write "Errado - "  & NomesEnvioend ifwendelseAddressName =  "Cliente GP"AddressMail =  xemailSet objmail = Server.CreateObject("Persits.MailSender")objmail.Host = "smtp.iphotel.com.br"objmail.From = xemailsfromobjmail.AddAddress AddressMail , AddressNameobjmail.Subject = xsubject objmail.IsHTML = Trueobjmail.Body = replace(NewsEnvio,"email=","email=" & AddressMail )objmail.SendSet objmail = nothingend ifset arquivo=nothing%><br><A href=news.asp> Voltar </a>

Galera preciso de ajuda !!!

URGENTE !!!!

 

se alguém souber de algum tutorial me ajudeee !!! :unsure:

 

 

Agradeço desde já !!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos PHP
×

Informação importante

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

  Aceito