ricavare email

**numapompilio** · 13-05-2016, 16:56

salve ho questo link

frame.asp?cod="& request.form("codiceimmobile") &"&codice="& request.form("CodiceRichiedente") &"&email2=""

che si visualizza nella mia email , se volessi sapere l'indirizzo email che la sta leggendo cosa devo aggiungere dopo email2 = ????

si riesce ad inserire una stringa di codice che vada a capire l'email di destinazione che l'ha letta ??

Un saluto

**optime** · 13-05-2016, 19:35

eh? non si capisce cosa ti serve... fa' un esempio

**numapompilio** · 14-05-2016, 08:59

esempio:

arriva l'email sull'email c'è scritto clicca qui , in questo c'è quell'href mostrato sopra su email è possibile rilevare in automatico l'email del destinatario ? perchè non riesco a portare indietro il valore....

tutto qua.

un saluto.

**optime** · 14-05-2016, 09:21

ma la mail chi la spedisce?

**numapompilio** · 14-05-2016, 09:29

la mail la spediamo noi da una pagina asp arriva regolarmente l'email ma la variabile mail non riusciamo a ritrovarla .......

mostro :

-----------------------LINK DI INVIO--------------------------------------

"<font color=""#7E0000"" size=""3"" face=""Arial"">Salve la nostra proposta.<br> cliccare il seguente link: <br><a href=""http://www.xxxxx.it/frameemail.asp?cod="& request.form("codiceimmobile") &"&email2=""><b><font size=""3"">Riferimento n. " & Rec("codiceimmobile") & "</font><b></a></font><br><br>" & VbCrLf & _

--------------------INVIA MAIL---------------------------------



<%
Dim sStato : sStato = ""
Dim sMessaggio : sMessaggio = ""

If Request.Form("update")="1" Then

' SendMail "info@XXXX",Request.Form("MailAddress"),"","",Requ est.Form("MailSubject"),Request.Form("MailText"),T rue

SendMail Request.Querystring("MXXX1"),Request.Form("MailAdd ress"),"","",Request.Form("MailSubject"),Request.F orm("MailText"),True

sStato = "InvioCorretto"
sMessaggio = "Mail inviata"
End if
%>
<html>
<head>
<script>
function setStatus()
{
var sStato = "<%=sStato%>";
var sMessaggio = "<%=sMessaggio%>";
var oWin = window.parent;

if (oWin!=null && sStato!="")
oWin.setStatus(sStato,sMessaggio);
}
</script>
</head>

<body onload="setStatus();">
<form name="frmSendMail" method="POST">
<input type="hidden" name="update" value="1">
<input type="hidden" name="MailAddress" value="">
<input type="hidden" name="MailSubject" value="">
<input type="hidden" name="CodiceRichiedente" value="">
<textarea name="MailText" id="MailText"></textarea>
</form>
</body>
</html>

--------------------------SEND MAIL---------------



<%
Sub SendMail(ByVal sFrom,ByVal sTo,ByVal sCC,ByVal sBCC,ByVal sSubject,ByVal sBody,ByVal bHTMLFormat)

Dim oMsg
Dim oConfig
Dim oFields

Set oMsg = CreateObject("CDO.Message")
Set oConfig = CreateObject("CDO.Configuration")
Set oFields = oConfig.Fields

oFields(cdoSendUsingMethod) = cdoSendUsingPort
oFields(cdoSMTPServer) = "smtp.aruba.it"
oFields(cdoSMTPServerPort) = 25
oFields(cdoSMTPAuthenticate) = cdoAnonymous ' 0
oFields.Update

With oMsg
Set .Configuration = oConfig
.From = sFrom
.To = sTo
.CC = sCC
.BCC = "info@XXXXXX"
.Sender = sFrom
.Subject = sSubject
If bHTMLFormat Then
.HTMLBody = sBody
Else
.TextBody = sBody
End If
.Send
End With

End Sub
%>

Spero sia piu chiara grazie.

**optime** · 14-05-2016, 09:33

quando arrivi sulla pagina che hai postato, tu hai già formato il body

SendMail Request.Querystring("MXXX1"),Request.Form("MailAdd ress"),"","",Request.Form("MailSubject"),Request.F orm("MailText"),True

ma chi chiama questa pagina conosce anche il destinatario, quindi il lavoro va fatto nella pagina chiamante

**numapompilio** · 14-05-2016, 09:42

si ma l'email provengono da una checkbox multipla selezionabile da utente...

un'altra pagina collegata nel processo è la seguente : (se poi ti devo anche postare l'elenco dove è presente la lista checkbox... dimmitu)

spediscimail.asp
<%

Dim sTestoMail
Dim nMailID : nMailID = 0
Dim oCon
Dim oRS
Dim sIndirizzi : sIndirizzi = ""
Dim sRichiedenti : sRichiedenti = ""

Set oCon = Server.CreateObject("ADODB.Connection")
oCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/public/databaseimm.mdb")

sTestoMail = request.Form("MAIL")
sSubjectMail = request.Form("SUBJECT")

For Each sCodiceRic In Request.Form("inviaMail")
if sIndirizzi<>"" Then sIndirizzi = sIndirizzi & "|"
sIndirizzi = sIndirizzi & Replace(Request.Form("MailAddress_" & sCodiceRic),"|","")

if sRichiedenti<>"" Then sRichiedenti = sRichiedenti & "|"
sRichiedenti = sRichiedenti & sCodiceRic
Next

'Salvataggio della mail nel database
If sRichiedenti<>"" Then
oCon.Execute("insert into Mails (Mail,Subject) values ('" & replace(sTestoMail,"'","''") & "','" & Replace(sSubjectMail,"'","''") & "')")
Set oRS = oCon.Execute("select Max(MailID) As LastMailID from Mails")
If Not oRS.Eof Then nMailID = oRS("LastMailID")
End If

%>
<html>

<head>
<title>xxxx IMMOBILIARE</title>
<style type="text/css">
A:visited {
COLOR: #FFFFFF; TEXT-DECORATION: underline
}
A:link {
COLOR: #FFFFFF; TEXT-DECORATION: underline
}
A:hover {
COLOR: #FFFFFF; TEXT-DECORATION: underline
}
</style>

<script>
var m_sIndirizzi = "<%=sIndirizzi%>";
var m_sRichiedenti = "<%=sRichiedenti%>";
var m_sImmobile = "<%=request.Form("cod")%>";
var m_nMailID = "<%=nMailID%>";
var m_nTotal = 0;
var m_nIndex = 0;
var m_nSent = 0;
var m_nError = 0;
var m_sRichiedentiKO = "";

function checkMailAddress(sMail)
{
sMail = sMail.replace(/ /g,"");
if (sMail=="")
return false;

if (sMail.indexOf("@")<1)
return false;

return true;
}

function startSendMail()
{
var sMsgError = "";
var oIndirizzi = m_sIndirizzi.split("|");
m_nTotal=oIndirizzi.length;

updateStatus();

if (m_nIndex<oIndirizzi.length) {

var sIndirizzo = oIndirizzi[m_nIndex];
var bgogo = true;
var oMail = document.getElementById("frm_mail").contentWindow;

//indirizzo
var oIndirizzo = oMail.document.all("MailAddress");
bgogo=(bgogo && oIndirizzo!=null);
if (bgogo) {

if (checkMailAddress(sIndirizzo)) {
oIndirizzo.value=sIndirizzo;
} else {
bgogo = false;
sMsgError="Indirizzo mail invalido";
}
} else {
if (sMsgError=="")
sMsgError="Errore nella gestione dell'oggetto della mail"
}

//Subject della mail
var oSubject1 = document.all("txtSubject");
var oSubject2 = oMail.document.all("MailSubject");
bgogo=(bgogo && oSubject1!=null && oSubject2!=null);
if (bgogo) {
oSubject2.value=oSubject1.value;
} else {
if (sMsgError=="")
sMsgError="Errore nella gestione dell'oggetto della mail"
}

//Testo della mail
var oMailText1 = document.all("txtMail");
var oMailText2 = oMail.document.all("MailText");

bgogo=(bgogo && oMailText1!=null && oMailText2!=null);
if (bgogo) {
oMailText2.value=oMailText1.value;
} else {
if (sMsgError=="")
sMsgError="Errore nella gestione del testo della mail"
}

var ofrmSendMail = oMail.document.all("frmSendMail");
if (bgogo && ofrmSendMail!=null) {
ofrmSendMail.submit();
} else {
setStatus("Errore",sMsgError);
}
} else {
updateFinalStatus();
}
}

function setStatus(sCodice,sMessaggio) {
m_nIndex++

var oRichiedenti = m_sRichiedenti.split("|");
var oIndirizzi = m_sIndirizzi.split("|");
var sUrl = "salvaMail.asp?xxxxUserName=<%=Request.querystring ("xxxxUserName")%>&xxxxUserName1=<%=Request.querys tring("xxxxUserName1")%>&Richiedente=" + oRichiedenti[m_nIndex-1];
sUrl = sUrl + "&Immobile=" + m_sImmobile;
sUrl = sUrl + "&MailID=" + m_nMailID;
sUrl = sUrl + "&Risultato=" + sMessaggio.replace("<br>","");
sUrl = sUrl + "&IndirizzoMail=" + oIndirizzi[m_nIndex-1];

if (sCodice=="InvioCorretto") {
m_nSent++;
} else {
m_nError++;
m_sRichiedentiKO += "|" + oRichiedenti[m_nIndex-1];
}

var oSave = document.getElementById("frm_save");
oSave.src=sUrl;

var oMail = document.getElementById("frm_mail")
oMail.src="inviamail.asp?xxxxUserName=<%=Request.q uerystring("xxxxUserName")%>&xxxxUserName1=<%=Requ est.querystring("xxxxUserName1")%>"

window.setTimeout(startSendMail,1000);
}

function updateStatus()
{
var oStatus = document.getElementById("fieldStato");
if (oStatus!=null)
oStatus.innerHTML = "INVIO MAIL IN CORSO<br><br>INVIATE: " + m_nSent + "    SCARTATE: " + m_nError + "    PROCESSATE: " + m_nIndex + "/" + m_nTotal;
}

function updateFinalStatus()
{
var oStatus = document.getElementById("fieldStato");
if (oStatus!=null)
oStatus.innerHTML = "INVIO MAIL TERMINATO<br><br>INVIATE: " + m_nSent + "    SCARTATE: " + m_nError + "    PROCESSATE: " + m_nTotal;

var oAvviso = document.getElementById("divAvviso");
oAvviso.style.display="none";

if (m_nError>0) {
document.getElementById("verificanonspediti").styl e.display="inline";
}
}

function verificaMail()
{
var oWin = window.opener;

oWin.verificaMail(m_sRichiedentiKO.substr(1,m_sRic hiedentiKO.length-1));
window.close();
}

</script>

</head>

<body bgcolor="#000080" onload="window.setTimeout(startSendMail,1000);">
<input type="hidden" name="txtSubject" value="<%=Request.Form("SUBJECT")%>">
<div style="display:none;"><textarea name="txtMail" id="txtMail"><%=Request.Form("MAIL")%></textarea></div>
<div align="center" id="divAvviso"><font face="Tahoma" color="#FFFFFF" size="2"><b>NON CHIUDERE LA FINESTRA<BR>ALTRIMENTI LA SPEDIZIONE SARA' TERMINATA</b></font></div>

<div id="divStato">
<table border="0" align="center" width="100%" height="10%">
<tr height="80%">
<td id="fieldStato" width="100%" align="center" valign="middle" style="color:#FFFFFF;font-family:Tahoma;font-size:12px;font-weight:bold">INVIO MAIL IN CORSO</td>
</tr>
<tr height="20%"><td> </td></tr>
</table>
</div>

<div align="center" id="verificanonspediti" style="display:none;cursor:hand;width:100%" onclick="verificaMail();"><font face="Tahoma" color="#FFFFFF" size="2"><b>PREMERE QUI PER VERIFICARE LE MAIL NON SPEDITE</b></font></div>

<div style="display:none;">
<iframe id="frm_mail" src="inviamail.asp?xxxxUserName=<%=Request.Queryst ring("xxxxUserName")%>&xxxxUserName1=<%=Request.qu erystring("xxxxUserName1")%>"></iframe>
</div>
<div style="display:none;">
<iframe id="frm_save" src="blank.htm"></iframe>
</div>
</body>
</html>

<%
Function PulisciNumero(ByVal sValue)
Dim nIndex
Dim sNumero

sNumero=""
For nIndex=1 to len(sValue)
if Asc(Mid(sValue,nIndex,1))>47 and Asc(Mid(sValue,nIndex,1))<58 Then sNumero = sNumero & Mid(sValue,nIndex,1)
Next

PulisciNumero=sNumero
End Function

%>

**optime** · 14-05-2016, 12:08

scusa, quello che voglio dirti è che tu sai a chi la spedisci, quindi sai chi la legge (visto che la mail viene letta dalla persona a cui l'hai spedita

). visto che da qualche parte hai questo indirizzo, semplicemente includilo nel link che inserisci nel body della mail

**numapompilio** · 14-05-2016, 12:16

l'indirizzo email è un valore di un campo che si trova in un db e in base ad una ricerca filtrata l'utente seleziona a chi deve inviare questa email ....... esempio :

scontato dirti che l'email cambia ogni volta...........

ROSSI ha rossi70@libero.it
BIANCHI ha white100@tiscali.it
MARRONI ha brown1980@alice.it

selezionandoli con checkbox parte questo script che tempo fa un mio collega mi aveva passato , ho l'esigenza , ripeto , che nell'email ci sia un coll.to href ad un sito web che abbia ?email2= qui la casella email di riferimento..... non riesco a portarmi dietro questo valore , prima ti ho fatto vedere le pagine del processo di invio ....

**numapompilio** · 15-05-2016, 09:35

sei riuscito a visionare la questione ?

Attendo tue notizie
Grazie

Discussione: ricavare email

Strumenti discussione

Ricerca discussione

Visualizza

ricavare email

Permessi di invio