Smistare mail di contatto con cdosys

[solareshop]

Buongiorno a tutti, ho un problema che mi assilla e non riesco a trovare una soluzione:

Ho impostato un form mail per la richiesta di informazioni su prodotti presenti nel mio e-commerce. Dal momento che abbiamo vari rivenditori sparsi sul territorio, per risparmiare tempo volevo fare in modo che, in base alla regione di provenienza del cliente la mail venisse indirizzata direttamente al rivenditore di competenza.

In parole povere legare il comando "ObjSendMail.To = .... in base alla variabile "Dim regione" , campo quest'ultimo che ovviamnete sarà obbligatorio compilare nel form.

Grazie fin d'ora,

Pierluca

[Roby_72]

select case regione
case 1: dest = "nord@dominio.it"
case 2: dest = "centro@dominio.it"
case 3: dest = "sud@dominio.it"
case else dest = "isole@dominio.it"
end select

Roby

[solareshop]

Grazie Roby ma ancora non mi è chiara una cosa: dove lo devo inserire? ovvero il file sendcosys.asp ora come ora è cos' strutturato:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

Dim azienda

Dim indirizzo

Dim citta

Dim regione

Dim referente

Dim telefono

Dim email

Dim web

Dim kw

Dim potenza

Dim consegna

Dim marca

Dim prezzo

Dim messaggio

Dim MyBody

Dim MyMail

Dim MyEmail

Dim SmtpMail




smtpserver = "smtp.xxxxxx.com"

youremail = "offerte@xxxxxx.com"

yourpassword = "xxxxxxx"

azienda = Request.Form("azienda")

indirizzo = Request.Form("indirizzo")

citta = Request.Form("citta")

regione = Request.Form("regione")

referente = Request.Form("referente")

telefono = Request.Form("telefono")

email = Request.Form("email")

web = Request.Form("web")

kw = Request.Form("kw")

potenza = Request.Form("potenza")

consegna = Request.Form("consegna")

marca = Request.Form("marca")

prezzo = Request.Form("prezzo")

messaggio = Request.Form("messaggio")




MyBody = "

<font face=Arial size=2>" & Chr(13) & vbcrlf

MyBody = MyBody & "azienda: "& nome & Chr(13) & vbcrlf & "
"

MyBody = MyBody & "indirizzo: "& indirizzo & Chr(13) & vbcrlf & "
"

MyBody = MyBody & "citta "& citta & vbcrlf & "
"

MyBody = MyBody & "regione "& regione & vbcrlf & "
"

MyBody = MyBody & "referente: "& nazione & vbcrlf & vbcrlf & "
"

MyBody = MyBody & "telefono: "& telefono & vbcrlf & "
"

MyBody = MyBody & "email: "& email & vbcrlf & "
"

MyBody = MyBody & "web: "& web & vbcrlf & "
"

MyBody = MyBody & "kw: "& kw & vbcrlf & vbcrlf & "
"

MyBody = MyBody & "potenza: "& potenza & vbcrlf & vbcrlf & "
"

MyBody = MyBody & "consegna: "& consegna & vbcrlf & vbcrlf & "
"

MyBody = MyBody & "marca: "& marca & vbcrlf & vbcrlf & "
"

MyBody = MyBody & "prezzo: "& prezzo & vbcrlf & vbcrlf & "
"

MyBody = MyBody & messaggio




Dim ObjSendMail

Set ObjSendMail = CreateObject("CDO.Message")







ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60



ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword



ObjSendMail.Configuration.Fields.Update






ObjSendMail.To = youremail

ObjSendMail.Subject = kw & marca & prezzo

ObjSendMail.From = email




ObjSendMail.HTMLBody = MyBody




ObjSendMail.Send



Set ObjSendMail = Nothing

%>

E inoltre dove devo abbinare i vari case1 case2 etc agli effettivi nomi delle regioni?

Scusa la banalità delle domande ma il programmatore si è licenziato e io non sono propriamente ferrato ma mi devo arrangiare....

[Roby_72]

Prima dell'invio dell'email visto che il suo scopo è determinare il destinatario corretto.
ad ogni modo lo devi adattare al tuo script: non so cosa riporta la variabile "regione".

Roby

[solareshop]

Facciamo finta che riporti i case che hai usato tu come esempio: nord, centro, sud , abbinati a tre mail diverse. L'unica cosa che non mi è chiara è la seguente: ora come ora il comando è

.....

ObjSendMail.To = youremail

ObjSendMail.Subject = kw & marca & prezzo

ObjSendMail.From = email


ObjSendMail.HTMLBody = MyBody


ObjSendMail.Send

Set ObjSendMail = Nothing

%>

E fin qui tutto ok

Immagino di dover lavorare nella line ObjSendMail.To = .... perchè ora come ora avendo impostato yourmail= offerte@..........com qualunque sia la regione la mail che riceve è sempe quella. Posto che con un paio di tentativi credo di riuscirci,il problema che ho è un'altro, ovvero, stando a quanto mi hi inviato tu

select case regione
case 1: dest = "nord@dominio.it"
case 2: dest = "centro@dominio.it"
case 3: dest = "sud@dominio.it"
case else dest = "isole@dominio.it"
end select



come fa a sapere che, per esempio, case1, corrisponde alla scelta "nord" nel form di contatto?

Spero di essere stato sufficientemente chiaro, grazie fin d'ora

[Roby_72]

ObjSendMail.To = dest

Roby

[solareshop]

ok, cosi' ci siamo?

......

select case regione
"nord": dest = "nord@dominio.it"
"centro": dest = "centro@dominio.it"
"sud": dest = "sud@dominio.it"
case else dest = "info@dominio.it"
end select

ObjSendMail.To = dest

ObjSendMail.Subject = kw & marca & prezzo

ObjSendMail.From = email


ObjSendMail.HTMLBody = MyBody


ObjSendMail.Send

Set ObjSendMail = Nothing

%>

grazie, poi non ti rompo più le palle

[Roby_72]

select case regione
case "nord": dest = "nord@dominio.it"
case "centro": dest = "centro@dominio.it"
case "sud": dest = "sud@dominio.it"
case else dest = "info@dominio.it"
end select

Roby

[solareshop]

tutto chiaro, grazie 1000