DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

VB6 - Look up email address from outlook address book?

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Nov 2006

Posts: 848

Reputation: QVeen72 is on a distinguished road

Solved Threads: 120

QVeen72

Offline

Practically a Posting Shark

Re: VB6 - Look up email address from outlook address book?

#11

Jul 26th, 2007

Hi tgif,

use this code:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Dim TItem As ListItem
If lvw.SelectedItem.text <> "" Then
  Set TItem = lvw.SelectedItem
  EMailID=TItem.SubItems(2)
Else
  MsgBox "No Item Selected From list"
End If
Dim TItem As ListItem
If lvw.SelectedItem.text <> "" Then
  Set TItem = lvw.SelectedItem
  EMailID=TItem.SubItems(2)
Else
  MsgBox "No Item Selected From list"
End If

Regards
Veena

•

Join Date: Jul 2007

Posts: 113

Reputation: tgifgemini is an unknown quantity at this point

Solved Threads: 0

tgifgemini tgifgemini is offline

Offline

Junior Poster

Re: VB6 - Look up email address from outlook address book?

#12

Jul 26th, 2007

Good morning Veena.
Thanks for your numerous contributions. I put the codes below inside my form load() module, because I want the listview control to get populated on form load then I can select and email from the list then click the sendEmail button.
However, when I tried to compile, I get Error msg: Run-Time error 380 -Invalid property value:

This line of code generates the error:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
lvw.ListItems(lvw.ListItems.Count).SubItems(1) = OutlookAddressEntry.Address
lvw.ListItems(lvw.ListItems.Count).SubItems(1) = OutlookAddressEntry.Address

Below is my form load module:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub Form_Load()
 
Set OutlookApp = New Outlook.Application
Set OutlookMailItem = OutlookApp.CreateItem(olMailItem)
Set OutlookNameSpace = OutlookApp.GetNamespace("MAPI")
 
 
For Each OutlookAddressList In OutlookNameSpace.AddressLists
    For Each OutlookAddressEntry In OutlookAddressList.AddressEntries
        lvw.ListItems.Add , , OutlookAddressEntry.Name
        lvw.ListItems(lvw.ListItems.Count).SubItems(1) = OutlookAddressEntry.Address
        lvw.ListItems(lvw.ListItems.Count).SubItems(2) = OutlookAddressEntry.ID
        lvw.ListItems(lvw.ListItems.Count).Tag = OutlookAddressEntry.ID
    Next
Next
End Sub
Private Sub Form_Load()

Set OutlookApp = New Outlook.Application
Set OutlookMailItem = OutlookApp.CreateItem(olMailItem)
Set OutlookNameSpace = OutlookApp.GetNamespace("MAPI")


For Each OutlookAddressList In OutlookNameSpace.AddressLists
    For Each OutlookAddressEntry In OutlookAddressList.AddressEntries
        lvw.ListItems.Add , , OutlookAddressEntry.Name
        lvw.ListItems(lvw.ListItems.Count).SubItems(1) = OutlookAddressEntry.Address
        lvw.ListItems(lvw.ListItems.Count).SubItems(2) = OutlookAddressEntry.ID
        lvw.ListItems(lvw.ListItems.Count).Tag = OutlookAddressEntry.ID
    Next
Next
End Sub

Thanks,
tgifgemini

•

Join Date: Nov 2006

Posts: 848

Reputation: QVeen72 is on a distinguished road

Solved Threads: 120

QVeen72

Offline

Practically a Posting Shark

Re: VB6 - Look up email address from outlook address book?

#13

Jul 27th, 2007

Hi,

Just change the code:
Set lvw.ReportType = lvwReport

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Dim X As ListItem
 
Set OutlookApp = New Outlook.Application
Set OutlookMailItem = OutlookApp.CreateItem(olMailItem)
Set OutlookNameSpace = OutlookApp.GetNamespace("MAPI")
 
 
For Each OutlookAddressList In OutlookNameSpace.AddressLists
    For Each OutlookAddressEntry In OutlookAddressList.AddressEntries
       set X= lvw.ListItems.Add( , , OutlookAddressEntry.Name)
        X.SubItems(1) = OutlookAddressEntry.Address
        X.SubItems(2) = OutlookAddressEntry.ID
        X.Tag = OutlookAddressEntry.ID
    Next
Next
Dim X As ListItem

Set OutlookApp = New Outlook.Application
Set OutlookMailItem = OutlookApp.CreateItem(olMailItem)
Set OutlookNameSpace = OutlookApp.GetNamespace("MAPI")


For Each OutlookAddressList In OutlookNameSpace.AddressLists
    For Each OutlookAddressEntry In OutlookAddressList.AddressEntries
       set X= lvw.ListItems.Add( , , OutlookAddressEntry.Name)
        X.SubItems(1) = OutlookAddressEntry.Address
        X.SubItems(2) = OutlookAddressEntry.ID
        X.Tag = OutlookAddressEntry.ID
    Next
Next

Regards
Veena

•

Join Date: Jul 2007

Posts: 113

Reputation: tgifgemini is an unknown quantity at this point

Solved Threads: 0

tgifgemini tgifgemini is offline

Offline

Junior Poster

Re: VB6 - Look up email address from outlook address book?

#14

Jul 27th, 2007

Good morning Veena,
how are you doing today? I really do appreciate all your assistance. I plugged in recent code you you gave me and I am getting same "RunTime error 380 - Invalid property value". I am going nuts with this Microsoft stuff that is not telling you what the actual problem is.
And I don't know where else to look.

Thanks.
tgifgemini

•

Join Date: Jul 2007

Posts: 113

Reputation: tgifgemini is an unknown quantity at this point

Solved Threads: 0

tgifgemini tgifgemini is offline

Offline

Junior Poster

Re: VB6 - Look up email address from outlook address book?

#15

Jul 27th, 2007

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
x.subItems(1) = OutlookAddressEntry.Address
x.subItems(1) = OutlookAddressEntry.Address

and a compile error: "Method or Data member not found" on this line: [Set lvw.ReportType = lvwReport[/code]I am going nuts with this Microsoft stuff that is not telling you what the actual problem is.
And I don't know where else to look.

Question: Shouldn't I first Dimension "lvw" as something before the 'set lvw.ReportType = lvwReport' statement?

Thanks.
tgifgemini

•

Join Date: Jul 2007

Posts: 113

Reputation: tgifgemini is an unknown quantity at this point

Solved Threads: 0

tgifgemini tgifgemini is offline

Offline

Junior Poster

Re: VB6 - Look up email address from outlook address book?

#16

Jul 27th, 2007

Veena,
Actually, I went ahead and created ListView header columns which I didn't have initially, therefore since I want to display 3 items in the columns, it didn't find any columns to append the items.

This is what I did:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
'create columns
lvw.ColumnHeaders.Clear
lvw.ColumnHeaders.Add , ,"Address"
lvw.ColumnHeaders.Add , ,"ID"
'create columns
lvw.ColumnHeaders.Clear
lvw.ColumnHeaders.Add , ,"Address"
lvw.ColumnHeaders.Add , ,"ID"

And it populated the ListView with the the physical names "gift, xtian" etc.
So I used the first subscript(1) as the address and it worked like magic.
Thanks.
You're a true trooper for holding my hand all along.
tgifgemini.

•

Join Date: Nov 2006

Posts: 848

Reputation: QVeen72 is on a distinguished road

Solved Threads: 120

QVeen72

Offline

Practically a Posting Shark

Re: VB6 - Look up email address from outlook address book?

#17

Jul 28th, 2007

Hi,

OK, its:

lvw.view=3

And u have to add column headers..
Write this code b4 populating the list..

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
      Dim lvwColumn As ColumnHeader
 
     lvwColumn = New ColumnHeader()
     lvwColumn.Text = "Name"   
     lvw.Columns.Add(lvwColumn)
 
     lvwColumn = New ColumnHeader()
     lvwColumn.Text = "Address"   
     lvw.Columns.Add(lvwColumn)
 
     lvwColumn = New ColumnHeader()
     lvwColumn.Text = "ID"   
     lvw.Columns.Add(lvwColumn)
      Dim lvwColumn As ColumnHeader

     lvwColumn = New ColumnHeader()
     lvwColumn.Text = "Name"   
     lvw.Columns.Add(lvwColumn)
 
     lvwColumn = New ColumnHeader()
     lvwColumn.Text = "Address"   
     lvw.Columns.Add(lvwColumn)

     lvwColumn = New ColumnHeader()
     lvwColumn.Text = "ID"   
     lvw.Columns.Add(lvwColumn)

Sorry for the inconvinience..

Regards
Veena

•

Join Date: Jun 2007

Posts: 166

Reputation: AV Manoharan is an unknown quantity at this point

Solved Threads: 9

AV Manoharan AV Manoharan is offline

Offline

Junior Poster

Re: VB6 - Look up email address from outlook address book?

#18

Jul 28th, 2007

Hello All.

You people are waisting your time and energy. And I can't understand, why people gives in this thread so many type of codes, telling one way or the other I am soory, please change to this, please omit that etc. without first understanding the basic of it or trying the code themselves! If you have heeded to my advice in this forum by telling gemini that the answer is NO as well as Yes.

I will put it briefly below. Think about it and answer me.

First of all, if you are thinking Outlook Express, just forget it. The only three ways of integrating with Outlook Express are (and this is just my guessing) by paying Microsoft a lot of money and by giving them a really good reason to why you want to do that, or by hooking in through the encryption-entry, or by creating a proper hook and hacking your way in there.

Could you make out any thing from the bold entries above?

Happy Programming

AV Manoharan

•

Join Date: Jul 2007

Posts: 113

Reputation: tgifgemini is an unknown quantity at this point

Solved Threads: 0

tgifgemini tgifgemini is offline

Offline

Junior Poster

Re: VB6 - Look up email address from outlook address book?

#19

Jul 30th, 2007

Hi AV Manoharan,
I don't know what you are babbling about, but Veena have correctly answered my question, so be cool.
tgifgemini.

•

Join Date: Jun 2007

Posts: 166

Reputation: AV Manoharan is an unknown quantity at this point

Solved Threads: 9

AV Manoharan AV Manoharan is offline

Offline

Junior Poster

Re: VB6 - Look up email address from outlook address book?

#20

Jul 31st, 2007

•

Originally Posted by tgifgemini

Hi AV Manoharan,
I don't know what you are babbling about, but Veena have correctly answered my question, so be cool.
tgifgemini.

Correctly answered what? Getting email address from the outlook express? The email addresses stored in the outlook express are encrypted ! and you and Veena Could hack it and decrypt it. Fantastic Dear.

regards
AV Manoharan