Ir para conteúdo

POWERED BY:

Arquivado

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

shumi

Convite!

Por , em ASP Clássico

Recommended Posts

shumi    0

shumi
Postado

Bom dia galera!!!!Tenho que mandar e-mails com um convite para um evento para uma lista de pessoas e o convite é em flash!!!!Tem como disparar todos os convites de uma vez só?????obrigado!ShUmI

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Você pode usar algum sistema de envio em massa, tipos akeles sisteminhas de newsleter.dê uma olhada nesses links:http://www.imasters.com.br/artigo.php?cn=596&cc=104http://www.wmonline.com.br/?area=arquivos&...oria=newsletter

tem como mandar por CDONT´S?

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

tem sim é só mudar a parte do aspmail pelo do cdontsolha esse link:http://forum.imasters.com.br/index.php?sho...22374&hl=cdonts

Carinha peguei esse:<%Set Mailer = CreateObject("CDONTS.NewMail")Mailer.From = "rodrigo@newstyle.com.br" Mailer.To = "para@pessoa.com.br" Mailer.CC = "rodrigo@newstyle.com.br" Mailer.BodyFormat = 1 Mailer.MailFormat = cdoMailFormatText Mailer.AttachFile "C:\Documents and Settings\Rodrigo\Desktop\mail_teste"Mailer.Subject = "teste" Mailer.Body = "Tim" Mailer.Send Set Mailer = Nothing %>pra quem vou enviar tenho uma lista em TXT ela é meio grandinha!!!!! tem como fazer puxar desta lista?????Valeu!!!!!

tem sim é só mudar a parte do aspmail pelo do cdontsolha esse link:http://forum.imasters.com.br/index.php?sho...22374&hl=cdonts

Carinha peguei esse:<%Set Mailer = CreateObject("CDONTS.NewMail")Mailer.From = "rodrigo@newstyle.com.br" Mailer.To = "para@pessoa.com.br" Mailer.CC = "rodrigo@newstyle.com.br" Mailer.BodyFormat = 1 Mailer.MailFormat = cdoMailFormatText Mailer.AttachFile "C:\Documents and Settings\Rodrigo\Desktop\mail_teste"Mailer.Subject = "teste" Mailer.Body = "Tim" Mailer.Send Set Mailer = Nothing %>pra quem vou enviar tenho uma lista em TXT ela é meio grandinha!!!!! tem como fazer puxar desta lista?????Valeu!!!!!
Ha!!!!! e como faço para execultar????coloco na minha ftp e abro ele??????Valeu!

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Carasou totalmente novato em programação!!!! ai me passaram este pepino!!!! me deram um arquivo em TXT com as pessoas pra quem devo enviar e me deram o arquivo em flash como eu faço isso que você me falou?Obrigado!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

N3G4T1V3    0

N3G4T1V3
Postado

Vou quebrar teu galho aqui está um exemplo de envio:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Envio de Email CDONTS</title></head><%Response.Buffer = trueServer.ScriptTimeout=1000000Dim emTeste redim emTeste(10)emTeste(0) = "email@email.com.br"emTeste(1) = "email@email.com.br"emTeste(2) = "email@email.com.br"emTeste(3) = "email@email.com.br"emTeste(4) = "email@email.com.br"emTeste(5) = "email@email.com.br"emTeste(6) = "email@email.com.br"emTeste(7) = "email@email.com.br"emTeste(8) = "email@email.com.br"emTeste(9) = "email@email.com.br"For i = 0 To Ubound(emTeste)Set Mailer = CreateObject("CDONTS.NewMail")Mailer.From = "email@email.com.br" ' e-mail de quem esta enviando a mensagem Mailer.To = emTeste(i) ' e-mail de quem vai receber a mensagem 'Mailer.CC = "conta@destinatario.com.br" ' Com Cópia Mailer.BodyFormat = 1 ' parametro de formatação Mailer.MailFormat = cdoMailFormatText ' parametro de formatação 'Mailer.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mailMailer.Subject = "Envio de Email pelo CDONTS"Mailer.Body = "Aqui você coloca o código html que abre o flash"Mailer.Send Set Mailer = Nothing Next%><body></body></html>bom o código ta pronto.. a unica coisa que você tem que mudar é caso tenha mais emails você deverá aumentar o numero do array está linha:redim emTeste(10) (se você tiver 20 emails coloque no parenteses 19 é sempre 1 a menos por causa do 0)e cada email que você colocar aumente 1 numero:emTeste(1) = "email@email.com.br"emTeste(2) = "email@email.com.br"lembre se de preecher o Mailer.From com o email que vai enviar os emailfazendo isso é só salvar isso em uma página asp e executar no seu servidor..agora mais que isso eu num posso faze amigo ja entreguei de mão beijada pra você

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Cara fiz como você me passou ve se ta certo:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Envio de Email CDONTS</title></head><%Response.Buffer = trueServer.ScriptTimeout=1000000Dim emTeste redim emTeste(10)emTeste(0) = "rodrigo@lavyflowers.com.br"emTeste(1) = "rodrigo@newstyle.com.br"emTeste(2) = "shumieae@hotmail.com"emTeste(3) = "shumihehe@hotmail.com"emTeste(4) = "rodrigocastroso@hotmail.com"emTeste(5) = "paulo@lavyflowers.com.br"emTeste(6) = "augustopovoa@hotmail.com"emTeste(7) = "augustopovoa@ig.com.br"emTeste(8) = "rodrigo2@lavyflowers.com.br"emTeste(9) = "rodrigo3@lavyflowers.com.br"For i = 0 To Ubound(emTeste)Set Mailer = CreateObject("CDONTS.NewMail")Mailer.From = "rodrigo@lavyflowers.com.br"Mailer.To = emTeste(i) ' e-mail de quem vai receber a mensagem 'Mailer.CC = "conta@destinatario.com.br" ' Com Cópia Mailer.BodyFormat = 1 ' parametro de formatação Mailer.MailFormat = cdoMailFormatText ' parametro de formatação 'Mailer.AttachFile "C:\Documents and Settings\Rodrigo\Desktop\mail_teste\teste.swf" 'caso queira anexar algum arquivo ao seu e-mailMailer.Subject = "TESTE"Mailer.Body = "<html><head><title>teste</title></head><body><embed src="www.lavyflowers.com.br/tim05/teste.swf" quality="high" bgcolor="#ffffff" width="550" height="400" name="teste" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" /></body></html>"Mailer.Send Set Mailer = Nothing Next%><body></body></html>Mandei só com a mensagem TESTE e deu certo, mas quando inseri minha pagina HTML deu este erroErro de compilação do Microsoft VBScript erro '800a0401' Fim da instrução esperado /tim05/email.asp, line 36 Mailer.Body = "<html><head><title>teste</title></head><body><embed src="www.lavyflowers.com.br/tim05/teste.swf" quality="high" bgcolor="#ffffff" width="550" height="400" name="teste" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" /></body></html>"onde errei????veleu!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Troque essas " internas por ' ou "".

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

agora o e-mail foi, soh q ao inves de ir o filme em flash foi as tags em HTML....O q devo mudar?

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

chegou em branco agora!!!!!eu tenho q anexar o arquivo em flash ao e-mail ou fazebndo a pagina em html da certo?

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

entao eu não estou mandando o arquivo em anexo, eu fia a pagina em HTML e nela tem o "embed src" e no embed que puxa o arquivo!!!!! assim não da certo?pois quando coloco com anexo da erro!!!!!erro '80004005' Erro não especificado /tim05/email.asp, line 34

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Você não deve colocar como anexo! você deve hospedar esse arquivo no seu site e coloque assim: embed src=http://www.seusite.com.br/teste.swf

foi isso q fiz!!!!! só q vai em branco o corpo da mensagem!!!!!olha como fiz<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Envio de Email CDONTS</title></head><%Response.Buffer = trueServer.ScriptTimeout=1000000Dim emTeste redim emTeste(10)emTeste(0) = "rodrigo@lavyflowers.com.br"emTeste(1) = "shumihehe@hotmail.com"emTeste(2) = "teste@rodrigo.com.br"emTeste(3) = "shumihehe@hotmail.com"emTeste(4) = "rodrigocastroso@hotmail.com"emTeste(5) = "paulo@lavyflowers.com.br"emTeste(6) = "augustopovoa@hotmail.com"emTeste(7) = "augustopovoa@ig.com.br"emTeste(8) = "rodrigo2@lavyflowers.com.br"emTeste(9) = "rodrigo3@lavyflowers.com.br"For i = 0 To Ubound(emTeste)Set Mailer = CreateObject("CDONTS.NewMail")Mailer.From = "rodrigo@lavyflowers.com.br"Mailer.To = emTeste(i) ' e-mail de quem vai receber a mensagem 'Mailer.CC = "conta@destinatario.com.br" ' Com Cópia Mailer.BodyFormat = 1 ' parametro de formatação Mailer.MailFormat = cdoMailFormatText ' parametro de formatação 'Mailer.AttachFile "http://www.lavyflowers.com.br/tim05/teste.swf"Mailer.Subject = "TESTE"Mailer.Body = "<html><head><title>TESTE</title></head><body><embed src='http://www.lavyflowers.com.br/tim05/teste.swf'></body></html>"Mailer.BodyFormat=0Mailer.MailFormat=0Mailer.Body=HTMLMailer.Send Set Mailer = Nothing Next%><body></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

N3G4T1V3    0

N3G4T1V3
Postado

use esse codigo para colocar flash.<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="32" height="32"> <param name="movie" value="http://www.lavyflowers.com.br/tim05/teste.swf" /> <param name="quality" value="high" /> <embed src="http://www.lavyflowers.com.br/tim05/teste.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="32" height="32"></embed></object>

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

continua em branco o corpo....fiz assim:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Envio de Email CDONTS</title></head><%Response.Buffer = trueServer.ScriptTimeout=1000000Dim emTeste redim emTeste(10)emTeste(0) = "rodrigo@lavyflowers.com.br"emTeste(1) = "shumihehe@hotmail.com"emTeste(2) = "teste@rodrigo.com.br"emTeste(3) = "shumihehe@hotmail.com"emTeste(4) = "rodrigocastroso@hotmail.com"emTeste(5) = "paulo@lavyflowers.com.br"emTeste(6) = "augustopovoa@hotmail.com"emTeste(7) = "augustopovoa@ig.com.br"emTeste(8) = "rodrigo2@lavyflowers.com.br"emTeste(9) = "rodrigo3@lavyflowers.com.br"For i = 0 To Ubound(emTeste)Set Mailer = CreateObject("CDONTS.NewMail")Mailer.From = "rodrigo@lavyflowers.com.br"Mailer.To = emTeste(i) ' e-mail de quem vai receber a mensagem 'Mailer.CC = "conta@destinatario.com.br" ' Com Cópia Mailer.BodyFormat = 1 ' parametro de formatação Mailer.MailFormat = cdoMailFormatText ' parametro de formatação 'Mailer.AttachFile "http://www.lavyflowers.com.br/tim05/teste.swf"Mailer.Subject = "TESTE"Mailer.Body = "<html><head><title>TESTE</title></head><body><object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0' width='32' height='32'><param name='movie' value='http://www.lavyflowers.com.br/tim05/teste.swf' /><param name='quality' value='high' /><embed src='http://www.lavyflowers.com.br/tim05/teste.swf' quality='high' pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width='32' height='32'></embed></object></body></html>"Mailer.BodyFormat=0Mailer.MailFormat=0Mailer.Body=HTMLMailer.Send Set Mailer = Nothing Next%><body></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito