pagine web via mail

[biocco]

Ciao, come si fa ad inviare pagine web asp o html via mail e quando la aprive vedi la pagina del sito tale e quale?

[weppos]

Non ho capito nulla. :master:

[[trodat]]

... forse si riferisce a Microsoft.XMLHTTP ????
http://forum.html.it/forum/showthrea...hlight=xmlhttp

[biocco]

con il link che mi hai dato non mi funziona mi da l'errore

CDO.Message.1 error '80040220'

The "SendUsing" configuration value is invalid.

/news/inviamail.asp, line 21


devo inviare pagine web qualsiasi via mail usando il CDONTS aiutatemi!!!

[viki1967]

<%
'CDONTS
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://www.tuosito.ext/tuapagina.ext", False
xml.Send
Dim miaMail
Set miaMail = CreateObject("CDONTS.NewMail")
miaMail.From = "mittente@dominio.ext"
miaMail.To = "destinatario@dominio.ext"
miaMail.Subject = "Oggetto del messaggio"
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Importance = 0
miaMail.Body = xml.responseText
miaMail.Send
Set miaMail = Nothing
Set xml = Nothing
%>

[biocco]

Allora.... prima ho provato con ...

'Invio di una pagina web
.CreateMHTMLBody "http://www.novacomitalia.com/home/"

ma i link non funzionano e le pagine perdono i fogli di stile e le immagini di sfondo

mentre con il codice di viky il mio problema è che devo indicare anche quale sia l'smtp server

ho buttato giu questo codice ma non va....

Microsoft VBScript runtime error '800a01b6' 

Object doesn't support this property or method: 'Body' 

/news/inviamail.asp, line 30

ecco il sorgente...

<%

Dim miaMail
Dim iConf
Dim Flds

Session.LCID=1040

Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"


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

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "mail.html.it" 
Flds.Update

Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://www.html.it", False
xml.Send

With miaMail Set .Configuration = iConf 
	miaMail.From = "mittente@dominio.ext"
	miaMail.To = "destinatario@dominio.ext"
	miaMail.Subject = "Oggetto del messaggio"
	miaMail.Body = xml.responseText
	miaMail.Send
end With

Set miaMail = Nothing
Set xml = Nothing
%>

[biocco]

non mi aiuta nessuno?

[cavicchiandrea]

Originariamente inviato da biocco
Ciao, come si fa ad inviare pagine web asp o html via mail e quando la aprive vedi la pagina del sito tale e quale?

Con cdo.sys puoi inviare direttamente le pagine tramite email in questo link trovi la spiegazione : Pagina

[ubbicom]

<%@ Language=VBScript %>

<%

Dim iMsg
Dim iConf
Dim Flds
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update

With iMsg
Set .Configuration = iConf
.To = Request.Form("email")
.From = Request.Form("Xemail")
.Bcc = "postmaster@email.com"
.Subject = "Pagina web."
.CreateMHTMLBody "http://www.tuosito.it/template/index.asp"
.Send
End With

%>