Dim outlookApp As New Microsoft.Office.Interop.Outlook.Application()
Dim itemMsg As Microsoft.Office.Interop.Outlook.MailItem = Nothing
itemMsg = outlookApp.CreateItemFromTemplate(Path)
Dim Recipients As String = ""
        For i = 1 To itemMsg.Recipients.Count
            If i = 1 Then Recipients = itemMsg.Recipients.Item(i).Address Else Recipients += itemMsg.Recipients.Item(i).Address
        Next
itemTo = Recipients
Dim ReplyRecipients As String = ""
        For i = 1 To itemMsg.ReplyRecipients.Count
            If i = 1 Then ReplyRecipients = itemMsg.ReplyRecipients.Item(i).Address Else ReplyRecipients += itemMsg.ReplyRecipients.Item(i).Address
        Next
itemCC = ReplyRecipients
itemBCC = itemMsg.BCC