Eric - following on from my last message I would also like to resolve the
addresses when I create the mail based on the Name or number typed into the
inputbox.  My reason for this is because there can be a number of projects
for the same client and I may not know what the Project number is.

example Client Name = Akzo
3 separate email address relating to 3 different projects

I changed my code to use the recipient.resolve which works only if their is
a unique address.  If there are potentially more than one addresses based on
the information provided then the code as is does not work.

My Current Code is as follows;
Private Sub objMailItem_Open(Cancel As Boolean)
Dim strEmail As String
Dim objRecipient As Recipient
Dim subject As String 'to be used later

With objMailItem

‘My clumsy way of determining if it is a newly created message as I don’t
know the ‘correct event to hook onto.
If .To = "" And .subject = "" Then    
'Input messagebox for Client Name or Project Number
   strEmail = InputBox("Please Input Appropriate Job Number or Client
Name", _
                      "Job Number")
   'If user does not want to send mail to project mailbox (eg Private)
   If strEmail = "" Then Exit Sub
   'Use Project Number or Client Name as recipient address
   Set objRecipient = objMailItem.Recipients.Add(strEmail)
   'Move recipient to CC field
   objRecipient.Type = olCC
   'Resolve the address to find the correct Project email address eg
9999@xxx.com
   objMailItem.Recipients.ResolveAll        
End If
End With
End Sub

I want the resolve function to open the check names dialog box if there is
more than one potential match so I can select the right address.  I do not to
wait until the message is sent for the check names dialog to appear as
ultimately I want to use some of the properties associated with the project
address to generate the subject line (i.e Auto Generate the Job Number and
client name in the subject line…. That will be another post).

Strangely enough I find that if there is more than one match the user input
from the inputbox is displayed in the To field but when I hit send and select
the correct address from Match Name that the correct address will be
displayed in the CC.  

Any other suggestions on how to make better use of the code I have will also
be most welcome.

Sorry for the long post but I hope you can help.

Thanks

Carmi

My Current Code is as follows;
Private Sub objMailItem_Open(Cancel As Boolean)
Dim strEmail As String
Dim objRecipient As Recipient
Dim subject As String 'to be used later

With objMailItem

   If .To = "" And .subject = "" Then
   
   'Input messagebox for Client Name or Project Number
   strEmail = InputBox("Please Input Appropriate Job Number or Client
Name", _
                      "Job Number")
                     
   'If user does not want to send mail to project mailbox
   If strEmail = "" Then Exit Sub
       
   'Use Project Number or Client Name as recipient address
   Set objRecipient = objMailItem.Recipients.Add(strEmail)
   
   'Move recipient to CC field
   objRecipient.Type = olCC
   
   'Resolve the address to find the correct Project email address eg
9999@xxx.com
   If objMailItem.Recipients.ResolveAll = False Then
       MsgBox "Please click on Check Name"
   End If
       
End If

End With

End Sub

if there are options.  Strangly if I use the Akzo example where there is
more than one project email address resolve will do nothing and 'Akzo' will
display in the