CDONTS não envia email

[Luan Messias 0]

Ola galera !

 

queria pedir ajuda com um sistema que estou usando

ele esta funcionando certinho cadastro de emails e tudo mais so que na hora de enviar ele ate da

a menssagem de envio mas nada dos emails chegarem http://forum.imasters.com.br/public/style_emoticons/default/pinch.gif

 

 

testei envio para outlook com email da minha empresa e um do yahoo em nehum dos dois chegou a menssagem

o codigo responsável por esta ação é este:

 

 

<%@Language=VBScript%>
<% If Session("project1_status") <> "login" Then Response.Redirect "login.asp" %>
<%

Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<!--#include file="db.asp"-->


<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
strsql = "SELECT * FROM [emails]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn
%>

<!--#include file="header.asp"-->
<form>
<%

recActual = 0
Do While (NOT rs.EOF)
	recCount = recCount + 1
	 %>

<%
	'Load Key for record
	key = rs("ID")
	x_Name = rs("Name")
	x_Email = rs("Email")
%>

<%
response.write x_Email %>
<br>
<% 

if TechnoDreamsCDONTS = "yes" then

Set oMail = Server.CreateObject("SMTPsvg.Mailer")
oMail.FromName = technodreams_company
oMail.FromAddress= technodreams_email
oMail.RemoteHost = technodreams_mail
oMail.AddRecipient "", x_Email
oMail.Subject = Trim(Request.Form("txtSubject"))
oMail.BodyText = Trim(Request.Form("txtMessage"))
oMail.SendMail
oMail.ClearAllRecipients
oMail.ClearBodyText
Set oMail = Nothing

else

Set objNewMail = CreateObject("Persits.MailSender") 
objNewMail.From = technodreams_email
objNewMail.Host = technodreams_mail
objNewMail.AddAddress x_Email
objNewMail.Subject = Trim(Request.Form("txtSubject"))
objNewMail.Body = Trim(Request.Form("txtMessage"))
objNewMail.Send
Set objNewMail = Nothing

end if
	   	
	%>
	<%
	rs.MoveNext
Loop
%>


</form>
<%
' Close recordSet and connection
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing %>


Message Sent!<!--#include file="footer.asp"-->

 

 

 

 

 

se alguem souber onde esta o erro ou a solução eu agradeço http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[moninha_ms 0]

Amigo,

 

esperimenta por assim:

 

chama as váriáveis recebidas pelo form por algum nome curto. Exemplo

 

vassunto = Trim(request.Form("txtassunto"))

Set oMail = CreateObject("CDONTS.NewMail")
oMail.Host = "smtp.technodreams.com.br"
oMail.Port = 25
oMail.From = "email@technodreams.com.br"
oMail.FromName = "Fulano"
oMail.AddAddress "Trim("txtform")" , "Trim("txt_nome_usuário")"
0Mail.Subject = vassunto 
0Mail.Body = corpo
0Mail.IsHTML = True
On Error Resume Next 

0Mail.Send
   If Err.Number <> 0 Then 
	  Response.Write("Ocorreu um erro ao tentar enviar e-mail")
	  Response.write("<hr noshade size='0' color='#C0C0C0'>")
   else   
		mensagem = "Email enviado com sucesso."<br>" 
	  Response.write("<hr noshade size='0' color='#C0C0C0'>")	
   End if
	  Set Mail = Nothing
'Next
'End Sub

'End if
%>

 

Tá faltando o host e a porta = 25, por isso que não envia...

 

 

Espero ter ajudado.

[adrilr 0]

Gostaria de saber se tem como enviar imagens neste componente.

Estou enviando mensagens baseado num conjunto de registros, os textos são enviados normalmente, quero saber agora como enviar uma imagem que tb esta no conjunto de registros.

 

valew...

[Ted k' 126]

sim tem... mais você quer como anexo ou como html?

 

com anexo:

oMail.AttachFile caminho

com html é assim:

http://support.microsoft.com/kb/189945/pt-br