[vbs] invio mail da script

[Aki]

raga ho sto codice

Dim iMsg as New CDO.Message
				Dim iConf as New CDO.Configuration

				Dim Flds as ADODB.Fields
				Set Flds = iConf.Fields

				With Flds	
					.Item(cdoSendUsingMethod)       = cdoSendUsingPort
  					.Item(cdoSMTPServer)            = "192.168.100.60"
  					.Item(cdoSMTPConnectionTimeout) = 10 ' quick timeout
  					.Item(cdoSMTPAuthenticate)      = cdoBasic
   					.Item(cdoURLGetLatestVersion)   = True
  					.Update
				End With

				With iMsg
  					Set .Configuration = iConf
      					.To       = """SSymon"" <example@example.com>"
      					.From     = """User B"" <simone.burdo@gmail.com>"
      					.Subject  = "Ih-ih-ih-ih"
      					.CreateHTMLBody "MAIL/post.asp"
      					.Send
				End With

ma è per asp.net, io lo vorrei in asp normale

mi aiutate

[kluster]

http://www.weppos.com/asp/script_sho...ipt=665&cat=19

puliscilo dai vari tag html e valori in request

[Aki]

Originariamente inviato da kluster
http://www.weppos.com/asp/script_sho...ipt=665&cat=19

puliscilo dai vari tag html e valori in request

ma io volevo un codice che mi permetta di inviare come mail HTML una pagina asp già elaborata e indicare allo script che pagina con link relativo tipo:

objMail.HTMLBody = "Mail/pagina.aspx"

ma non so se ciò sia possibile!

[kluster]

 
....
Set xml = CreateObject("Microsoft.XMLHTTP")
UrlMail = "http://www.miosito.it/emailFormattata.asp" 
xml.Open "GET", UrlMail , False
xml.Send()
objMail.HTMLBody = xml.responseText
set xml = nothing
....