Questo sito utilizza i cookie tecnici di Joomla per la gestione della sessione dell'utente.

Il proseguimento nella navigazione implica un tacito assenso all'utilizzo dei cookies.

Se non sei d'accordo sull'utilizzo, ti invito ad allontanarti da questo sito. 

 

Direttiva Europea per la regolamentazione della Privacy.

Aggiungere un contatto in rublica Outlook da ASP

Stella inattivaStella inattivaStella inattivaStella inattivaStella inattiva
 

Questo script consente di salvare nella rubrica del proprio PMI i dati di un contatto. Questa funzione risulta molto utile nei portali aziendali



 

<%
' variabili impostate manualmente
' sostituire con la lettura da database
Nome = "Pinco"
Cognome = "Pallino"
Societa = "Tizio S.p.a."
Titolo = "Responsabile marketing"
DTRev = FormattaData(Now())

' nome da dare al file
Response.ContentType = "text/x-vcard"
Response.AddHeader "content-disposition", "inline; filename=" & Nome & "_" & Cognome & ".vcf;"

Response.Write("BEGIN:VCARD" & VbCrLF)
Response.Write("VERSION:2.1" & VbCrLF)
Response.Write("N:" & Cognome & ";" & Nome & VbCrLF)
Response.Write("FN:" & Nome & " " & Cognome & VbCrLF)
Response.Write("ORG:" & Societa & VbCrLF)
Response.Write("TITLE:" & titolo & VbCrLF)
Response.Write("EMAIL;PREF;INTERNET:" & mail & VbCrLF)
Response.Write("REV:" & dtRev & VbCrLF)
Response.Write("END:VCARD" & VbCrLF)

Function FormattaData(data)
  ' il formato è YYYYMMDDThhmmssZ
  ' ricordarsi che le date devono essere secondo GTM
  data = CDate(data)
  FormattaData = Year(data) & Raddoppia(Month(data)) & Raddoppia(Day(data))
  FormattaData = FormattaData & "T" & Raddoppia(Hour(data)) & Raddoppia(Minute(data))
  FormattaData = FormattaData & Raddoppia(Second(data)) & "Z"
End Function

' raddoppia una cifra
Function Raddoppia(valore)
  if Len(valore) = 1 then
  valore = "0" & valore
  end if
  Raddoppia = valore
End Function

%>