FormMAIL con ASP e LoadVars (ARUBA)

[gandalf]

FormMAIL con ASP e LoadVars (ARUBA)

Ahhh finalmente funziona .... e voglio condividere questa riuscita con quelli che come hanno avuto difficoltà nel far funzionare una benedetta form per invio di mail sotto il dominio ARUBA

allora il codice da inserire sull'evento on(press) del Button di invio è questo:
'======================================================
on (press) {
'raccolgo i valori dai campi di testo di tipo INPUT
var fromMail = mail_From.text;
var objMail = mail_Object.text;
var bodyMail = mail_Body.text;
'genero l'oggetto di tipo LoadVars
Form = new LoadVars();
'popolo le proprietà dell'oggetto ...
Form.mFrom = fromMail;
Form.mObject = objMail;
Form.mBody = bodyMail;
Form.onLoad = function() {
' se la variabile che torna dal file .asp (asp_error) è true...
if (Form.asp_error) {
_root.gotoAndStop(5);
} else {
_root.gotoAndStop(10);
}
};
Form.sendAndLoad("sendMail.asp", Form);
}
'======================================================

nel prossimo post inserirò il contenuto del file sendmail.asp così da chiarire il funzionamento del tutto !!!!

Gandalf

[gandalf]

.... il file sendmail.asp
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
<%@ Language=VBScript %>
<%
' dichiaro alcuni variabili
Dim iMsg
Dim iConf
Dim Flds
Dim strTosend
Dim strEmail
Dim strRichiesta
Dim strMessage
Dim strOggetto
' strEmail è il mittente del messaggio/mail
strEmail = Request("mFrom")
' strTosend è la variabile che memorizza l?email del destinatario (es. email del nostro cliente)
strTosend="@mail a cui arriverà il msg"
' l?oggetto del nostra email
strOggetto=Request("mObject")
' corpo del messaggio/mail
strMessage=Request("mBody")

' creo gli oggetti necessari per l?invio dell?email
' queste righe possono cambiare in relazione al provider
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update

With iMsg
Set .Configuration = iConf
.To = strTosend
.From = strEmail
.Subject = strOggetto
.TextBody= strMessage
.Send
End With
' alla fine del send recuperiamo la variabile err.number che identifica un numero di errore
' se esiste un numero di errore vuol dire che err.numer è true quindi c?è stato un errore altrimenti ?error risulterebbe false
if err.number then
Response.Write "asp_error=true"
else
Response.Write "asp_error=false"
end if
%>
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

buon divertimento, spero questo post sia utile a qualcuno altrimenti eliminatelo pure

byez
Gandalf

[flep]

Grazie Gandalf per il tuo contributo

[gandalf]

è il minimo che possa fare .... senza di voi non sarei arrivato nemmeno a tanto

byez
Gandalf

[mimo]

@Gandalf said:

Ahhh finalmente funziona .... e voglio condividere questa riuscita con quelli che come hanno avuto difficoltà nel far funzionare una benedetta form per invio di mail sotto il dominio ARUBA

allora il codice da inserire sull'evento on(press) del Button di invio è questo:
'======================================================
on (press) {
'raccolgo i valori dai campi di testo di tipo INPUT
var fromMail = mail_From.text;
var objMail = mail_Object.text;
var bodyMail = mail_Body.text;
'genero l'oggetto di tipo LoadVars
Form = new LoadVars();
'popolo le proprietà dell'oggetto ...
Form.mFrom = fromMail;
Form.mObject = objMail;
Form.mBody = bodyMail;
Form.onLoad = function() {
' se la variabile che torna dal file .asp (asp_error) è true...
if (Form.asp_error) {
_root.gotoAndStop(5);
} else {
_root.gotoAndStop(10);
}
};
Form.sendAndLoad("sendMail.asp", Form);
}
'======================================================

nel prossimo post inserirò il contenuto del file sendmail.asp così da chiarire il funzionamento del tutto !!!!

Gandalf

Ciao gandalf ho provato ma non funzione l'email e indefinita

[gandalf]

Ciao fammi capire ... l'errore lo riscontri nella parte FLASH o nella parte .ASP ?
Io ho appena provato su un sito che usa il codice in questione ... (m'hai fatto preoccupare ) ... e funziona ...

ciauz

[mimo]

@Gandalf said:

Ciao fammi capire ... l'errore lo riscontri nella parte FLASH o nella parte .ASP ?
Io ho appena provato su un sito che usa il codice in questione ... (m'hai fatto preoccupare ) ... e funziona ...

ciauz

cia gandalf, ho risolto, ma non mi inviava l'email per un mio errore, ho cambiato i nomi delle variabili eliminando mail_ e scrivendo solo object e non mi riconosceva tale variabile, poi ho notato che nel codice asp
ce 2 volte questo:

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

cmq sistemando tutto adesso funziona

ciao