Que tal muchachos , lo que quiero hacer es leer los correos electronicos del outlook, el cual ya logre hacerlo pero nose como quitar este tedioso mensaje
Cita: un programa intenta obtener acceso a direcciones de correo de Outlook.............
Adjunto mi codigo
Código vb:
Ver originalProtected Sub obtenerContactos()
Dim tempApp As Outlook.Application
Dim tempInbox As Outlook.MAPIFolder
Dim InboxItems As Outlook.Items
'Dim objattachments, objAttach
tempApp = CreateObject("Outlook.Application")
tempInbox = tempApp.GetNamespace("Mapi").GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
InboxItems = tempInbox.Items
Dim dtCorreos As New DataTable()
dtCorreos.Columns.Add("Para")
dtCorreos.Columns.Add("Asunto")
dtCorreos.Columns.Add("Contenido")
Dim i As Integer = 0
For Each mail As Outlook.MailItem In InboxItems
If i = 2 Then
Exit For
End If
dtCorreos.Rows.Add(mail.Sender, mail.To, mail.Body)
i += 1
Next
InboxItems = Nothing
tempInbox = Nothing
tempApp = Nothing
gvOutlook.DataSource = dtCorreos
End Sub