Inviare pagina web via email

[Enrique_Rojas]

Ciao.

Devo inviare il template di una pagina web tramite email; queste pagine web contengono degli articoli estratti e contenuti in un db mysql.

Non mi è ben chiaro come far arrivare questa pagina via email, ecco il codice:

<%@ Language=VBScript %>



<%

cod = request.querystring("cod")

strSQL = "SELECT * FROM tbl_ARTICOLI WHERE ID = "&cod
Set objRS = server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn

if not objRS.EOF then

Email = Request.Form("Email")
Xemail = Request.Form("Xemail")


Const cdoSendUsingMethod        = _
 "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort          = 2
Const cdoSMTPServer             = _
 "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort         = _
 "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout  = _
 "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
 
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
 
With Fields
 .Item(cdoSendUsingMethod)       = cdoSendUsingPort
 .Item(cdoSMTPServer)            = "localhost"
 .Item(cdoSMTPServerPort)        = 25
 .Item(cdoSMTPConnectionTimeout) = 10
 .Update
End With

Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig

With objMessage
 .To       = Xemail
 .From     = email
 .Subject  = "INVIO TEMPLATE"
 .CreateMHTMLBody "QUI COSA DEVO INDICARE ???"   
 .Send
End With
 
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing

    
    %>

[santino83]

.CreateMHTMLBody "QUI COSA DEVO INDICARE ???"

ci devi mettere l'html della tua pagina che vuoi inviare

[Enrique_Rojas]

scusa ma l'html della pagina da inviare è sempre diverso nel testo dell'articolo....

[santino83]

Originariamente inviato da Enrique_Rojas
scusa ma l'html della pagina da inviare è sempre diverso nel testo dell'articolo....

lo crei e ce lo infili dentro...del tipo

miaVaribile="<div align=""center"">titolo dell'articolo" & rs("titolo") & "</div>"

buon divertimento

[Enrique_Rojas]

grazie, ti farò sapere.

[Enrique_Rojas]

ciao è tutto ok, solo una cosa come mai anche se la pagina vede il foglio di stile e si formatta di conseguenza, nell'email la stessa pagina arriva senza alcuna formattazione ?

[santino83]

Originariamente inviato da Enrique_Rojas
ciao è tutto ok, solo una cosa come mai anche se la pagina vede il foglio di stile e si formatta di conseguenza, nell'email la stessa pagina arriva senza alcuna formattazione ?

il foglio di stile lo devi mettere nella pagina oppure specificarlo direttamente...mi spieghi l'email da dove lo piglia il foglio di stile se non glielo mandi dietro?

[Enrique_Rojas]

il fds è già nella pag:

<link rel="stylesheet" href="css/fds.css" type="text/css">

[santino83]

Originariamente inviato da Enrique_Rojas
il fds è già nella pag:

<link rel="stylesheet" href="css/fds.css" type="text/css">

le mie conoscenze di css sono prossime alla ilarità, ma quello piu che un fds mi sembra un collegamento ad un foglio di stile

[Enrique_Rojas]

si è il collegamento con cui la pagina richiama il foglio di stile (fds) e che formatta la stessa pagina web.