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

e como faço com o aspmail ou aspemail????

Compartilhar este post

Link para o post
Compartilhar em outros sites

N3G4T1V3    0

N3G4T1V3
Postado

Faça 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 AspEmail</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 Mail = Server.CreateObject("Persits.MailSender") 'Servidor de SMTPMail.Host = "localhost"'E-mail do remetenteMail.From = "rodrigo@lavyflowers.com.br"'RemetenteMail.FromName = "lavyflowers" Mail.AddAddress emTeste(i), "lavyflowers" 'Assunto da mensagemMail.Subject = "TESTE" 'Corpo da mensagemMail.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='500' height='500'></embed></object></body></html>"On Error Resume NextMail.SendIf Err <> 0 ThenResponse.Write "Error encountered: " & Err.DescriptionResponse.Write emTeste(i) &" Não Enviado<br>"else Response.Write emTeste(i) &" Enviado<br>"End IfNext%><body></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

e como faço com o aspmail ou aspemail????

deixa quieto vai!!!! eu consegui!!!!!valeu pela ajuda!!!!!!!

e como faço com o aspmail ou aspemail????

deixa quieto vai!!!! eu consegui!!!!!valeu pela ajuda!!!!!!!
vo testar o seu!!!!eu consegui por um aqui, mas ele nao fala se foi todas!!!!calma q vou testar o seu!!!!deuError encountered: Software caused connect abort.rodrigo@lavyflowers.com.br Não EnviadoError encountered: Software caused connect abort.shumihehe@hotmail.com Não EnviadoError encountered: Software caused connect abort.teste@rodrigo.com.br Não EnviadoError encountered: Software caused connect abort.shumihehe@hotmail.com Não EnviadoError encountered: Software caused connect abort.rodrigocastroso@hotmail.com Não EnviadoError encountered: Software caused connect abort.paulo@lavyflowers.com.br Não EnviadoError encountered: Software caused connect abort.augustopovoa@hotmail.com Não EnviadoError encountered: Software caused connect abort.augustopovoa@ig.com.br Não EnviadoError encountered: Software caused connect abort.rodrigo2@lavyflowers.com.br Não EnviadoError encountered: Software caused connect abort.rodrigo3@lavyflowers.com.br Não EnviadoError encountered: Software caused connect abort. Não Enviado

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

o que eu consegui não da pra abrir no outlook ele bloqueia!!!!, não tem como fazer esse ai que você passou funcionar?????Valeu!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

N3G4T1V3    0

N3G4T1V3
Postado

enviei pra você um teste com esse codigo e parece tudo ok...<%@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 AspMail</title></head><%Response.Buffer = trueServer.ScriptTimeout=1000000Dim emTeste redim emTeste(9)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 = Server.CreateObject("SMTPsvg.Mailer")Mailer.FromName = "Teste"Mailer.FromAddress= "rodrigo@lavyflowers.com.br"Mailer.RemoteHost = "localhost"'Mailer.ConfirmRead = true'Mailer.SMTPLog = "D:\hshome\dedvanno\vannon.com.br\egrc\web\email\teste_emails\smtplog.txt"'Mailer.Priority = 1Mailer.AddRecipient "Teste", emTeste(i)Mailer.ContentType = "text/html"' formatação html Mailer.Subject = "Teste" Mailer.BodyText = "<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='500' height='500'></embed></object></body></html>"If Mailer.SendMail Then Response.Write "Mensagem enviada com sucesso" Response.Write emTeste(i) &" Enviado<br>"Else Response.Write "Erro " & Mailer.Response Response.Write emTeste(i) &" Não Enviado<br>"End IfNext%> <body></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Obrigado!!!!!deu certo!!!!!Valeu mesmo!!!!

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