Transfer data from Outlook2000 custom form to custom Excel sheet

[sbauerle]

Hello,

because of printing issues of custom Outlook forms, I would like to transfer the data from the Outlook2000 form to an Excel sheet using VBscript.
Something like:

Sub Transfer_Click
'*** open custom Excel sheet
'*** copy/transfer data from Outlook to Excel
End Sub

Any help would be great
thanks
Stefan

 

[mrmovie]

best i can offer, sorry


set appXL = Wscript.CreateObject("Excel.Application&quot
appXL.Visible = False


set objSession = CreateObject("MAPI.Session&quot
objSession.Logon "blaa" 'profile name
set objInbox=objSession.Inbox.Messages

for each objMessage in objInbox
if objMessage.Sender = "x@.com" then
strMessage = objMessage.Body
appXL.Workbooks.Open("c:\test.xls&quot
appXL.ActiveSheet.Range("A1&quot.Value = strMessage



end if

next


the above will work in thoery. if you dont want to get into reading messages with CDO then you could try creating an outlook object as follows

set WshShell = CreateObject("WScript.Shell&quot
set outApp = Wscript.CreateObject("Outlook.Application&quot

once you have done that you can probably refer to the outlook vba refernce material to get the methods and properties to retrieve what you want.
regards,
Richard

 

[PerlIsGood]

Here's another method:

thread329-382962 Notorious P.I.G.

 

[sbauerle]

Thanks a lot. That helped me a lot. It works now.