|
Drizzt
Messaggi 1 |
 Spedito - 31 marzo 2006 : 18:32:24
|
Salve a tutti.
Sto cercando di scrivere il codice che invia mail da ASP. L'ho scritto per diversi server, ma non riesco a farlo funzionare su ormag (che cmq ho appena imparato a conoscere, che trovo eccellente, su cui sto' gia' traghettando un cliente )
Il codice e' il seguente:
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("cdoSendUsingMethod") = 2
Flds("cdoSMTPServer") = "localhost"
Flds("cdoSMTPServerPort") = 25
Flds("cdoSMTPAuthenticate") = 1
Flds("cdoSendUserName") = Username
Flds("cdoSendPassword") = Password
Flds.Update
With iMsg
Set .Configuration = iConf
.To = "xxxx"
.From = "xxxx"
.Sender = "Nuova registrazione"
.Subject = "Inserita nuova registrazione"
.TextBody = "Corpo del messaggio"
.Send
End With
Qualcuno sa indicarmi dove sbaglio?
grazie :-)
|
|
akron
Italy
Messaggi 43 |
Spedito - 15 marzo 2008 : 01:16:38
|
ho appena usato il codice riportato nel post di sopra per fare un formmail in asp e funziona, c'è una piccola differenza nel codice che è evidenziata in rosso
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "localhost"
Flds(cdoSMTPServerPort) = 25
Flds("cdoSMTPAuthenticate") = 1
Flds("cdoSendUserName") = "email@nomesito.ext"
Flds("cdoSendPassword") = "password"
Flds.Update
nei prossimi giorni metto tutto il file completo ;)
-----------
Akron
|
|
akron
Italy
Messaggi 43 |
Spedito - 16 marzo 2008 : 17:16:28
|
Ecco il codice per mandare le email in asp con CDOSYS dai server Windows
i campi in rosso sono quelli da modificare
[font=Courier New]<%
DIM corpoMessaggio, numeroCampi, invioA, invioDa
invioA = "mail@tuodominio"
invioDa = "mail@tuodominio"
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & "<br>" & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "localhost"
Flds(cdoSMTPServerPort) = 25
Flds("cdoSMTPAuthenticate") = 1
Flds("cdoSendUserName") = "mail@tuodominio"
Flds("cdoSendPassword") = "password"
Flds.Update
With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio "
.HTMLBody = "Questi i dati inseriti nel modulo presente alla pagina " & corpoMessaggio
.Send
End With
%>
-----------
Akron
|
Invio mail in ASP
