Object reference not set to an...

[Admini]

הסתדרתי

Dim mMsgs(iMessages) As Message​

ובהמשך

mMsgs(i) = New Message()​

 

[Admini]

שום הסתדרתי ושום נעליים

הקוד עובד תקין אבל מחזיר תוכן ריק...

Dim mMsgs(iMessages) As Message mMsgs = Pop.getMessageList() For i = 0 To UBound(mMsgs) Response.Write(mMsgs(i).sSubject) Next​

הוא מחזיר את אותה שגיאה למרות שבפונקציה getMessageList בלולאה שם:

mMsgs(iMessage) = New Message() mMsgs(iMessage).sSubject = MailHeaders(ReadFile(sFile, 1000))​

אני יכול לעשות mMsgs(iMessage) = New Message() גם בלולאה שם, אבל אז התוכן יהיה כמובן ריק ואת זה אני לא רוצה. יש רעיון למישהו ?

 

[Admini]

עוד יותר מוזר

אולי משהו בשיטת עבודה שלי דפוק:

mMsg.sSubject = htHeaders.Item("Subject") Response.Write(mMsg.sSubject)​

ה-Response.Write לא מחזיר כלום לעומת זאת:

Response.Write(htHeaders.Item("Subject"))​

מציג את הנתונים. מוזר....

 

[gilad g]

עשית new?

תבדוק ש-mMsg לא שווה ל-null. (ב-VB זה יהיה Nothing). תנסה לדבג ולראות.

 

[Admini]

כן

בדיוק שורה מעל:

Dim mMsg As New Message()​

 

[Admini]

יש עוד רעיונות ../images/Emo92.gif ../images/Emo35.gif