Cdonts

#1 .:Matrix:.

12 Horas

Usuários
123 posts

Sexo:Não informado
Localidade:Sampa
Interesses:Muitos menos Delphi, PHP e Adjacentes hauahaua

Posted 23/04/2004, 14:19

Fala aeee galera,

Bem eu to montando um newsletter, to quase terminando mais resolvi usar o CDONTS, e naum to conseguindo, andei procurando por tudo quanto é lugar e não consegui achar nada.

Bem o sistema diz que manda mais eu naum recebo nada, agora vo posta o que eu entendi que era o CDONTS, pois sou mto nb nele:

<%
vAssunto = Request("assunto")
vMenssagem = request("menssagem")
vRemetente = "jczito@ig.com.br"
Set RS = Conexao.Execute("Select * From emails")
x = 0

While Not RS.EOF

	Set MeuMail = CreateObject("CDONTS.NewMail")
	MeuMail.From = vRemetente
	MeuMail.To = RS("email")
	MeuMail.Subject = vAssunto
	MeuMail.BodyFormat = 0
	MeuMail.MailFormat = 0
	MeuMail.Body = vMenssagem
	MeuMail.Send
	Set MeuMail = Nothing
	
	x = x + 1
	
RS.Movenext
Wend

response.Write("<center>Email enviado para<b> "&x&" </b>pessoas.")
%>

Entaum deem uma olhada, eu tenho um arquivo que chama a conexão. e ta antes disso ae, o que to fazendo de errado.

Sempre usei ASPMail e nunca deu paus hauahuahau (mais quero usar o cdonts)

Abraços

PS.: To com o componente instalado sim.

Este post é dedicado a Yasmin minha linda filhinha hauhauahau
-----------------------------------------------------------------------
Visite ::: www.destroyers.com.br (onde sou o Fundador hauahua)
-----------------------------------------------------------------------
Se puder ajudar fico grato se naum puder, fico do mesmo jeito, pelo menos leu neh :-D

#2 cybermix

andrewsmedina.com.br

Ex-Admins
3586 posts

Sexo:Não informado
Localidade:Não sou desse planeta não!!!!
Interesses:python, fireworks, linux, php, flash...

Posted 23/04/2004, 16:07

tenta colocar como

 Set MeuMail = server.CreateObject("CDONTS.NewMail")

www.andrewsmedina.com.br

#3 .:Matrix:.

12 Horas

Usuários
123 posts

Sexo:Não informado
Localidade:Sampa
Interesses:Muitos menos Delphi, PHP e Adjacentes hauahaua

Posted 23/04/2004, 17:04

Cyber naum adianto nada naum maninho...

To procurando a semana toda e naum acho uma solução, mais alguem tem uma ideia???

abraços

#4 Rodrigo

oi!

Usuários
995 posts

Sexo:Não informado
Interesses:Diretório de sites - http://www.acheinobrasil.com.br

Posted 23/04/2004, 18:00

tenta assim:

<%
vAssunto = Request("assunto")
vMenssagem = request("menssagem")
vRemetente = "jczito@ig.com.br"
Set RS = Conexao.Execute("Select * From emails")
x = 0

Set MeuMail = CreateObject("CDONTS.NewMail")

While Not RS.EOF

MeuMail.From = vRemetente
MeuMail.To = RS("email")
MeuMail.Subject = vAssunto
MeuMail.BodyFormat = 0
MeuMail.MailFormat = 0
MeuMail.Body = vMenssagem
MeuMail.Send

x = x + 1

RS.Movenext
Wend

Set MeuMail = Nothing

response.Write("<center>Email enviado para<b> "&x&" </b>pessoas.")
%>

Diretório de sites brasileiros - Achei no Brasil

#5 victor

Visitantes

Posted 23/04/2004, 18:54

pegue esse:

<%
function email_cdonts(de_email, para_email, subject,  mensagem)

Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.mailformat=0 'para enviar html como mensagem
objmail.bodyformat=0 'para enviar html como mensagem
objmail.from = de_email
objmail.to = para_email
objmail.subject = subject
objmail.body = mensagem
objmail.send
Set objmail = nothing

end function
%>

com esse você vai poder usar HTML para mandar o seu e-mail por aqui!!!! Caso tenha mais alguma dúvida é só falar ae!!!!

[]'s
Victor

#1 .:Matrix:.

#2 cybermix

#3 .:Matrix:.

#4 Rodrigo

#5 victor

1 user(s) are reading this topic

Entrar