Hi deepak
Use following code
Import Outlook
'''Add reference to outlook (project-addreferences-(select com-- Microsoft
outlook)
Dim OlApp As Outlook.Application
Dim Inbox As Outlook.MAPIFolder
Dim InboxItems As Outlook.Items
Dim Mailobject As Object
Dim objattachments, objAttach
OlApp = Server.CreateObject("Outlook.Application")
Inbox =
OlApp.GetNamespace("Mapi").GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
' Inbox.logon("hmedikon", "winter!23", True, True)
InboxItems = Inbox.Items
For Each Mailobject In InboxItems
If Mailobject.UnRead Then
Response.Write("<BR>")
Response.Write(Mailobject.body())
End If
Next
above mentioned code just write body of mail in browser,use some excel
functionality to output it to excel file.
Just for your reference i have given the code
*NOTE : set identity impersonate to true in web.config file of the
application*
**
let me know if you get any security issues.
On Wed, Jan 28, 2009 at 4:09 PM, deepu <[email protected]> wrote:
>
> Hi All
>
> This is Deepak
> i am working as S/W in MNC I need a help from any one
>
> i want to copy all my email from outlool inbox into excel file can any
> one please let me know the code in vbscript or javascript
>
> Please help me ASAP
>
> Thanks in advance
>
> Thanks
> Deepak
>
--
Thanks & Regards
Harika
http://harikaworks.blogspot.com
