da giorni non riesco a risolvere sto cavolo di problema legato alle news letter mi hanno dato le stringhe da sostituire da cdonts a cdosys ma non riesco a capacitarmi.
qualkcuno potrebbe indicarmi dove posso scricare uno script completo?
NE HO VERAMENTE BISOGNO
GRAZIE
Perchè fai la stessa domanda 2 volte ?
Perchè non leggi le risposte che ti sono state date ?
Perchè ???????????'
l'ho letta
ma se vedi la domanda e' diversa
visto che nn mi sto piu' raccapezzando cercavo uno script completo da scaricare dove io modifico solo i percorsi
Allora perchè apri 2 discussioni uguali (perchè riguardano lo stesso problema) e non continui sulla stessa ???Originariamente inviato da Luis_Cypher
l'ho letta
ma se vedi la domanda e' diversa
visto che nn mi sto piu' raccapezzando cercavo uno script completo da scaricare dove io modifico solo i percorsi
L'esempio sul link che ti ho postato prima c'e' eccome
beh ok hai ragione... ma speravo che con una nuova discusisone avrei attirato di piu' l'attenzione
scusa
Cosi sei da cartellino gialloOriginariamente inviato da Luis_Cypher
beh ok hai ragione... ma speravo che con una nuova discusisone avrei attirato di piu' l'attenzione
scusa
dammi pure il rosso e sto fermo per un turno....
ma indicami un posto dove poter scaricare il tutto
adesos mi hai abbandonato???????
Tutto cosa ?
Uno script di mailing-list con cdosys ?
Guarda che ti basta modificare la tua seguendo le indicazioni che sono segnate su quel link.
Utilizzi un componente anzichè l'altro per inviare le mail, modifichi lo script di invio, non credi ?
Ps. Facci vedere sta pagina che invia
allora ho un DB nella cartella md-database
il db oltre alle varie voci contiene gli indirizzi
ho provato ad adattare questo script con il srisultato che prima mi faceva logare come ammi adesso manco quello
azzo
<%@ Page Language="VB" ValidateRequest="false" %>
<%@ Assembly Name="ADODB" %>
<%@ Import Namespace="ADODB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Web.Mail" %>
<script runat="server">
Private Sub Login(sender As Object, e As EventArgs)
' CAMBIA LA PASSWORD!!!
If Password.Text = "demo" Then NL_Box.Visible = True
End Sub
Private Sub Newsletter(sender As Object, e As EventArgs)
' Dichiaro la connessione ed il recordset
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
' Eseguo un basilare controllo sui campi
If Oggetto.Text = "" Or Corpo.Text = "" Then
Messaggio.Text = "I campo Oggetto e Corpo sono obbligatori"
Exit Sub
End If
' Apro la connessione
cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" _
& Server.MapPath("database.mdb"))
' Estraggo tutti gli indirizzi email dal database
rs.Open("SELECT email FROM newsletter", cn, 1)
Dim destinatari As String
' Memorizzo in una variabile le email estratte in precedenza
While rs.EOF = False
destinatari += rs("email").Value & ","
rs.MoveNext()
End While
' Invio la Newsletter
Dim mail As New MailMessage
' Inserisci qui il tuo indirizzo email
mail.From = "user@account.ext"
' Inserisci ANCHE qui il tuo indirizzo email
mail.To = "user@account.ext"
mail.Bcc = destinatari
mail.Subject = Oggetto.Text
mail.Body = Corpo.Text
SmtpMail.SmtpServer = "smtp.fastwebnet.it"
SmtpMail.Send(mail)
Messaggio.Text = "Newsletter inviata con successo"
rs.Close()
cn.Close()
End Sub
</script>
<html>
<head>
<title>Una Newsletter in ASP.NET</title>
<basefont size="2" face="Verdana">
</head>
<body>
<center>
<h1>NEWSLETTER</h1>
<form id="Modulo" runat="server">
<center>
<asp:TextBox id="Password" runat="server" TextMode="Password" />
<asp:Button runat="server" Text="Login" OnClick="Login" />
</center>
<table width="500" align="center" id="NL_Box" runat="Server" Visible="false">
<tr>
<td>
<hr>
Oggetto
<asp:TextBox id="Oggetto" runat="server" Width="100%" />
Corpo
<asp:TextBox id="Corpo" runat="server" Width="100%" Height="150px" TextMode="MultiLine" />
<p align="right"><asp:Button runat="server" Text="Invia" OnClick="Newsletter" /></p>
<p align="center"><asp:Label id="Messaggio" runat="server" /></p>
</td>
</tr>
</table>
</form>
</center>
</body>
</html>
Permessi di invio
Rispondi quotando