Salvare i contatti in Outlook

[paolo bosani]

Ho trovato su ASP italia uno script (#500) per salvare i contatti in Outlook direttamente dalla pagina ASP.
Mi sembra molto interessante (vedere su virgilio pag. bianche, in alcuni contatti c'è il pulsante salva Contatto in Outlook).
Ho provato lo script sembra che funzioni, ma a un certo punto si blocca e viene visualizzato il seguente messaggio: Impossibile aprire il file C:\Documents and Setting\Administrator\Impostazioni locali\Temporary internet files... il file non esiste...ecc.
Qualcuno l'ha provato? Forse ho sbagliato qualcosa, in realtà c'è un file vcf ma cliccandoci sopra compare il messagio di prima.

[weppos]

Tempo fa provai uno script simile perchè veramente utile.
Non ricordo dove lo presi, solo che non ci sono mai riuscito.

[paolo bosani]

Originariamente inviato da weppos
Tempo fa provai uno script simile perchè veramente utile.
Non ricordo dove lo presi, solo che non ci sono mai riuscito.

Mi arrendo o continuo la ricerca?

[weppos]

Originariamente inviato da paolo bosani
Mi arrendo o continuo la ricerca?

Non saprei.
Se ci riesci fammi un fischio...

[kluster]

io mi sono fatto questo per esportare i contatti delle newsletter e per ora non mi ha dato problemi:

 
<%@Language="VBSCRIPT"%>


<% 
   Set cn = Server.CreateObject("ADODB.Connection")
   cn.open connectionMail
   Set rs = Server.CreateObject("ADODB.Recordset")
   strSQL="SELECT * FROM T_mailing where id=" & Request("ID")
   rs.Open strSQL,cn,3,3
 'INTESTAZIONE DELLA VCARD
   strCard = strCard & "BEGIN:VCARD" & vbcrlf   
   strCard = strCard & "VERSION:2.1"  & vbcrlf 
   strCard = strCard & "N:" & Rs("cognome") & ";" & Rs("nome") & ";;"  & vbcrlf   'N:Cognome;Nome;Secondo Nome;Titolo
   strCard = strCard & "FN:" & Rs("cognome") & " " & Rs("nome") & vbcrlf   'FN:Nome vcard
   strCard = strCard & "NOTE:;" & vbcrlf   'NOTE:Note particolari
   strCard = strCard & "TEL;HOME;VOICE:"& Rs("telefono") & vbcrlf   'TEL;HOME;VOICE:Telefono 
   strCard = strCard & "TEL;WORK;FAX:"& Rs("fax")  & vbcrlf   'TEL;WORK;FAX:Fax Ufficio
   strCard = strCard & "ADR;HOME:;;"& Rs("indirizzo") & ";;;;" & vbcrlf   
   strCard = strCard & "EMAIL;PREF;INTERNET:" & Rs("email") & vbcrlf   'EMAIL;PREF;INTERNET:1 indirizzo di posta predefinito 
 'FOOT DELLA VCARD
 
strCard = strCard & "END:VCARD"  & vbcrlf 
nomeFile = Rs("cognome") & "_" & Rs("nome") & ".vcf"  
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-disposition", "attachment; filename=" & nomeFile
Response.write strCard %>

logicamente l'ho copiato cosi con i miei campi , riadattatelo con i parametri vostri
per vedere bene la struttura di un vcf crei un nuovo contatto e riempi tutti i campi con dei valori (magari di esempio:tipo "Nome","Cognome" etc) e poi lo apri con notepad e ti sostituisci i valori che ti interessa aggiungere al mio esempio con il campo del recordset

[paolo bosani]

Originariamente inviato da kluster
io mi sono fatto questo per esportare i contatti delle newsletter e per ora non mi ha dato problemi:

 
   rs.Open strSQL,cn,3,3

Response.ContentType = "application/octet-stream"

%>

Mi spieghi cosa significa il 3

Il Response.ContentType io avevo: Response.ContentType = "text/x-vcard"

ciao e grazie

[paolo bosani]

Originariamente inviato da kluster
io mi sono fatto questo per esportare i contatti delle newsletter e per ora non mi ha dato problemi:

 
<%@Language="VBSCRIPT"%>


<% 
   Set cn = Server.CreateObject("ADODB.Connection")
   cn.open connectionMail
   Set rs = Server.CreateObject("ADODB.Recordset")
   strSQL="SELECT * FROM T_mailing where id=" & Request("ID")
   rs.Open strSQL,cn,3,3
 'INTESTAZIONE DELLA VCARD
   strCard = strCard & "BEGIN:VCARD" & vbcrlf   
   strCard = strCard & "VERSION:2.1"  & vbcrlf 
   strCard = strCard & "N:" & Rs("cognome") & ";" & Rs("nome") & ";;"  & vbcrlf   'N:Cognome;Nome;Secondo Nome;Titolo
   strCard = strCard & "FN:" & Rs("cognome") & " " & Rs("nome") & vbcrlf   'FN:Nome vcard
   strCard = strCard & "NOTE:;" & vbcrlf   'NOTE:Note particolari
   strCard = strCard & "TEL;HOME;VOICE:"& Rs("telefono") & vbcrlf   'TEL;HOME;VOICE:Telefono 
   strCard = strCard & "TEL;WORK;FAX:"& Rs("fax")  & vbcrlf   'TEL;WORK;FAX:Fax Ufficio
   strCard = strCard & "ADR;HOME:;;"& Rs("indirizzo") & ";;;;" & vbcrlf   
   strCard = strCard & "EMAIL;PREF;INTERNET:" & Rs("email") & vbcrlf   'EMAIL;PREF;INTERNET:1 indirizzo di posta predefinito 
 'FOOT DELLA VCARD
 
strCard = strCard & "END:VCARD"  & vbcrlf 
nomeFile = Rs("cognome") & "_" & Rs("nome") & ".vcf"  
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-disposition", "attachment; filename=" & nomeFile
Response.write strCard %>

logicamente l'ho copiato cosi con i miei campi , riadattatelo con i parametri vostri
per vedere bene la struttura di un vcf crei un nuovo contatto e riempi tutti i campi con dei valori (magari di esempio:tipo "Nome","Cognome" etc) e poi lo apri con notepad e ti sostituisci i valori che ti interessa aggiungere al mio esempio con il campo del recordset

Mi da sempre l'errore iniziale, mi puoi spiegare come configurare.

Io ho una pagina ASP dove ho un elenco di indirizzi ecc.
Cliccando su Aggiungi ai contatti passo il parametro IDContatto (id) ad un'altra pagina ASP dove ho inserito lo script e WHERE IDContatto = Request("id")

E non va

[paolo bosani]

Ho risolto

[paolo bosani]

Originariamente inviato da weppos
Non saprei.
Se ci riesci fammi un fischio...

fiuuuuuu fiuuuuuu (simulazione di Fischio)

Ciao Weppos ce l'ho fatta

[weppos]

Originariamente inviato da paolo bosani
fiuuuuuu fiuuuuuu (simulazione di Fischio)

Ciao Weppos ce l'ho fatta

Dove, come, quando?
E' il codice sopra?