Ir para conteúdo

POWERED BY:

Arquivado

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

kheros

Como trocar CDonts por ASPEMAIL ou Jmail

Por , em ASP Clássico

Recommended Posts

kheros    0

kheros
Postado

<_< :angry:

 

 

tenho o código:

 

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="include/common.asp" -->

<!--#include file="include/calendario.asp" -->

<!--#include file="include/funzioni_filtro.asp" -->

<%

Response.Buffer = True

Dim iMonth, iYear

iMonth=Request ("month")

iYear=Request ("year")

if iMonth = "" then iMonth = Month(Now)

sMonth=NameFromMonth(iMonth)

if iYear = "" then iYear = Year(Now)

 

Dim blog_id

Dim rsblog

Dim blog_autore

Dim blog_email

Dim blog_titolo

Dim blog_testo

Dim blnComments

Dim strMode

Dim strEmailSubject

Dim strEmailBody

Dim page

Dim Block

Dim msg

Dim errore

Dim data

Dim ora

Dim mese

Dim anno

Dim mese_inserimento

errore = false

page = Request.Form("page")

Block = Request.Form("Block")

strMode = Request.Form("strMode")

 

if Ublogtype = "closed" then

If Session("admin") = False or IsNull(Session("admin")) = True then

Response.Redirect"login.asp?strMode=" & strMode & ""

End If

end if

 

If strMode = "edit" Then blog_id = CLng(Request.Form("blog_id"))

 

 

If Trim(Request.form("blog_autore")) = "" Or Trim(Request.form("blog_titolo"))= "" Or Trim(Request.form("blog_testo"))= "" Then

errore = true

End If

 

blog_autore = Request.Form("blog_autore")

blog_email = Request.Form("email")

blog_titolo = Request.Form("blog_titolo")

blog_testo = Request.Form("blog_testo")

 

' Format user input and remove html tags

blog_autore = removeAllTags(blog_autore)

blog_email = removeAllTags(blog_email)

blog_titolo = removeAllTags(blog_titolo)

 

If strMode = "new" AND Ublogtype = "open" Then

blog_testo = removeAllTags(blog_testo)

blog_testo = UBBcode(blog_testo)

else

blog_testo = removemaligno(blog_testo)

End if

blog_testo = Replace(blog_testo, VbCrLf, "<br>")

' end format

 

data = Request.Form("data")

ora = Request.Form("ora")

blnComments = CBool(Request.Form("comments"))

mese = Request.Form("mese")

anno = Request.Form("anno")

If mese <> "" Then

mese_inserimento =Right(CStr(100+mese), 2)

else

mese_inserimento =Right(CStr(100+Month(Date)), 2)

end if

 

Set rsblog = Server.CreateObject("ADODB.Recordset")

 

If errore = false then

If strMode = "edit" Then

strSQL = "SELECT blog.* FROM blog WHERE blog.blog_id = " & blog_id & ";"

Else

strSQL = "SELECT Top 1 blog.* FROM blog;"

End If

 

rsblog.CursorType = 2

 

rsblog.LockType = 3

rsblog.Open strSQL, strCon

 

If NOT strMode = "edit" Then rsblog.AddNew

 

rsblog.Fields("blog_titolo") = blog_titolo

rsblog.Fields("blog_testo") = blog_testo

rsblog.Fields("blog_autore") = blog_autore

rsblog.Fields("blog_email") = blog_email

If data <> "" Then

rsblog.Fields("data") = data

else

rsblog.Fields("data") = Date()

end if

If ora <> "" Then

rsblog.Fields("ora") = ora

else

rsblog.Fields("ora") = Time()

end if

rsblog.Fields("mese") = mese_inserimento

If anno <> "" Then

rsblog.Fields("anno") = anno

else

rsblog.Fields("anno") = Year(Date)

end if

rsblog.Fields("commenti") = blnComments

 

rsblog.Update

rsblog.Requery

 

If blnEmail = True AND strMode <> "edit" Then

strEmailSubject = strLangSubjectEmailNewBlog

 

strEmailBody = strLangEmailHi

strEmailBody = strEmailBody & "<br><br>" & strLangEmailBodyBlog1 & ""

strEmailBody = strEmailBody & "<br>" & strLangEmailBodyBlog2 & ""

strEmailBody = strEmailBody & "<br><br><b>" & strLangFormTitle & ": </b>" & blog_titolo

strEmailBody = strEmailBody & "<br><br><b>" & strLangFormAuthor & ": </b>" & blog_autore

strEmailBody = strEmailBody & "<br><b>" & strLangFormEmail & ": </b>" & email

strEmailBody = strEmailBody & "<br><b>" & strLangFormText & ":</b><br>" & blog_testo

'acho que é daqui...

Dim objCDOMail

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

objCDOMail.From = Ublogname & " <" & emailamministratore & ">"

objCDOMail.To = "<" & emailamministratore & ">"

objCDOMail.Subject = strEmailSubject

objCDOMail.Body = strEmailBody

objCDOMail.BodyFormat = 0

objCDOMail.MailFormat = 0

objCDOMail.Importance = 1

objCDOMail.Send

Set objCDOMail = Nothing

'...até ai!

End If

 

 

rsblog.Close

Set rsblog = Nothing

 

If strMode = "edit" then

msg = strLangInfoEditBlog

Response.Redirect "editallblog.asp?page="& page & "&Block="& Block &"&msg="& msg &""

elseif Ublogtype ="open" then

Response.Redirect "index.asp"

else

msg = strLangInfoInsertBlog

Response.Redirect "editallblog.asp?msg="& msg &""

end if

end if

%>

<html>

<head>

<title><% = Ublogname %></title>

<!--#include file="include/metatag.inc" -->

<LINK href="include/styles.css" rel=stylesheet>

</head>

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

<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">

<!--#include file="include/menu.asp" -->

<tr>

<td colspan="2"><div class="hrgreen"><img src="immagini/spacer.gif"></div></td>

</tr>

<tr>

<td colspan="2" align="right"><% if strMode= "edit" then %><u><% = strLangNavEditBlog %></u>  <img src="immagini/freccia.gif"><img src="immagini/freccia.gif">  <font class="arancio"><b>

<% = data %><% else %><u><% = strLangSelectNewBlog %></u>  <img src="immagini/freccia.gif"><img src="immagini/freccia.gif">  <font class="arancio"><b>

<% = Date() %><% end if %>

</b></font> </td>

</tr>

<tr>

<td colspan="2"> </td>

</tr>

<tr>

<td colspan="2"> </td>

</tr>

</table>

<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" height="250">

<tr>

<!--#include file="include/layer_sx.asp" -->

<td width="3" rowspan="2" background="immagini/punto.gif"><img src="immagini/bianco.gif"></td>

<td valign="top" align="center"><br><br><br>

<% If errore = True Then %>

<% = strLangErrorMessageNeedAuthorTitleText %><br>

<br>

<% if strMode = "new" then %>

<a href="newblog.asp"><% = strLangNavBackPrevPage %></a><br>

<% else %>

<a href="edit_blog.asp?blog_id=<% = blog_id %>"><% = strLangNavBackPrevPage %></a><br>

<% End If

End If %>

 

</td>

</tr>

<tr>

<td> </td>

<td> </td>

</tr>

</table>

<%

Set adoCon = Nothing

Set strCon = Nothing

%>

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

 

 

http://forum.imasters.com.br/public/style_emoticons/default/excl.gif o que devo fazer para transformar "CDonts" por "ASPEMAIL" ou "Jmail"??

:rolleyes:

 

aguardo posts

Alexandre

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

basicamente esta parte

 

ASP

    [*]Dim objCDOMail

     

    [*]Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

     

    [*]objCDOMail.From = Ublogname & " <" & emailamministratore & ">"

     

    [*]objCDOMail.To = "<" & emailamministratore & ">"

     

    [*]objCDOMail.Subject = strEmailSubject

     

    [*]objCDOMail.Body = strEmailBody

     

    [*]objCDOMail.BodyFormat = 0

     

    [*]objCDOMail.MailFormat = 0

     

    [*]objCDOMail.Importance = 1 

     

    [*]objCDOMail.Send

     

    [*]Set objCDOMail = Nothing

     

    [*]'...até ai! 

     

    [*]

Compartilhar este post

Link para o post
Compartilhar em outros sites

kheros    0

kheros
Postado

ASP

[*]Dim objCDOMail

 

[*]

 

[*]Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

 

[*]

 

[*]objCDOMail.From = Ublogname & " <" & emailamministratore & ">"

 

[*]

 

[*]objCDOMail.To = "<" & emailamministratore & ">"

 

[*]

 

[*]objCDOMail.Subject = strEmailSubject

 

[*]

 

[*]objCDOMail.Body = strEmailBody

 

[*]

 

[*]objCDOMail.BodyFormat = 0

 

[*]

 

[*]objCDOMail.MailFormat = 0

 

[*]

 

[*]objCDOMail.Importance = 1 

 

[*]

 

[*]objCDOMail.Send

 

[*]

 

[*]Set objCDOMail = Nothing

 

[*]

 

[*]'...até ai! 

 

[*]

 

[*]

 

 

 

 

 

 

 

 

Tah, entendi.... http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

 

mas como troco? :unsure:

o que devo fazer para transformar "CDonts" por "ASPEMAIL" ou "Jmail"?? http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

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

 

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

explore    3

explore
Postado

ASP

[*]Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

 

ASP

[*]Set objCDOMail = Server.CreateObject("JMail.POP3")

Compartilhar este post

Link para o post
Compartilhar em outros sites

kheros    0

kheros
Postado
ASP

[*]Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

 

ASP

[*]Set objCDOMail = Server.CreateObject("JMail.POP3")

<{POST_SNAPBACK}>

 

 

Então fica assim:

 

ASP

[*]Dim objCDOMail

 

[*]Set objCDOMail = Server.CreateObject("JMail.POP3")objCDOMail.From = Ublogname & " <" & emailamministratore & ">"

 

[*]objCDOMail.To = "<" & emailamministratore & ">"

 

[*]objCDOMail.Subject = strEmailSubject

 

[*]objCDOMail.Body = strEmailBody

 

[*]objCDOMail.BodyFormat = 0

 

[*]objCDOMail.MailFormat = 0

 

[*]objCDOMail.Importance = 1 

 

[*]objCDOMail.Send

 

[*]Set objCDOMail = Nothing

 

 

deu erro:

Microsoft VBScript runtime error '800a01b6' 
 
Object doesn't support this property or method: 'From' 
 
/es/add_commento.asp, line 124 
 
 
 
esta é a linha:
 
objCDOMail.From = Ublogname & " <" & emailamministratore & ">"
 
---> 
 
sendo que para enviar um e-mail via server eu uso:
 
ASP


[*]<%


 


[*]'Capturar informções do formulário


 


[*]'Request("")


 


[*] 


 


[*]   mnome = Request("nome")


 


[*]   memail = Request("email")   


 


[*]   mmensagem = Request("mensagem")


 


[*] 


 


[*]   


 


[*] 


 


[*]'Montar Corpo da Mensgem


 


[*] 


 


[*]   Session("InfoUser") = "<center><b>.: Sac :: 4q.com.br :.</b></center>"


 


[*]   Session("InfoUser") = Session("InfoUser")&"<p> <Center><b><u>Dados do Formulário</u></b></center>"


 


[*]   Session("InfoUser") = Session("InfoUser")&"<br><b>Nome  </b> :"&mnome 


 


[*]   Session("InfoUser") = Session("InfoUser")&"<br><b>Email   </b> :"&memail 


 


[*]   Session("InfoUser") = Session("InfoUser")&"<br><b>Mensagem </b> :"&mmensagem


 


[*] 


 


[*]		 Corpo = Session("InfoUser")


 


[*] 


 


[*]


 


[*]'Enviar E-mail


 


[*]  Set Mail = Server.CreateObject("Persits.MailSender") 


 


[*] Mail.Host = "mail.meuservidor..com.br" 


 


[*] Mail.Port = 25


 


[*] Mail.From = "meumail@meumail.com.br"


 


[*] Mail.FromName = "meu.com.br"


 


[*] Mail.AddAddress "meumail@meumail.com.br"


 


[*] Mail.Subject = "Sac"


 


[*] Mail.Body = Corpo


 


[*] Mail.IsHTML = true


 


[*] On Error Resume Next 


 


[*]  Mail.Send   


 


[*]  set Mail = Nothing


 


[*] 


 


[*]if Mail.send  then


 


[*] Response.Redirect "default.asp"


 


[*]end if


 


[*]%>






 
Mas não sei jogar os dados do "CDONTS" para o "Jmail"!
 
me ajude http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif 
 
* eu insisto  http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif   não sei distinguir os " objetos "  :(



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
	


	

		

			
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