Rocksolid Light

Welcome to RetroBBS

mail  files  register  newsreader  groups  login

Message-ID:  

"Besides, I think [Slackware] sounds better than 'Microsoft,' don't you?" (By Patrick Volkerding)

devel / comp.lang.xharbour / Re: try catch for office365

SubjectAuthor
* try catch for office365timepro timesheet
+- Re: try catch for office365Rick Lipkin
`* Re: try catch for office365Rick Lipkin
 `* Re: try catch for office365timepro timesheet
  `- Re: try catch for office365timepro timesheet

1
try catch for office365

<1809122d-6f45-4e14-8c2c-c5d662245a10n@googlegroups.com>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=16669&group=comp.lang.xharbour#16669

  copy link   Newsgroups: comp.lang.xharbour
X-Received: by 2002:a0c:b38c:: with SMTP id t12mr16678906qve.44.1623651063334;
Sun, 13 Jun 2021 23:11:03 -0700 (PDT)
X-Received: by 2002:a05:622a:1a83:: with SMTP id s3mr5204030qtc.347.1623651063201;
Sun, 13 Jun 2021 23:11:03 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.xharbour
Date: Sun, 13 Jun 2021 23:11:03 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=2405:204:22a9:ac30:803b:9bb6:b2bd:2efb;
posting-account=jZAeNwoAAABYWjMRM-FfqKkHfC3Iph0l
NNTP-Posting-Host: 2405:204:22a9:ac30:803b:9bb6:b2bd:2efb
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <1809122d-6f45-4e14-8c2c-c5d662245a10n@googlegroups.com>
Subject: try catch for office365
From: timecosting@gmail.com (timepro timesheet)
Injection-Date: Mon, 14 Jun 2021 06:11:03 +0000
Content-Type: text/plain; charset="UTF-8"
 by: timepro timesheet - Mon, 14 Jun 2021 06:11 UTC

hello all:

this does not work/check for office365. (what am i doing wrong?)
TRY
oexcel=createobject('excel.application')
CATCH
mymessage()
*back to menu
END

TRY
oOutlook:=GetActiveObject("Outlook.Application")
CATCH
TRY
oOutlook:=CreateObject("Outlook.Application")
CATCH
mymessage()
*back to menu
END
END

thanks

Re: try catch for office365

<42e03f1a-1ff2-444b-8735-c9fc94af1153n@googlegroups.com>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=16670&group=comp.lang.xharbour#16670

  copy link   Newsgroups: comp.lang.xharbour
X-Received: by 2002:a05:6214:1c0d:: with SMTP id u13mr18467822qvc.49.1623673979995;
Mon, 14 Jun 2021 05:32:59 -0700 (PDT)
X-Received: by 2002:a05:620a:e89:: with SMTP id w9mr15802521qkm.256.1623673979859;
Mon, 14 Jun 2021 05:32:59 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.xharbour
Date: Mon, 14 Jun 2021 05:32:59 -0700 (PDT)
In-Reply-To: <1809122d-6f45-4e14-8c2c-c5d662245a10n@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=172.74.196.86; posting-account=kYxpcwoAAAC-mUzdQ6GPfzjvRvlxSeJi
NNTP-Posting-Host: 172.74.196.86
References: <1809122d-6f45-4e14-8c2c-c5d662245a10n@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <42e03f1a-1ff2-444b-8735-c9fc94af1153n@googlegroups.com>
Subject: Re: try catch for office365
From: r1.1955@live.com (Rick Lipkin)
Injection-Date: Mon, 14 Jun 2021 12:32:59 +0000
Content-Type: text/plain; charset="UTF-8"
 by: Rick Lipkin - Mon, 14 Jun 2021 12:32 UTC

On Monday, June 14, 2021 at 2:11:03 AM UTC-4, timec...@gmail.com wrote:
> hello all:
>
> this does not work/check for office365. (what am i doing wrong?)
> TRY
> oexcel=createobject('excel.application')
> CATCH
> mymessage()
> *back to menu
> END
>
> TRY
> oOutlook:=GetActiveObject("Outlook.Application")
> CATCH
> TRY
> oOutlook:=CreateObject("Outlook.Application")
> CATCH
> mymessage()
> *back to menu
> END
> END
>
> thanks

Re: try catch for office365

<b03bedc4-4638-4fa9-bfcd-3d940b7a08efn@googlegroups.com>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=16671&group=comp.lang.xharbour#16671

  copy link   Newsgroups: comp.lang.xharbour
X-Received: by 2002:ac8:4e29:: with SMTP id d9mr16917583qtw.136.1623674106280;
Mon, 14 Jun 2021 05:35:06 -0700 (PDT)
X-Received: by 2002:a05:622a:316:: with SMTP id q22mr16214991qtw.153.1623674106112;
Mon, 14 Jun 2021 05:35:06 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!news.mixmin.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.xharbour
Date: Mon, 14 Jun 2021 05:35:05 -0700 (PDT)
In-Reply-To: <1809122d-6f45-4e14-8c2c-c5d662245a10n@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=172.74.196.86; posting-account=kYxpcwoAAAC-mUzdQ6GPfzjvRvlxSeJi
NNTP-Posting-Host: 172.74.196.86
References: <1809122d-6f45-4e14-8c2c-c5d662245a10n@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <b03bedc4-4638-4fa9-bfcd-3d940b7a08efn@googlegroups.com>
Subject: Re: try catch for office365
From: r1.1955@live.com (Rick Lipkin)
Injection-Date: Mon, 14 Jun 2021 12:35:06 +0000
Content-Type: text/plain; charset="UTF-8"
 by: Rick Lipkin - Mon, 14 Jun 2021 12:35 UTC

Try it like this :

Try
oOutLook := TOleAuto():New("Outlook.Application")
Catch
Saying := "For some Odd reason The Outlook e-mail CLient failed to Initialize"
Msginfo( Saying )
Return(.f.)
End Try

oMailItem := oOutLook:Invoke("CreateItem", 0)

oMailitem:to := cTo
*oMailItem:Recipients:Add( cOther )
oMailitem:CC := cCC
oMailItem:Subject := cSubject
oMailItem:Body := cBody

Try
oMailItem:Attachments:Add("c:\dbtmp\"+cPdfName+".pdf" )
Catch
End Try

Try
oMailItem:display(.F.) // send silent
Catch
End Try

Try
oMailItem:Invoke("Send")
atch
End Try
sysrefresh()

msginfo( "E-mail Sent" )

////////////////////////////////////////////////

Try
oExcel := CREATEOBJECT( "Excel.Application" )
CATCH
Msginfo( "For Some reason EXCEL could not be Started .. Aborting" )
CLose Databases
Return(.f.)
ENd Try

oExcel:WorkBooks:Add()
oSheet := oExcel:ActiveSheet

Hope this helps
Rick Lipkin

Re: try catch for office365

<d22ffb39-4e51-48f6-9eb9-4bc8c6b3b3b4n@googlegroups.com>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=16672&group=comp.lang.xharbour#16672

  copy link   Newsgroups: comp.lang.xharbour
X-Received: by 2002:ae9:e407:: with SMTP id q7mr7757300qkc.410.1623995324140;
Thu, 17 Jun 2021 22:48:44 -0700 (PDT)
X-Received: by 2002:a37:9244:: with SMTP id u65mr7723339qkd.46.1623995323975;
Thu, 17 Jun 2021 22:48:43 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.xharbour
Date: Thu, 17 Jun 2021 22:48:43 -0700 (PDT)
In-Reply-To: <b03bedc4-4638-4fa9-bfcd-3d940b7a08efn@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=2405:204:2204:b9af:c566:9aeb:7022:a804;
posting-account=jZAeNwoAAABYWjMRM-FfqKkHfC3Iph0l
NNTP-Posting-Host: 2405:204:2204:b9af:c566:9aeb:7022:a804
References: <1809122d-6f45-4e14-8c2c-c5d662245a10n@googlegroups.com> <b03bedc4-4638-4fa9-bfcd-3d940b7a08efn@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <d22ffb39-4e51-48f6-9eb9-4bc8c6b3b3b4n@googlegroups.com>
Subject: Re: try catch for office365
From: timecosting@gmail.com (timepro timesheet)
Injection-Date: Fri, 18 Jun 2021 05:48:44 +0000
Content-Type: text/plain; charset="UTF-8"
 by: timepro timesheet - Fri, 18 Jun 2021 05:48 UTC

thanks rick, will test it your way:

couple of more queries:

my horiz coding (works fine)
for xxx=nstart to xrow && horiz tot
oSheet:Cells(xxx,37):Value="=SUM("+oSheet:Range(oSheet:Cells(xxx,6),oSheet:Cells(xxx,36)):Address( .F.,.F.)+")"
next

A]
how do i code:
1. in all rows of cell(38) formula to be workinghrs-cell(xxx,37)
2. in all rows of cell(42) formula to be (workinghrs/idlehrs)*cell(xxx,9)
3. in all rows of cell(3) formula to be cell(xxx,12)-cell(xxx,5)/(idlehrs/cell(xxx,37))*penalty

B]
if the system has 'locally installed excel' and also logged in to 'office365'
which will 'try,catch' check by default

tia.

Re: try catch for office365

<ff26cacc-d605-4b37-af17-60f764e22f40n@googlegroups.com>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=16676&group=comp.lang.xharbour#16676

  copy link   Newsgroups: comp.lang.xharbour
X-Received: by 2002:a05:620a:1258:: with SMTP id a24mr15201988qkl.225.1624688026858;
Fri, 25 Jun 2021 23:13:46 -0700 (PDT)
X-Received: by 2002:a37:7485:: with SMTP id p127mr15106791qkc.323.1624688026656;
Fri, 25 Jun 2021 23:13:46 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.xharbour
Date: Fri, 25 Jun 2021 23:13:46 -0700 (PDT)
In-Reply-To: <d22ffb39-4e51-48f6-9eb9-4bc8c6b3b3b4n@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=2405:204:307:7ec3:9044:e0ed:fa8e:900c;
posting-account=jZAeNwoAAABYWjMRM-FfqKkHfC3Iph0l
NNTP-Posting-Host: 2405:204:307:7ec3:9044:e0ed:fa8e:900c
References: <1809122d-6f45-4e14-8c2c-c5d662245a10n@googlegroups.com>
<b03bedc4-4638-4fa9-bfcd-3d940b7a08efn@googlegroups.com> <d22ffb39-4e51-48f6-9eb9-4bc8c6b3b3b4n@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <ff26cacc-d605-4b37-af17-60f764e22f40n@googlegroups.com>
Subject: Re: try catch for office365
From: timecosting@gmail.com (timepro timesheet)
Injection-Date: Sat, 26 Jun 2021 06:13:46 +0000
Content-Type: text/plain; charset="UTF-8"
 by: timepro timesheet - Sat, 26 Jun 2021 06:13 UTC

On Friday, June 18, 2021 at 11:18:44 AM UTC+5:30, timepro timesheet wrote:
> thanks rick, will test it your way:
>
>
> couple of more queries:
>
> my horiz coding (works fine)
> for xxx=nstart to xrow && horiz tot
> oSheet:Cells(xxx,37):Value="=SUM("+oSheet:Range(oSheet:Cells(xxx,6),oSheet:Cells(xxx,36)):Address( .F.,.F.)+")"
> next
>
> A]
> how do i code:
> 1. in all rows of cell(38) formula to be workinghrs-cell(xxx,37)
> 2. in all rows of cell(42) formula to be (workinghrs/idlehrs)*cell(xxx,9)
> 3. in all rows of cell(3) formula to be cell(xxx,12)-cell(xxx,5)/(idlehrs/cell(xxx,37))*penalty
>
> B]
> if the system has 'locally installed excel' and also logged in to 'office365'
> which will 'try,catch' check by default
>
> tia.

anyone please...

1
server_pubkey.txt

rocksolid light 0.9.81
clearnet tor