J
Jade
Hello everyone,
I have an excel sheet ("Test") which in range ("D3") I would like to
add the field ("txtName") from a custom outlook calendar form
("Page2"). I realize I'm missing a step. Can someone lend me some
assistance?
Thanks...
Sub cmdGetExcel_Click()
dim myIns,strName
strName="C:\Documents and Settings\Jackie\My Documents\OutlookTest.xls"
set myIns=item.getinspector
set myPage=myIns.modifiedformpages("Page2")
set txtName=myPage.Controls("txtName")
set appExcel=createobject("Excel.Application")
appExcel.workbooks.open (strName)
appExcel.application.visible=true
set wkb=appExcel.activeworkbook
set wks=wkb.Worksheets("Sheet1")
wks.activate
set rng=wks.Range("D3")
rng.value=item.userproperties("txtName")
Set appExcel = Nothing
End Sub
I have an excel sheet ("Test") which in range ("D3") I would like to
add the field ("txtName") from a custom outlook calendar form
("Page2"). I realize I'm missing a step. Can someone lend me some
assistance?
Thanks...
Sub cmdGetExcel_Click()
dim myIns,strName
strName="C:\Documents and Settings\Jackie\My Documents\OutlookTest.xls"
set myIns=item.getinspector
set myPage=myIns.modifiedformpages("Page2")
set txtName=myPage.Controls("txtName")
set appExcel=createobject("Excel.Application")
appExcel.workbooks.open (strName)
appExcel.application.visible=true
set wkb=appExcel.activeworkbook
set wks=wkb.Worksheets("Sheet1")
wks.activate
set rng=wks.Range("D3")
rng.value=item.userproperties("txtName")
Set appExcel = Nothing
End Sub