Invio pagina asp

01.

Tutorial

Ecco un breve tutorial per inviare una pagina asp tramite il proprio sito web.

02.

Importante

Ovviamente dobbiamo conoscere alcuni dati della email che fa da mittente:

03.

Codice

Dim server smtp, login email e psw email
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(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "/qui metti il server smpt dove hai la posta, ad esempio smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ' 0
Flds("http://schemas.microsoft.com/cdo/configuration/sendusername")="login della tua email"
Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword")="psw della tua email"
Flds.Update
With iMsg
Set .Configuration = iConf
' se il file si trova ad esempio nel sito pippo, dentro la cartella public e si chiama gigi.asp
.CreateMHTMLBody "http://www.pippo.it/public/gigi.asp
'se il file si trova in localhost, cioè nella directory
'C:\inetpub\wwwroot\Pippo\public\gigi.asp scriverai:
.CreateMHTMLBody "http://localhost/pippo/gigi.asp"
''mettere una mail valida come destinatario
.To = "email destinatario"
'mettere una mail valida come mittente
.From = "tua email"
.Subject = "Contatto dal dominio "
.Send
End With
set iMsg = Nothing
set iConf = Nothing
set Flds = Nothing

Invio email asp

01.

Tutorial

02.

Importante

03.

Codice

Biggigi.it