Prev: lterative to VO
Next: VO 2.7 internet.aef from december 2006
From: Karl Faller on 10 May 2010 13:01
IIRC, there was some redesign of the classes from .5 to .6, making
some accesses obsolete.
You should have a look into the skd to find the correct ones...

Karl

On Mon, 10 May 2010 06:15:56 -0700 (PDT), tham chan weng
<tcw(a)multiplex.com.my> wrote:

>I am trying to incorporate a simple feature for emailing and started
>toying with the sample prog from VO2.6. So far I got what I want
>except for the cclist. The return array does not contains the full
>list. Most of the time it returns 2 and sometime the most 3 out of a
>list of 5. Is this an issue with the sample, class or I miss out
>something. I did not change any of codes. Just added the following for
>debugging.
>
> oPop := CFixedPop{aMailInfo[DEF_POPSERVER]}
>
> oPop:Logon(aMailInfo[DEF_ACCOUNT],aMailInf[DEF_PASSWORD])
>
> n := oPop:GetStatus()
>
> nList := oPop:MailCount
>
> FOR iMail := 1 UPTO nList
> IF oPop:GetMail(iMail)
> oEmailServer:Append()
> oEmailServer:FIELDPUT( #E_Box, "Inbox" )
> oEmailServer:FIELDPUT( #E_Date, Today())
> oEmailServer:FIELDPUT( #E_To, __MakeString(oPop:Email:DestList) )
> oEmailServer:FIELDPUT( #E_Subject, oPop:Email:Subject )
>
>/// this is the part I added
>? len(oPop:Email:CCList) /// returns as 2 or 3
>for var := 1 upto len()oPop:Email:CCList
>? oPop:Email:CCList[var]
>next
>wait
>////
>
> oEmailServer:FIELDPUT( #E_CCs, __MakeString(oPop:Email:CCList) )
> oEmailServer:FIELDPUT( #E_Body, oPop:Email:MailBody)
>
> cFile := SELF:GetAttachFileNames( oPop )
> IF cFile != Null_String
> oEmailServer:FIELDPUT( #E_Attach, cFile)
> ENDIF
>
> oEmailServer:Commit()
> SELF:FillListView( SELF:oDCEmailTreeView:GetSelectedItem())
>
> // UH 06/29/1999
> // IF !oPop:DeleteMail( 1 )
> IF !oPop:DeleteMail( iMail )
> textbox{,"Email","Could not delete the message from the
>server."}:show()
> ENDIF
> ENDIF
> NEXT
> oPop:Disconnect()
From: Geoff Schaller on 10 May 2010 18:24
Tham,

Firstly, the VO 2.6 email classes had some significant bugs (it was only
ever a very simple demo app) which I re-wrote and recommend you use
instead. I also hope you aren't still messing with VO 2.6 and that you
have actually upgraded to 2.8 SP3.

Secondly, you are using the classes incorrectly anyway. Once you have
done GetMail, it is all over from a receiving perspective. You can now
look at the raw email data to confirm what you really received. From
here you could visually look at the number of cc recipients.

Thirdly, if cCList length is 2 or 3 then that is what it is.

Cheers,

Geoff



"tham chan weng" <tcw(a)multiplex.com.my> wrote in message
news:e9aafd57-424d-4f82-9659-88968a1ddedb(a)t26g2000prt.googlegroups.com:

> I am trying to incorporate a simple feature for emailing and started
> toying with the sample prog from VO2.6. So far I got what I want
> except for the cclist. The return array does not contains the full
> list. Most of the time it returns 2 and sometime the most 3 out of a
> list of 5. Is this an issue with the sample, class or I miss out
> something. I did not change any of codes. Just added the following for
> debugging.
>
> oPop := CFixedPop{aMailInfo[DEF_POPSERVER]}
>
> oPop:Logon(aMailInfo[DEF_ACCOUNT],aMailInf[DEF_PASSWORD])
>
> n := oPop:GetStatus()
>
> nList := oPop:MailCount
>
> FOR iMail := 1 UPTO nList
> IF oPop:GetMail(iMail)
> oEmailServer:Append()
> oEmailServer:FIELDPUT( #E_Box, "Inbox" )
> oEmailServer:FIELDPUT( #E_Date, Today())
> oEmailServer:FIELDPUT( #E_To, __MakeString(oPop:Email:DestList) )
> oEmailServer:FIELDPUT( #E_Subject, oPop:Email:Subject )
>
> /// this is the part I added
> ? len(oPop:Email:CCList) /// returns as 2 or 3
> for var := 1 upto len()oPop:Email:CCList
> ? oPop:Email:CCList[var]
> next
> wait
> ////
>
> oEmailServer:FIELDPUT( #E_CCs, __MakeString(oPop:Email:CCList) )
> oEmailServer:FIELDPUT( #E_Body, oPop:Email:MailBody)
>
> cFile := SELF:GetAttachFileNames( oPop )
> IF cFile != Null_String
> oEmailServer:FIELDPUT( #E_Attach, cFile)
> ENDIF
>
> oEmailServer:Commit()
> SELF:FillListView( SELF:oDCEmailTreeView:GetSelectedItem())
>
> // UH 06/29/1999
> // IF !oPop:DeleteMail( 1 )
> IF !oPop:DeleteMail( iMail )
> textbox{,"Email","Could not delete the message from the
> server."}:show()
> ENDIF
> ENDIF
> NEXT
> oPop:Disconnect()

From: tham chan weng on 11 May 2010 08:20
Thank guys for all the help especially to Karl who put me on the right
track. After a peek in the internetsdk, I found the problem. Assign
CCList is using a semi-colon as seperator wherelse the mail received
has a comma.

And Geoff, on your suggestion to upgrade to 2.8. I have consider this
for quite some time but worry on migrating issues. I am doing
customized systems for clients and would say all of them are running
well. It would be embrassing if not devasting should issues surfaced
after the upgrade. I started with v2.5 and I would say it is a breeze
to 'convert' everything to 2.6. I have quite a number of udfs and
custom classes. Would it be the same as from 2.5 to 2.6 for 2.8? If it
is too much trouble, I may opt for Vulcan or VS.


On May 11, 6:24 am, "Geoff Schaller"
<geo...(a)softxwareobjectives.com.au> wrote:
> Tham,
>
> Firstly, the VO 2.6 email classes had some significant bugs (it was only
> ever a very simple demo app) which I re-wrote and recommend you use
> instead. I also hope you aren't still messing with VO 2.6 and that you
> have actually upgraded to 2.8 SP3.
>
> Secondly, you are using the classes incorrectly anyway. Once you have
> done GetMail, it is all over from a receiving perspective. You can now
> look at the raw email data to confirm what you really received. From
> here you could visually look at the number of cc recipients.
>
> Thirdly, if cCList length is 2 or 3 then that is what it is.
>
> Cheers,
>
> Geoff
>
> "tham chan weng" <t...(a)multiplex.com.my> wrote in messagenews:e9aafd57-424d-4f82-9659-88968a1ddedb(a)t26g2000prt.googlegroups.com:
>
>
>
> > I am trying to incorporate a simple feature for emailing and started
> > toying with the sample prog from VO2.6. So far I got what I want
> > except for the cclist. The return array does not contains the full
> > list. Most of the time it returns 2 and sometime the most 3 out of a
> > list of 5. Is this an issue with the sample, class or I miss out
> > something. I did not change any of codes. Just added the following for
> > debugging.
>
> > oPop := CFixedPop{aMailInfo[DEF_POPSERVER]}
>
> > oPop:Logon(aMailInfo[DEF_ACCOUNT],aMailInf[DEF_PASSWORD])
>
> > n := oPop:GetStatus()
>
> >     nList := oPop:MailCount
>
> > FOR iMail := 1 UPTO nList
> > IF oPop:GetMail(iMail)
> > oEmailServer:Append()
> > oEmailServer:FIELDPUT( #E_Box, "Inbox" )
> > oEmailServer:FIELDPUT( #E_Date, Today())
> > oEmailServer:FIELDPUT( #E_To,   __MakeString(oPop:Email:DestList) )
> > oEmailServer:FIELDPUT( #E_Subject, oPop:Email:Subject )
>
> > /// this is the part I added
> > ? len(oPop:Email:CCList)   /// returns as 2 or 3
> > for var := 1 upto len()oPop:Email:CCList
> > ? oPop:Email:CCList[var]
> > next
> > wait
> > ////
>
> > oEmailServer:FIELDPUT( #E_CCs, __MakeString(oPop:Email:CCList) )
> > oEmailServer:FIELDPUT( #E_Body, oPop:Email:MailBody)
>
> > cFile := SELF:GetAttachFileNames( oPop )
> > IF cFile != Null_String
> > oEmailServer:FIELDPUT( #E_Attach, cFile)
> > ENDIF
>
> > oEmailServer:Commit()
> > SELF:FillListView( SELF:oDCEmailTreeView:GetSelectedItem())
>
> > // UH 06/29/1999
> > // IF !oPop:DeleteMail( 1 )
> > IF !oPop:DeleteMail( iMail )
> > textbox{,"Email","Could not delete the message from the
> > server."}:show()
> > ENDIF
> > ENDIF
> > NEXT
> > oPop:Disconnect()- Hide quoted text -
>
> - Show quoted text -

From: Geoff Schaller on 11 May 2010 18:44
Tham,

> And Geoff, on your suggestion to upgrade to 2.8. I have consider this
> for quite some time but worry on migrating issues. I am doing

Wrong attitude. I would be worrying about your clients and all the
functionality they are missing out and all the performance enhancements
YOU are missing out. Surely you have a process in place to upgrade a
version and test? Yes? Then jeepers... just get out there and do it!

Do I need to point out it has over been 5 years now?

Cheers,

Geoff



> customized systems for clients and would say all of them are running
> well. It would be embrassing if not devasting should issues surfaced
> after the upgrade. I started with v2.5 and I would say it is a breeze
> to 'convert' everything to 2.6. I have quite a number of udfs and
> custom classes. Would it be the same as from 2.5 to 2.6 for 2.8? If it
> is too much trouble, I may opt for Vulcan or VS.
>
>
> On May 11, 6:24 am, "Geoff Schaller"
> <geo...(a)softxwareobjectives.com.au> wrote:
>
> > Tham,
> >
> > Firstly, the VO 2.6 email classes had some significant bugs (it was only
> > ever a very simple demo app) which I re-wrote and recommend you use
> > instead. I also hope you aren't still messing with VO 2.6 and that you
> > have actually upgraded to 2.8 SP3.
> >
> > Secondly, you are using the classes incorrectly anyway. Once you have
> > done GetMail, it is all over from a receiving perspective. You can now
> > look at the raw email data to confirm what you really received. From
> > here you could visually look at the number of cc recipients.
> >
> > Thirdly, if cCList length is 2 or 3 then that is what it is.
> >
> > Cheers,
> >
> > Geoff
> >
> > "tham chan weng" <t...(a)multiplex.com.my> wrote in messagenews:e9aafd57-424d-4f82-9659-88968a1ddedb(a)t26g2000prt.googlegroups.com:
> >
> >
> >
>
> > > I am trying to incorporate a simple feature for emailing and started
> > > toying with the sample prog from VO2.6. So far I got what I want
> > > except for the cclist. The return array does not contains the full
> > > list. Most of the time it returns 2 and sometime the most 3 out of a
> > > list of 5. Is this an issue with the sample, class or I miss out
> > > something. I did not change any of codes. Just added the following for
> > > debugging.
> >
> > > oPop := CFixedPop{aMailInfo[DEF_POPSERVER]}
> >
> > > oPop:Logon(aMailInfo[DEF_ACCOUNT],aMailInf[DEF_PASSWORD])
> >
> > > n := oPop:GetStatus()
> >
> > > nList := oPop:MailCount
> >
> > > FOR iMail := 1 UPTO nList
> > > IF oPop:GetMail(iMail)
> > > oEmailServer:Append()
> > > oEmailServer:FIELDPUT( #E_Box, "Inbox" )
> > > oEmailServer:FIELDPUT( #E_Date, Today())
> > > oEmailServer:FIELDPUT( #E_To, __MakeString(oPop:Email:DestList) )
> > > oEmailServer:FIELDPUT( #E_Subject, oPop:Email:Subject )
> >
> > > /// this is the part I added
> > > ? len(oPop:Email:CCList) /// returns as 2 or 3
> > > for var := 1 upto len()oPop:Email:CCList
> > > ? oPop:Email:CCList[var]
> > > next
> > > wait
> > > ////
> >
> > > oEmailServer:FIELDPUT( #E_CCs, __MakeString(oPop:Email:CCList) )
> > > oEmailServer:FIELDPUT( #E_Body, oPop:Email:MailBody)
> >
> > > cFile := SELF:GetAttachFileNames( oPop )
> > > IF cFile != Null_String
> > > oEmailServer:FIELDPUT( #E_Attach, cFile)
> > > ENDIF
> >
> > > oEmailServer:Commit()
> > > SELF:FillListView( SELF:oDCEmailTreeView:GetSelectedItem())
> >
> > > // UH 06/29/1999
> > > // IF !oPop:DeleteMail( 1 )
> > > IF !oPop:DeleteMail( iMail )
> > > textbox{,"Email","Could not delete the message from the
> > > server."}:show()
> > > ENDIF
> > > ENDIF
> > > NEXT
> > > oPop:Disconnect()- Hide quoted text -
> >
>
> > - Show quoted text -

From: tham chan weng on 12 May 2010 02:16
Geoff,

Point taken. If the migrating process is tedious, I would have to make
a choice. To continue with VO or another programming language.



On May 12, 6:44 am, "Geoff Schaller"
<geo...(a)softxwareobjectives.com.au> wrote:
> Tham,
>
> > And Geoff, on your suggestion to upgrade to 2.8. I have consider this
> > for quite some time but worry on migrating issues. I am doing
>
> Wrong attitude. I would be worrying about your clients and all the
> functionality they are missing out and all the performance enhancements
> YOU are missing out. Surely you have a process in place to upgrade a
> version and test? Yes? Then jeepers... just get out there and do it!
>
> Do I need to point out it has over been 5 years now?
>
> Cheers,
>
> Geoff
>
>
>
> > customized systems for clients and would say all of them are running
> > well. It would be embrassing if not devasting should issues surfaced
> > after the upgrade. I started with v2.5 and I would say it is a breeze
> > to 'convert' everything to 2.6. I have quite a number of udfs and
> > custom classes. Would it be the same as from 2.5 to 2.6 for 2.8? If it
> > is too much trouble, I may opt for Vulcan or VS.
>
> > On May 11, 6:24 am, "Geoff Schaller"
> > <geo...(a)softxwareobjectives.com.au> wrote:
>
> > > Tham,
>
> > > Firstly, the VO 2.6 email classes had some significant bugs (it was only
> > > ever a very simple demo app) which I re-wrote and recommend you use
> > > instead. I also hope you aren't still messing with VO 2.6 and that you
> > > have actually upgraded to 2.8 SP3.
>
> > > Secondly, you are using the classes incorrectly anyway. Once you have
> > > done GetMail, it is all over from a receiving perspective. You can now
> > > look at the raw email data to confirm what you really received. From
> > > here you could visually look at the number of cc recipients.
>
> > > Thirdly, if cCList length is 2 or 3 then that is what it is.
>
> > > Cheers,
>
> > > Geoff
>
> > > "tham chan weng" <t...(a)multiplex.com.my> wrote in messagenews:e9aafd57-424d-4f82-9659-88968a1ddedb(a)t26g2000prt.googlegroups.com:
>
> > > > I am trying to incorporate a simple feature for emailing and started
> > > > toying with the sample prog from VO2.6. So far I got what I want
> > > > except for the cclist. The return array does not contains the full
> > > > list. Most of the time it returns 2 and sometime the most 3 out of a
> > > > list of 5. Is this an issue with the sample, class or I miss out
> > > > something. I did not change any of codes. Just added the following for
> > > > debugging.
>
> > > > oPop := CFixedPop{aMailInfo[DEF_POPSERVER]}
>
> > > > oPop:Logon(aMailInfo[DEF_ACCOUNT],aMailInf[DEF_PASSWORD])
>
> > > > n := oPop:GetStatus()
>
> > > >     nList := oPop:MailCount
>
> > > > FOR iMail := 1 UPTO nList
> > > > IF oPop:GetMail(iMail)
> > > > oEmailServer:Append()
> > > > oEmailServer:FIELDPUT( #E_Box, "Inbox" )
> > > > oEmailServer:FIELDPUT( #E_Date, Today())
> > > > oEmailServer:FIELDPUT( #E_To,   __MakeString(oPop:Email:DestList) )
> > > > oEmailServer:FIELDPUT( #E_Subject, oPop:Email:Subject )
>
> > > > /// this is the part I added
> > > > ? len(oPop:Email:CCList)   /// returns as 2 or 3
> > > > for var := 1 upto len()oPop:Email:CCList
> > > > ? oPop:Email:CCList[var]
> > > > next
> > > > wait
> > > > ////
>
> > > > oEmailServer:FIELDPUT( #E_CCs, __MakeString(oPop:Email:CCList) )
> > > > oEmailServer:FIELDPUT( #E_Body, oPop:Email:MailBody)
>
> > > > cFile := SELF:GetAttachFileNames( oPop )
> > > > IF cFile != Null_String
> > > > oEmailServer:FIELDPUT( #E_Attach, cFile)
> > > > ENDIF
>
> > > > oEmailServer:Commit()
> > > > SELF:FillListView( SELF:oDCEmailTreeView:GetSelectedItem())
>
> > > > // UH 06/29/1999
> > > > // IF !oPop:DeleteMail( 1 )
> > > > IF !oPop:DeleteMail( iMail )
> > > > textbox{,"Email","Could not delete the message from the
> > > > server."}:show()
> > > > ENDIF
> > > > ENDIF
> > > > NEXT
> > > > oPop:Disconnect()- Hide quoted text -
>
> > > - Show quoted text -- Hide quoted text -
>
> - Show quoted text -

First  |  Prev  |  Next  |  Last
Pages: 1 2 3 4
Prev: lterative to VO
Next: VO 2.7 internet.aef from december 2006