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
 Tutti i forum
 Html, Asp, Php
 Help Asp / Php e altri linguaggi
 Invio mail in ASP

Nota: Devi essere registrato per rispondere al messaggio.

Risoluzione schermo:
Nome utente:
Password:
Formato:
Formato: GrassettoCorsivoSottolineatoSbarrato a SinistraCentratoa Destra Riga orizzontale Inserisci un indirizzo web (HYPERLINK)Inserisci indirizzo email (EMAIL)Inserisci un'immagine (IMAGE) Inserisci del codice (CODE)Inserisci una citazione (QUOTE)Inserisci elenco
   
Messaggio:

HTML non attivo
Il codice su forum attivo
Faccine
Felice [:)] Molto Felice [:D] Caldo [8D] Imbarazzato [:I]
Goloso [:P] Diavoletto [):] Occhiolino [;)] Clown [:o)]
Occhio Nero [B)] Palla 8 [8] Infelice [:(] Timido [8)]
Scioccato [:0] Arrabbiato [:(!] Morto [xx(] Assonnato [|)]
Bacio [:X] Approvazione [^] Disapprovazione [V] Domanda [?]

 
Sottoscrizione a questa Discussione.
   

R E V I S I O N E     D E L L A     D I S C U S S I O N E
Drizzt Inviata - 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 :-)
2   U L T I M E      R I S P O S T E    (Ultimi inserimenti)
akron Inviata - 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
akron Inviata - 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

 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