Visual Basic.NET - descargar archivo de un mensaje del outlook

¿Alguien sabe como descargar el archivo adjunto de un mensaje del outlook? Consigo sacar toda la información del mensaje, excepto el archivo. Lo hago con el siguiente código. A ver si alguien me puede ayudar.
Un saludo

Dim oMsg As Outlook.MailItem
Dim i As Integer

For i = 1 To oItems.Count
oMsg = oItems.Item(i)

MessageBox.Show(i, "MENSAJE")
MessageBox.Show(oMsg.SenderName, "SENDERNAME")
MessageBox.Show(oMsg.Subject, "SUBJECT")
MessageBox.Show(oMsg.ReceivedTime, "RECEIVEDTIME")
MessageBox.Show(oMsg.Body, "BODY")
MessageBox.Show(oMsg.CC, "CC")
next

esto te servira

Dim Atmt As Outlook.Attachment
Dim filename As String
For Each Atmt In oItemCorreo.Item(x).Attachments
filename = "C:\Email Attachments\" & Atmt.FileName
Atmt.SaveAsFile(filename)
Next Atmt

yo tengo un problema por si conoces al respecto
cada vez que accesso a outlook
me sale un mensaje
que un programa esta tratando de accesar
outlook, sabes como eliminar ese mensaje

saludos

Cristian