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
|