Cdosys

**giangarotto** · 28-07-2004, 10:02

Salve amici, ho appena scaricato questo script dal sito di ar..a, questo script utilizza il CDOSYS per mandare la mail, e qui tutto bene, io lo vorrei utilizzare per segnalare un articolo, e qui iniziano i problemi, perchè mi manda la mail all'indirizzo che settato nel nella pagina formcdosys.asp.
Come si fa a fare in modo che questo script funzioni come un segnala ad un amico quest'articolo?

contatto.asp

codice:

<table border="0" cellpadding="0" cellspacing="0" width="40%" align="center">
        <tr> 
          <td width="100%"> 
            <form action="formcdosys.asp" method="post" name="form1" onSubmit="MM_validateForm('email','','RisEmail');return document.MM_returnValue">
              <table width="361" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td width="170"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#333333">Nome</font></td>
                  <td width="191"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
                    <input type="text" name="nome" size="20">
                    </font></td>
                </tr>
                <tr> 
                  <td width="170"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#333333">E-mail 
                    *</font></td>
                  <td width="191"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
                    <input type="text" name="email" size="20">
                    </font></td>
                </tr>
              </table>
              <p align="center"><font color="#333333" face="Verdana, Arial, Helvetica, sans-serif"> <font size="1"> 
                <input type="submit" name="Submit" value="Contatto">
                 </font></font> </p>
            </form>
            

<font size="2" face="Verdana, Arial, Helvetica, sans-serif">* richiesto
          </font>          </td>
        </tr>
      </table>

formcdosys.asp

codice:

<%
'============Linkbruttocane su specifiche MSDN================
'*   il corpo finale del messaggio contiene tutti i campi    *
'*   inseriti nella pagina html, in pratica puoi mettere     *
'*   tutti i campi che ti servono nel modulo di invio senza  *
'*   fare altre configurazioni aggiuntive.                   *  
'=============================================================

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

	'* voce da modificare con il proprio indirizzo email
	
invioA =  "linkbruttocane@aruba.it" 
	'* voce da modificare con un indirizzo email che funga da mittente: 
	'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
	'* dato che cdosys supporta questa notifica
		
invioDa =  "linkbruttocane@technet.it" 
'------------fine modifiche necessarie------------------

nomeDominio 				= Request.ServerVariables("HTTP_HOST")
indirizzoIp					= Request.ServerVariables("REMOTE_ADDR") 
modulo						= Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo		= Request.ServerVariables("HTTP_USER_AGENT")

	'*rilevo i campi del form
	
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
   IF NOT Request.Form(numeroCampi) = "" THEN
      corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
   END IF
NEXT

	'* creo gli oggetti cdosys sul server e li gestisco
	
DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Contatto dal dominio " & nomeDominio
   .TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & "  browser e sistema operativo " & browserSistemaOperativo  & vbCrLf & corpoMessaggio & ""
   .Send
End With
%>

**giangarotto** · 28-07-2004, 10:35

da quello che ho capito dovrei cambiare

codice:

invioA =  "linkbruttocane@aruba.it" 
	'* voce da modificare con un indirizzo email che funga da mittente: 
	'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
	'* dato che cdosys supporta questa notifica
		
invioDa =  "linkbruttocane@technet.it"

ma come

**Roby_72** · 28-07-2004, 10:35

In invioA metti la mail del tuo dominio da cui fai partire il messaggio.
In invioDa metti la mail dell'amico cui è diretta la segnalazione.

Era questo che volevi???

Roby

**giangarotto** · 28-07-2004, 10:43

lo script mi recupera quello che mi serve, però in questo modo non riesco a segnalare, ad un mio conoscente, l'articolo.

Scusa per la chiarezza

**giangarotto** · 28-07-2004, 10:49

forse non posso utilizzare questo script come segnala ad un amico questo articolo, così come avviene su Corriere.it

Mi puoi indicare uno script con CDOSYS segnala ad un amico questo articolo

Scusa se approfitto di te

**giangarotto** · 28-07-2004, 11:27

Ho trovato questo che farebbe al mio caso solo che utilizza CDONTS, e per CDOSYS

codice:

<%@Language = JScript%>
<%
   // La variabile azione mi serve per recuperare il primo parametro dalle QueryString
   // passata nel link di segnalazione, per far si che venga mostrato a video il modulo
   var azione = new String(Request.QueryString("azione"));
   // La variabile url, invece, recupera dalla QueryString l'indirizzo della pagina da segnalare
   var url = new String(Request.QueryString("url"));
%>
<html>
 <head>
  <title>Segnala</title>
 </head>
<body>

<%
   // Se il valore della variabile modulo è "azione", vuol dire che devo mostrare a video il modulo...
   if (azione == "modulo") {
%>
<form method="post" action="segnala.asp">
   <input type="hidden" name="url" value="<%=url%>">
   Il tuo nome

   <input type="text" name="tuonome">

   Il nome del tuo amico

   <input type="text" name="nomeamico">

   La tua email

   <input type="text" name="tuamail">

   L'email del tuo amico

   <input type="text" name="mailamico">

   <input type="submit" value="Segnala">
</form>
<%
   // ... oppure invio la mail di segnalazione tramite l'oggetto CDONTS.NewMail
   } else {

      var tuonome = new String(Request.Form("tuonome"));
      var nomeamico = new String(Request.Form("nomeamico"));
      var tuamail = new String(Request.Form("tuamail"));
      var mailamico = new String(Request.Form("mailamico"));

      var sito = new String(Request.Form("url"));

      var segnala = new ActiveXObject("CDONTS.NewMail");
          segnala.From = tuamail;
          segnala.To = mailamico;
          segnala.Subject = "Segnalazione sito";
          segnala.Body = "Ciao " + nomeamico + ", " + tuonome + " ti consiglia questo sito:\n\n" + sito;
          segnala.Send();

      Response.Write("Segnalazione inviata con successo");

   }
%>

</body>
</html>

**Roby_72** · 28-07-2004, 11:57

Non capisco quale sia il tuo problema...
Le informazioni ce l'hai da inviare. Recuperale nella pagina che le deve spedire ed usa la sintassi di CDOSYS.

Roby

**giangarotto** · 28-07-2004, 13:01

L'ho modificata così:

codice:

<%@Language = JScript%>
<%
   // La variabile azione mi serve per recuperare il primo parametro dalle QueryString
   // passata nel link di segnalazione, per far si che venga mostrato a video il modulo
   var azione = new String(Request.QueryString("azione"));
   // La variabile url, invece, recupera dalla QueryString l'indirizzo della pagina da segnalare
   var url = new String(Request.QueryString("url"));
%>
<html>
 <head>
  <title>Segnala</title>
 </head>
<body>

<%
   // Se il valore della variabile modulo è "azione", vuol dire che devo mostrare a video il modulo...
   if (azione == "modulo") {
%>
<form method="post" action="segnala.asp">
   <input type="hidden" name="url" value="<%=url%>">
   Il tuo nome

   <input type="text" name="tuonome">

   Il nome del tuo amico

   <input type="text" name="nomeamico">

   La tua email

   <input type="text" name="tuamail">

   L'email del tuo amico

   <input type="text" name="mailamico">

   <input type="submit" value="Segnala">
</form>
<%
    try
    {
        var oggetto_email = new ActiveXObject("CDO.Message");
            with (oggetto_email)
            {
                To = "destinatario@account.ext";
                From = "mittente@account.ext";
                Subject = "Benvenuto CDOSYS!";
                TextBody = "Speriamo di trovarci bene insieme :-)";
                Send();
            }
        Response.Write("Email inviata con successo!");
    }
    catch (e)
    {
        Response.Write("Impossibile creare l'oggetto!");
    }
%>

</body>
</html>

**weppos** · 28-07-2004, 13:02

Ma perchè sei passato a questo (peraltro in Js) e non modifichi lo script che hai postato per primo?

**giangarotto** · 28-07-2004, 13:06

perchè non riesco a farlo mandare alla mail a cui voglio segnalare l'articolo

Discussione: Cdosys

Strumenti discussione

Ricerca discussione

Visualizza

Cdosys

Permessi di invio