InfoPath Dev

I'm currently working on an Infopath form where I need to pop up an outlook address book and then populate a text box with an email address that corresponds to the name selected from the address book. I have the book popping up but haven't had any luck grabbing the email address. I can get the name, but not the email address. Anyone have any idea how to go about doing this? Thanks in advance for any suggestions.

Hi gds, Welcome to the forum!
If you provide the code how you are poping up outlook address book and how you are getting Name from it, we can try and check how we will be able to get the email address from that.
If the code is way too big you can email me.


Agni
InfoPathDev India

Agni, here is the code snippet. It currently populates a text box with the name from the address book, but not the email.

Sub AppSubsystemOwnersBtn_OnClick(eventObj)
Dim I
Dim strRecip
Dim Owners

On Error Resume Next
strDialogCaption = "Select " & strUDFieldName
Set objCDO = CreateObject("MAPI.Session")
'Piggyback on existing Outlook session
objCDO.Logon "", "", False, False, 0
If Err Then
MsgBox "Could not establish CDO session!", vbCritical
End If
Set Recips = objCDO.AddressBook(Nothing, _
strDialogCaption, False, True, 1, strShortName, "", "", 0)
'These recipients have been resolved by forceResolution argument above
If Not Err Then
For i = 1 To Recips.Count
strRecip = strRecip & Recips(i).Name & "; "
Next
If strRecip <> "" Then
strRecip = Left(strRecip, Len(strRecip)-2)
strUDFieldName = strRecip

set Owners = XDocument.DOM.selectSingleNode("my:myFields/my:AppSubsystemOwners")
Owners.text = strRecip
End If
End If

objCDO.Logoff

End Sub

Sorry about that, this will be easier to read:

Sub AppSubsystemOwnersBtn_OnClick(eventObj)
    Dim I
    Dim strRecip
    Dim Owners
    
    'On Error Resume Next
    strDialogCaption = "Select " & strUDFieldName
    Set objCDO = CreateObject("MAPI.Session")
    
    'Piggyback on existing Outlook session
    objCDO.Logon "", "", False, False, 0
    
    If Err Then
        MsgBox "Could not establish CDO session!", vbCritical
    End If
    
     Set Recips = objCDO.AddressBook(Nothing, _
        strDialogCaption, False, True, 1, strShortName, "", "", 0)
    'These recipients have been resolved by forceResolution argument above
   
     If Not Err Then
        For i = 1 To Recips.Count
            strRecip = strRecip & Recips(i).Name & "; "
        Next
        
            If strRecip <> "" Then
            strRecip = Left(strRecip, Len(strRecip)-2)
            strUDFieldName = strRecip
            
            set Owners = XDocument.DOM.selectSingleNode("my:myFields/my:AppSubsystemOwners")
			Owners.text = strRecip
        End If
    End If
    
    objCDO.Logoff
    
End Sub

Dear gds/Agni,
I'am trying to solve the same problem, trying to retrieve the mail address and 'browsing' the outlook address book, below code / question seems not to be answered/finalized, did you succeed in this??

I'am getting an error concerning the MAPI control, is it an external ActiveX needed to be registered?

Hope you can help,

BR,
SDD

quote:

---

Originally posted by gds140

Sorry about that, this will be easier to read:

Sub AppSubsystemOwnersBtn_OnClick(eventObj)
    Dim I
    Dim strRecip
    Dim Owners
    
    'On Error Resume Next
    strDialogCaption = "Select " & strUDFieldName
    Set objCDO = CreateObject("MAPI.Session")
    
    'Piggyback on existing Outlook session
    objCDO.Logon "", "", False, False, 0
    
    If Err Then
        MsgBox "Could not establish CDO session!", vbCritical
    End If
    
     Set Recips = objCDO.AddressBook(Nothing, _
        strDialogCaption, False, True, 1, strShortName, "", "", 0)
    'These recipients have been resolved by forceResolution argument above
   
     If Not Err Then
        For i = 1 To Recips.Count
            strRecip = strRecip & Recips(i).Name & "; "
        Next
        
            If strRecip <> "" Then
            strRecip = Left(strRecip, Len(strRecip)-2)
            strUDFieldName = strRecip
            
            set Owners = XDocument.DOM.selectSingleNode("my:myFields/my:AppSubsystemOwners")
			Owners.text = strRecip
        End If
    End If
    
    objCDO.Logoff
    
End Sub

---

Hey all,

i need to do the same using C#. It should be possible for the user to select an email address from the addressbook and this address should be written into a textfield on my form.

Can someone help me with this.

Thx