Dim oApp As Outlook._Application
oApp = New Outlook.Application
' Crear un nuevo elemento de correo.
Dim oMsg As Outlook._MailItem
oMsg = oApp.CreateItem(Outlook.OlItemType.olMailItem)
oMsg.Subject = "Enviar datos adjuntos utilizando OOM en Visual Basic .NET"
oMsg.Body = "Hola a todos" & vbCrLf & vbCrLf
' TODO: Reemplazar con una dirección válida de correo electrónico.
oMsg.To = "
[email protected]"
' Agregar un archivo adjunto ' TODO: Reemplazar con una ruta de acceso válida del archivo adjunto.
Dim sSource As String = "C:\Temp\Hola.txt" ' TODO: Reemplazar con el nombre del archivo adjunto
Dim sDisplayName As String = "Hola.txt"
Dim sBodyLen As String = oMsg.Body.Length
Dim oAttachs As Outlook.Attachments = oMsg.Attachments
Dim oAttach As Outlook.Attachment
oAttach = oAttachs.Add(sSource, , sBodyLen + 1, sDisplayName)
' Enviar
oMsg.Send()
Asi es como se envia archivos adjuntos...