[Resolvido] Importar contatos msn

[Patrique 0]

Fala ae galera, vou colocar aqui um script de uma api que serve para resgatar os contatos do seu msn, são três exemplos simples para o uso da api.

 

1º Drop Down

 

<%
User="xxxx@hotmail.com"
psw="00000"
  Set XmlDoc = Server.CreateObject("Microsoft.XMLDOM" ) 
     XmlDoc.async = false 
     XmlDoc.resolveExternals = false 
     XmlDoc.setProperty "ServerHTTPRequest" ,true             
	 XmlDoc.load("http://www.eminkork.com.tr/msn/api.asp?user="&user&"&psw="&psw&"")
%>

<select name="Maillist" id="select">

<%
Set sec = XmlDoc.selectNodes("//Msn")
For e = 0 to (sec.Length - 1) 
StrEmail=sec(e).GetAttribute("StrEmail")
StrName=sec(e).GetAttribute("StrName")
StrStatus=sec(e).GetAttribute("StrStatus")
%>

<option value="<%= StrEmail %>"><%= StrEmail %></option>
<%
Next
%>
</select>

2º - Lista em Tabela

 

<%
User="dddd@hotmail.com"
psw="0000"
  Set XmlDoc = Server.CreateObject("Microsoft.XMLDOM" ) 
     XmlDoc.async = false 
     XmlDoc.resolveExternals = false 
     XmlDoc.setProperty "ServerHTTPRequest" ,true             
	 XmlDoc.load("http://www.eminkork.com.tr/msn/api.asp?user="&user&"&psw="&psw&"")
%>

<table border="0" cellspacing="2" cellpadding="2">
  <tr>
    <td>Email</td>
    <td>Ýsim</td>
    <td>Durum</td>
  </tr>

<%
Set sec = XmlDoc.selectNodes("//Msn")
For e = 0 to (sec.Length - 1) 
StrEmail=sec(e).GetAttribute("StrEmail")
StrName=sec(e).GetAttribute("StrName")
StrStatus=sec(e).GetAttribute("StrStatus")

If StrStatus="2" Then Durum="Sildi + Sildin" End If
If StrStatus="3" Then Durum="Sildi" End If
If StrStatus="4" Then Durum="Engelledin + Sildin + Sildi" End If
If StrStatus="5" Then Durum="Engelledin + Sildi" End If
If StrStatus="10" Then Durum="Sildin" End If
If StrStatus="11" Then Durum="Normal" End If
If StrStatus="12" Then Durum="Engelledin + Sildin" End If
If StrStatus="13" Then Durum="Engelledin" End If
%>
    <tr>
    <td><%= StrEmail %></td>
    <td><%= StrName %></td>
    <td><%= Durum %></td>
  </tr>

<%
Next
%>

</table>

3º - Lista em texto

 

<%
User="xxxx@hotmail.com"
psw="00000"
  Set XmlDoc = Server.CreateObject("Microsoft.XMLDOM" ) 
     XmlDoc.async = false 
     XmlDoc.resolveExternals = false 
     XmlDoc.setProperty "ServerHTTPRequest" ,true             
	 XmlDoc.load("http://www.eminkork.com.tr/msn/api.asp?user="&user&"&psw="&psw&"")

Set sec = XmlDoc.selectNodes("//Msn")
For e = 0 to (sec.Length - 1) 
StrEmail=sec(e).GetAttribute("StrEmail")
StrName=sec(e).GetAttribute("StrName")
StrStatus=sec(e).GetAttribute("StrStatus")
Response.write  ""&StrEmail &"" & vbCrlf
Next
%>

Esta api é fornecida gratuitamente pelo site eminkork.com, para quem quiser baixar estes exemplos zipados clique aqui.

 

Particulamente eu não gosto de usar serviços de terceiros, mais para casos excepcionais isto se torna necessário, apenas fique ciente que o usuário terá que digitar o email e a senha para que seus contatos sejam listados e por se tratar de um site tercerizado não se tem certeza totalmente se eles estão sendo éticos ou não, por isso use este tipo de serviço com moderação pois poderá te da dor de cabeças futuras.

 

[]'s