Use the Recipients collection of the item and add each Recipient object one
at a time. To set them as To or Cc use Recipient.Type = olTo or
Recipient.Type = olCC.
When you add a Recipient object you can then resolve it and test for
success:
Dim oRecip As Outlook.Recipient
Dim colRecips As Outlook.Recipients
Set colRecips = item.Recipients
Set oRecip = colRecips.Add("some email address")
If Not (oRecip Is Nothing) Then
oRecip.Type = olTo
oRecip.Resolve
If Not oRecip.Resolved Then
MsgBox "Could not resolve recipient " & "some email address"
End If
End If

Signature
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm
> Hi
>
[quoted text clipped - 12 lines]
>
> Sam
SAm - 27 Aug 2007 19:40 GMT
Thanks,
I used the split function and a for loop to go through all of the email
addresses. now it works fine.
sam
> Use the Recipients collection of the item and add each Recipient object one
> at a time. To set them as To or Cc use Recipient.Type = olTo or
[quoted text clipped - 32 lines]
> >
> > Sam