retrieve email address from OL

[DMT Dave]

Hi Guy's this one is a bit of a long shot, i am probably miles away trying this,



Is there a way i can retrieve outlook email addresses, then further more if there are 7 contacts in outlook contacts for a specific company and add a criteria such as:

Joe Bloggs joe@companyname.com
Fred Bloggs fred@companyname.com

Dim PartName as string

PartName = "company" so i can view contacts in a msgbox that is any email address from companyname.com

This is what i have so far but i am probably incorrect!

 Dim myOutlook As Outlook.Application
   Dim myItems As ContactItem
    Dim msgBody As String
    Dim i As Integer
    
   Set myOutlook = CreateObject("Outlook.Application")
   Set myItems = myOutlook.CreateItem(olContactItem)
   With myItems
   For i = 1 To myItems.Email1Address
   msgBody = msgBody & myItems.Email1Address
   Next i
   MsgBox (msgBody)
    
    End With

[Gicu]

Totally not tested but you might want to "validate" the email using the InStr function:

Dim myOutlook As Outlook.Application
   Dim myItems As ContactItem
    Dim msgBody As String
    Dim i As Integer 
   dim sCompany as string
'set your variable from your form or recordset
sCompany=Me.Company
    
   Set myOutlook = CreateObject("Outlook.Application")
   Set myItems = myOutlook.CreateItem(olContactItem)
   With myItems
   For i = 1 To myItems.Email1Address
      If InStr(myItems.EmailAddress,sCompany)>0 then msgBody = msgBody & myItems.Email1Address
   Next i
   MsgBox (msgBody)
    
    End With

Cheers,
Vlad

[DMT Dave]

Hi Vlad, thank you, although you said not tried, i am unsure if this is the wrong method of retrieving email addresses from OL, it comes up with a debug run time error 13 type mismatch, I have used a customer name that is in OL contacts to replace sCompany but removed from the code and replaced with bloggs so that customer name isn't revelaed

Dim myOutlook As Outlook.Application
   Dim myItems As ContactItem
    Dim msgBody As String
    Dim i As Integer
   Dim sCompany As String
'set your variable from your form or recordset
sCompany = "bloggs"
    
   Set myOutlook = CreateObject("Outlook.Application")
   Set myItems = myOutlook.CreateItem(olContactItem)
   With myItems
   For i = 1 To myItems.Email1Address "debug"
      If InStr(myItems.EmailAddress, sCompany) > 0 Then msgBody = msgBody & myItems.Email1Address
   Next i
   MsgBox (msgBody)
    
    End With
    

[Gicu]

Hi Dave,
Have a look at these links:
http://www.gregthatcher.com/Scripts/...fContacts.aspx
https://www.devhut.net/2018/12/09/vb...t-information/
Cheers,
Vlad