Làm cách nào lấy địa chỉ email trong AddressBook, trong chương trình Outlook Express

[shit]

Chào các bạn
Mình muốn viết 1 chương trình để lấy địa chỉ email trong Outlook Express bằng VB6.
vậy bạn nào đã làm rồi hay biết cách làm thì xin chỉ giáo cho mình với.
Xin cám ơn nhiều.
Cám ơn vì đã đọc tin.

[quatban]

Public Sub ProcessInbox()
Dim oOutlook As Outlook.Application
Dim oNs As Outlook.NameSpace
Dim oFldr As Outlook.MAPIFolder
Dim oAttachments As Outlook.Attachments
Dim oAttachment As Outlook.Attachment
Dim iMsgCount As Integer

Dim oMessage As Outlook.MailItem

Dim iCtr As Long, iAttachCnt As Long

Dim sFileNames As String
Dim aFileNames() As String


'get reference to inbox
Set oOutlook = New Outlook.Application
Set oNs = oOutlook.GetNamespace("MAPI")
Set oFldr = oNs.GetDefaultFolder(olFolderInbox)
Debug.Print "Total Items: "; oFldr.Items.Count
Debug.Print "Total Unread items = " & oFldr.UnReadItemCount


For Each oMessage In oFldr.Items

With oMessage
'basic info about message
Debug.Print .To
Debug.Print .CC
Debug.Print .Subject
Debug.Print .Body
If .UnRead Then
Debug.Print "Message has not been read"
Else
Debug.Print "Message has been read"
End If
iMsgCount = iMsgCount + 1
'Lưu email body xuống harddisk
.SaveAs "C:\message" & iMsgCount & ".txt", olTXT

'Lưu file đính kèm
With oMessage.Attachments
iAttachCnt = .Count
If iAttachCnt > 0 Then
For iCtr = 1 To iAttachCnt

.Item(iCtr).SaveAsFile "C:\" & .Item(iCtr).FileName

Next iCtr
End If
End With
End With
DoEvents

Next oMessage


Set oAttachment = Nothing
Set oAttachments = Nothing
Set oMessage = Nothing
Set oFldr = Nothing
Set oNs = Nothing
Set oOutlook = Nothing

End Sub

[shit]

Chao quatban
Rất cảm ơn vì bài trả lời của bạn.
tuy nhiên mình cần liên lạc với Outlook Express kia.
Mình có thể import email từ Outlook Express sang Outlook nhưng như vậy thì mắc công quá vì số lượng email của mình là cực kỳ nhiều.
Bạn có giải pháp nào không.
Xin cám ơn bạn rất nhiều.

[White_Rose]

Cho mình hỏi một câu. File để reference đến Outlook là gì vậy?

To ****: bạn đã thử chưa?

[shit]

Chao Rose
Để sử dụng được thư viện của Outlook thì máy bạn phải có cài Outlook
Sau đó trong VB bạn chọn mục Microsoft Outlook 9.0 Object Library trong menu Reference (mình cài Office 97).
Hi vọng nó có ích cho bạn.

[Nicky]

U wanna Write a Virus...Rite ??

[Old Shark]

!!! Vô cùng thương tiếc các nạn nhân của vụ hoả hoạn ở Intershop chiều 29-10. !!!
------------------------------------------------------------------------

No, a worm...

[shit]

Các bạn chưa thấy 1 chương trình quản lý nào mà lấy email từ Outlook Express à ?

[quaitieutu]

Có nhưng viết bằng Vb thì chưa có coi được code
Bạn có không

[Nicky]

Bác nào có cho bà con xem học hỏi với !

[vuminhphan]

to ****: cái nick kì quá, bạn có thể đổi nick không?

sorry...