Aggiungere un contatto in rublica Outlook da ASP
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
%>