Interfacing with MicroSoft Outlook through vb

[eswhite]

Does anyone know where I can look to find information on how to print a range of emails from Microsoft Outlook pst file. I would like to do something
quick in VB.

Thanks,
Eric

 

[randy4126]

Use your lbect browser and that will give the methods available in MAPI you can to print your email out

Randy

 

[Phathi]

Hi,

Here's a proc :


Sub GetContactList()

On Error GoTo Test_Error

Dim oOutlook As Outlook.Application
Dim oNameSpace As NameSpace
Dim oContactFolder As Object

Set oOutlook = GetObject(, "Outlook.Application&quot

Set oNameSpace = oOutlook.GetNamespace("MAPI&quot

Set oContactFolder = oNameSpace.GetDefaultFolder(olFolderContacts)

For Each oOutLookAdr In oContactFolder.Item
List1.AddItem oOutLookAdr.FullName & " - " & _
oOutLookAdr.Email1Address
Next

Exit Sub

Test_Error:
Select Case Err
Case 429
' If Outlook isn't opened already
'open a new session.
Set oOutlook = New Outlook.Application
Resume Next
Case Else
MsgBox Err.Description,vbExclamation
End Select

End Sub


Then Run it :


Private Sub Command1_Click()

' This will add all contacts from the Outlook contact database
' in the ListBox
GetContactList

End Sub


You'll obviusly have to create references to ms outlook,listboxes and stuff

Follow the white rabbit

http://www.microsoft.com/officedev/articles/Opg/005/005.htm#PG005C1

to the ms outlook objects def'ns.

Ciao
Phathi >:O>