Private Sub AddBCC() Dim emailList As New List(Of String) Dim OutlookMessage As Outlook.MailItem Dim AppOutlook As New Outlook.Application OutlookMessage = AppOutlook.CreateItem(Outlook.OlItemType.olMailItem) For Each row As DataGridViewRow In dgLoad.Rows If row.Cells(0).Value = True Then emailList.Add(row.Cells(6).Value) End If Next OutlookMessage.Subject = "Testing all bcc e-mail" OutlookMessage.Display(True) OutlookMessage = Nothing AppOutlook = Nothing End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)