A missão

[fabiosc80 0]

To com problemas no aspemail.

Ele simplismente napo envia o e-mail e nao sei por que.

Tem algo errado nesse código que eu nao to vendo?

 

Num form tenho o seguinte código...

 

ASP [/tr][tr] <form action="<%=scriptname%>" method=post>

<input type=hidden name="action" value="updatedetails">

Senha:<br><input size=20 type=text name="password" value="<%=password%>"><p>

Nome do Site:<br><input size=40 type=text name="sitename" value="<%=sitename%>"><p>

Email Responsável:<br><input size=40 type=text name="siteemail" value="<%=siteemail%>"><p>

Nome da Lista de usuários:<br><input size=40 type=text name="listname" value="<%=listname%>"><p>

Assinatura Inferior (ira no rodapé de todos emails):<br><textarea name="autotext" cols=50 rows=10><%=autotext%></textarea><p>

Tipo de servidor de email: <Select name="emailtype"><option name="emailtype" value="ASPEmail"<%If emailtype="ASPEmail" Then Response.Write " Selected"%>>AspEmail</option></Select><p>

Nome do Servidor de email: (Veja com o provedor)<br><input size=40 type=text name="smtpserver" value="<%=smtpserver%>"><p>

Titulo do email:<br><input size=40 type=text name="welcometitle" value="<%=welcometitle%>"><p>

Local do informativo:<br><textarea name="welcomemessage" cols=50 rows=10><%=welcomemessage%></textarea><p>

<input type=submit value="   Atualizar">

</form>

<hr>

<h4>Converter para uma lista existente ?</h4>

<form action="<%=scriptname%>" method=post>

Entre com o nome do arquivo:<br>(o arquivo tera que estar no mesmo diretorio que este script.)<br><input type=text name="existinglist"><br>

Entre com o caracter que separa os valores:<br>(se for uma quebra de linha deixe esse campo em branco)<br><input type=text name="splitme"><input type=hidden name="action" value="addbiglist"><br>

Envie um email de Bem vindo ao novo email cadastrado ?:<br><Select name="dosendemail"><option value="yes">Sim - Envia um email de boas vindas para novo usuário</option><option value="no" Selected>Não - Envia um email de boas vindas para novo usuário</option></Select><br> <br>

<input type=submit class="buttons" value="Importar minha lista"></form>

[/tr]

 

e no outro aonde processa o e-mail tem esse código aqui:

 

ASP [/tr][tr]Function IsValidEmail(strEmail)

Dim bIsValid

bIsValid = True

 

If Len(strEmail) < 5 Then

bIsValid = False

Else

If Instr(1, strEmail, " ") <> 0 Then

bIsValid = False

Else

If InStr(1, strEmail, "@", 1) < 2 Then

bIsValid = False

Else

If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then

bIsValid = False

End If

End If

End If

End If

IsValidEmail = bIsValid

End Function

Sub sendemail (stremail, strsubject, strbody)

On Error Resume Next

backupstrbody=strbody

backupstrtitle=strsubject

strbody=strbody & vbcrlf & vbcrlf & autotext

If Request("emailhtml")="yes" then

strbody=strbody & "Para remover o email de nosso informativo, por favor clique aqui: <a href=""" & Request.ServerVariables("server_name") & Request.ServerVariables("url") & "?action=unsub&email=" & stremail & """> Remover</a>"

Else

strbody=strbody & "Para remover o email de nosso informativo, por favor clique no link:" & vbcrlf & vbcrlf & Request.ServerVariables("server_name") & Request.ServerVariables("url") & "?action=unsub&email=" & stremail

End If

strfrom=sitename & "<" & siteemail & ">"

if emailtype = "ASPEmail" then

Set objMail = Server.CreateObject("Persits.MailSender")

objMail.Host = "mail.pcgraphics.com.br"

objMail.ContentTransferEncoding = "Quoted-Printable"

objMail.From = StrFrom

objMail.AddAddress = stremail

objMail.Subject = strSubject

objMail.Body = strBody

objMail.isHTML = true

objMail.Username = "******"

objMail.Password = "*****"

objMail.Send

Set objMail = Nothing

end if

If Err.Number <> 0 Then

%>

Endereço do email: <%=stremail%><br>

Numero Erro: <%= Err.Number %><br>

Descrição Erro : <%= Err.Description %><br>

Fonte: <%= Err.Source %><br>

Numero da Linha: <%= Err.Line %><br>

<%

End If

strbody=backupstrbody

strsubject=backupstrtitle

End Sub %>

 

[/tr]

 

 

Me ajudem por favor

Ja to na precupaçao

[fabiosc80 0]

Ta dando esse Erro.Endereço do email: fabiosc80@hotmail.comNumero Erro: 6Descrição Erro : 501 Syntax error in parameters or arguments Fonte: Persits.MailSender.4Numero da Linha:

[Mário Monteiro 179]

comenta esta linhaOn Error Resume Next

[fabiosc80 0]

comenta esta linhaOn Error Resume Next

Assim????????olha la na ultima linhasó me trouxe o nome email que cadastrei, nada mais

Sub sendemail (stremail, strsubject, strbody)	On Error Resume Next	backupstrbody=strbody	backupstrtitle=strsubject	strbody=strbody & vbcrlf & vbcrlf & autotext	If Request("emailhtml")="yes" then   strbody=strbody & "Para remover o email de nosso informativo, por favor clique aqui: <a href=""" & Request.ServerVariables("server_name") & Request.ServerVariables("url") & "?action=unsub&email=" & stremail & """> Remover</a>"	Else  strbody=strbody & "Para remover o email de nosso informativo, por favor clique no link:" & vbcrlf & vbcrlf & Request.ServerVariables("server_name") & Request.ServerVariables("url") & "?action=unsub&email=" & stremail	End If	strfrom=sitename & "<" & siteemail & ">"	if emailtype = "ASPEmail" then	Set objMail = Server.CreateObject("Persits.MailSender")   objMail.Host  = "mail.pcgraphics.com.br"  objMail.ContentTransferEncoding = "Quoted-Printable"  objMail.From = StrFrom  objMail.AddAddress = stremail  objMail.Subject = strSubject  objMail.Body = strBody  objMail.isHTML = true	 	 objMail.Username = "pcgraphics@pcgraphics.com.br"  	 objMail.Password = "pc2002"   objMail.Send  	Set objMail = Nothing		end if	If Err.Number <> 0 ThenOn Error Resume Next%>

[Mário Monteiro 179]

não cara...onde tava o On Error Resume Nextpoe uma aspa simples na frente assim'On Error Resume Nexte tira o que você fez agora

[fabiosc80 0]

não cara...onde tava o On Error Resume Nextpoe uma aspa simples na frente assim'On Error Resume Nexte tira o que você fez agora

Deu isso aqui...fabiosc80@hotmail.com Microsoft VBScript runtime error '800a01b6' Object doesn't support this property or method: 'objMail.AddAddress' /listemail/email_config.asp, line 49

[fabiosc80 0]

alguem ai?

[Mário Monteiro 179]

cara nunca usei ASPmail mas todos os codigos que vi a respeito nesta linha não poe igualobjMail.AddAddress = stremailficam assimobjMail.AddAddress stremaildá uma testada

[fabiosc80 0]

cara nunca usei ASPmail mas todos os codigos que vi a respeito nesta linha não poe igualobjMail.AddAddress = stremailficam assimobjMail.AddAddress stremaildá uma testada

Cara nao sei mais oque faço agora ta dando erro no subject.E isso tem que estar pronto hoje.tem uma idéia?

[Mário Monteiro 179]

qual a mensagem??

[fabiosc80 0]

qual a mensagem??

agora deu a mesma só que no bodyvocê ja mexeu com CDO?

[Mário Monteiro 179]

bem no subject e no body o igual existe...

[fabiosc80 0]

bem no subject e no body o igual existe...

troquei pra CDOvou colocar o código aqui ok?Vou colocar da pagina de envio inteira mas é o começo la só ok.

<%' EasyListAsp - the easiest Email subscription list script to set up in the world!' Hand written by SamHS, for dotdragnet.co.uk - who retains the copyright on the original script' However, you may alter and distribute this script - so long as you retain the copyright notices' For support or help, visit the forums at http://www.dotdragnet.co.uk' DO NOT ALTER BELOW THIS LINE' ****************************' Is it a valid email address being used?Function IsValidEmail(strEmail)	Dim bIsValid	bIsValid = True		If Len(strEmail) < 5 Then  bIsValid = False	Else  If Instr(1, strEmail, " ") <> 0 Then 	 bIsValid = False  Else 	 If InStr(1, strEmail, "@", 1) < 2 Then    bIsValid = False 	 Else    If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then   	 bIsValid = False    End If 	 End If  End If	End If	IsValidEmail = bIsValidEnd FunctionSub sendemail (stremail, strsubject, strbody)	On Error Resume Next	backupstrbody=strbody	backupstrtitle=strsubject	strbody=strbody & vbcrlf & vbcrlf & autotext	If Request("emailhtml")="yes" then   strbody=strbody & "Para remover o email de nosso informativo, por favor clique aqui: <a href=""" & Request.ServerVariables("server_name") & Request.ServerVariables("url") & "?action=unsub&email=" & stremail & """> Remover</a>"	Else  strbody=strbody & "Para remover o email de nosso informativo, por favor clique no link:" & vbcrlf & vbcrlf & Request.ServerVariables("server_name") & Request.ServerVariables("url") & "?action=unsub&email=" & stremail	End If	strfrom=sitename & "<" & siteemail & ">"	Select Case emailtype	Case "CDonts"   Set objCDOMail = Server.CreateObject("CDONTS.NewMail")  objCDOMail.From = StrFrom  objCDOMail.To = stremail  objCDOMail.Subject = strSubject  If Request("emailhtml")="yes" Then 	 strbody=Replace(strbody, vbcrlf, " <br>") 	 objCDOMail.Body = strBody 	 objCDOMail.BodyFormat = 0 ' CdoBodyFormatHTML 	 objCDOMail.MailFormat = 0 ' CdoMailFormatMime  Else 	 objCDOMail.Body = strBody  End If  objCDOMail.Send  Set objCDOMail = Nothing	Case "JMail"   Set JMail = Server.CreateObject("JMail.SMTPMail")  JMail.Sender = siteemail  JMail.Subject = strSubject  JMail.AddRecipient stremail   If Request("emailhtml")="yes" Then 	 strbody=Replace(strbody, vbcrlf, " <br>") 	 JMail.ContentType = "text/html"  End If  JMail.Body = strBody   JMail.Priority = 3   JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")   if not JMail.Execute Then Response.write "<b>Erro no email: " & Jmail.log & ". Por favor entre em contato como o administrador do site: <a href=""mailto:" & siteemail & """>" & siteemail & "</a></b><br>"  Set JMail=Nothing	Case "CDO"	'Create the e-mail server object   Set objCDOSYSMail = Server.CreateObject("CDO.Message")   Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")   'Out going SMTP server   objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.pcgraphics.com.br"   objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25   objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2   objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic authentication   objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "**************" 'set your username here   objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")= "***********" 'set your password here    objCDOSYSCon.Fields.Update   'Update the CDOSYS Configuration   Set objCDOSYSMail.Configuration = objCDOSYSCon   objCDOSYSMail.From = StrFrom  objCDOSYSMail.To = stremail  objCDOSYSMail.Subject = strSubject  objCDOSYSMail.HTMLBody = strBody  objCDOSYSMail.Send  	   'Close the server mail object   Set objCDOSYSMail = Nothing   Set objCDOSYSCon = Nothing 	 	End Select	If Err.Number <> 0 Then%>	Endereço do email: <%=stremail%><br>	Numero Erro: <%= Err.Number %><br>	Descrição Erro : <%= Err.Description %><br>    Fonte: <%= Err.Source %><br>  Numero da Linha: <%= Err.Line %><br><%	End If	strbody=backupstrbody	strsubject=backupstrtitleEnd Sub	Sub toptable%>        <table border="0" cellpadding="0" cellspacing="0" width="746" align="center">          <tr valign="top">            <td><img name="bk_r4_c01" src="http://www.pcgraphics.com.br/images/info1.gif" width="322" height="106" border="0"></td>            <td><img border="0" src="http://www.pcgraphics.com.br/tituloinformativos.gif" width="424" height="106"></td>            <td><img src="http://www.pcgraphics.com.br/images/shim.gif" width="1" height="106" border="0"></td>          </tr>          <tr valign="top">            <td background="http://www.pcgraphics.com.br/images/info2.gif"></td>            <td>              <table width="424" border="0" cellspacing="0" cellpadding="0" height="249">                <tr align="left" valign="top">                   <td height="199">                     <p align="center"><br>                    </p>                                       <p align="center"><FONT SIZE="3" COLOR="#0000FF"><B><%=listname%></B></FONT>   	 <P><%End SubSub bottomtable%>                  </td>                </tr>              </table>            </td>            <td><img src="http://www.pcgraphics.com.br/images/shim.gif" width="1" height="249" border="0"></td>          </tr>          <tr valign="top">            <td><img name="bk_r6_c01" src="http://www.pcgraphics.com.br/images/bk_r6_c01.gif" width="322" height="20" border="0"></td>            <td><map name="FPMap0">  <area shape="rect" coords="325, 2, 393, 18" href='javascript:history.back(-1)'>  <area shape="rect" coords="249, 2, 303, 26" href='javascript:history.back(-1)'></map><img name="bk_r6_c06" src="http://www.pcgraphics.com.br/images/bk_r6_c06.gif" border="0" usemap="#FPMap0" href='javascript:history.back(-1)' width="424" height="20"></td>            <td><img src="http://www.pcgraphics.com.br/images/shim.gif" width="1" height="20" border="0"></td>          </tr>        </table><%End SubSub topadtable%><table width="100%" cellpadding=3><tr><td colspan=4 class="header">Area Administrativa</td></tr><%End SubSub bottomadtable%><tr>	<td class="legal" colspan=4>Desenvolvido por <a target="_blank" href="http://www.corujato.com.br">Corujato Internet</a></td></tr></table><%End SubFunction passwordchecker()  URL = Request.ServerVariables("SCRIPT_NAME")  if request.form("button") = "log-out" then 	 session("password")="" 	 session("logon")=""  end if  if session("logon") = "true" then  	 ' session set ok, load page 	 session("logon")="true" 	 displaypage  else 	 if request.form("password") = "" then    ' form not posted and session not set, display logon box    displaylogon 	 else    ' something posted, check it    session("password") = request.form("password")    if session("password") = password then    	 ' session set ok, load page   	 session("logon")="true"   	 displaypage    else   	 displaylogon    end if 	 end if  end ifEnd functionfunction displaylogout()%><tr>	<td colspan="4">        <form method="POST" >                 <input type="submit" value="log-out" class="adminbuttons" name="button">        </form>	</td></tr><%end functionfunction displaylogon()topadtable%><tr>	<td colspan="4">        <form method="POST">  Entre com a senha para continuar:<br>  <input type="password" name="password" size=20><br>  <input type="submit" value="log-in" class="adminbuttons" name="button">        </form>	</td></tr><%bottomadtableend functionFunction removeemailaddy()	toptable	Response.write ""	newemailaddy=Request.Form("emailaddy")	If newemailaddy="" Then newemailaddy=Request("email")	logfile = Server.MapPath("email-list.txt")	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")	Set objCountFile = objFSO.OpenTextFile(logfile, 1, True)	news = objCountFile.ReadAll	objCountFile.Close	Set objCountFile = Nothing		Set objFSO = Nothing	userrecord=Split(news, "**")	numrecords = Ubound(userrecord)	flag=0	finalstr=""	for i = 1 to numrecords	counter=Split(userrecord(i), "%%")	If counter(0)=newemailaddy Then  ' Do nothing  flag=1	Else  atempip=Split(counter(1), "||")  finalstr=finalstr & "**" & counter(0) & "%%" & atempip(0) & "||" & atempip(1) & "||" & atempip(2)	End If	Next	finalstr=Trim(finalstr)	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")	Set objTextFile = objFSO.CreateTextFile(logfile)	objTextFile.WriteLine finalstr	objTextFile.Close	Set objTextFile = Nothing	Set objFSO = Nothing	If flag=1 Then  Response.Write "Seu email <B>" & newemailaddy & "</B> foi removido.<p>A partir de agora não recebera mais nosso informativo.<BR><BR><BR><P><BR><BR><BR>"	Else 	 Response.Write "O email <B>" & newemailaddy & "</B> não foi encontrado em nossa lista, sendo assim não pode ser removido!<p>Se você quiser cadastrar ou remover outro email, por favor <a href='javascript:history.back(-1)'>clique aqui</a> e escolha 'Cadastrar ' ou 'Remover'<BR><BR><BR><BR><BR>"	End If	Response.Write "</td></tr>"	bottomtableEnd Function%>

[fabiosc80 0]

Consegui cara.Fiz do zero passando pra CDOAgora ta show...

[Mário Monteiro 179]

Consegui cara.Fiz do zero passando pra CDOAgora ta show...

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[fabiosc80 0]

Consegui cara.Fiz do zero passando pra CDOAgora ta show...

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

O problema agora é outro.Um dos forms de envio nao ta mandando o texto em html.Se eu nao resolver eu posto aqui beleza?