Como trocar CDonts por ASPEMAIL ou Jmail

[kheros 0]

<_< :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

[Mário Monteiro 179]

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! 

 

[*]

[kheros 0]

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

[explore 3]

ASP

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

 

ASP

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

[kheros 0]

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 " :(