OrmagSei nella vecchia versione del forum di supporto di Ormag,
CLICCA QUI PER VISITARE IL NUOVO FORUM
Ormag
Home | Profilo | Discussioni attive | Utenti | Cerca | FAQ
Nome utente:
Password:
  Selezione lingua
Salva la password
Hai dimenticato la Password?

 Tutti i forum
 Html, Asp, Php
 Help Asp / Php e altri linguaggi
 Invio mail in ASP
 Nuova discussione  Partecipa alla discussione
 Versione stampabile
Autore Discussione precedente Discussione Discussione successiva  

Drizzt

Messaggi 1

Spedito - 31 marzo 2006 :  18:32:24  Mostra profilo  Rispondi allegando il testo
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  Mostra profilo  Visita l'homepage di %s1%akron  Spedisci un messaggio ICQ i a %s1%akron  Clicca per vedere %s1%'s l'indirizzo Messanger MSNakron  Rispondi allegando il testo
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
Vai ad inizio pagina

akron

Italy
Messaggi 43

Spedito - 16 marzo 2008 :  17:16:28  Mostra profilo  Visita l'homepage di %s1%akron  Spedisci un messaggio ICQ i a %s1%akron  Clicca per vedere %s1%'s l'indirizzo Messanger MSNakron  Rispondi allegando il testo
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
Vai ad inizio pagina
  Discussione precedente Discussione Discussione successiva  
 Nuova discussione  Partecipa alla discussione
 Versione stampabile
Vai a:
 Powered by: Ormag.it Powered By: Snitz Forums 2000 Version 3.4.05
ORMAG DOMINI --------------------- >> controlla se il tuo dominio è libero e registralo

30 € l'anno - dominio (.it .com .net .org .info .biz)
+ Hosting illimitato (Asp.net, Asp, PhP) + Estensioni di Frontpage 2002 + 5 caselle email