Adjuntar PDF Outlook

[pier_cajo]

Buenas Tardes Compañeros,
Tengo una consulta haber si me dan una manito.
necesito que desde una aplicacion vb.net generar un archivo pdf y luego levantar un correo outlook adjuntando el archivo generado.

Por favor si alguien tiene alguna idea.

Muchas gracias.

[jhonjairo00]

Hola

No sé si lo que quieres crear es un PDF cómo un reporte en CrystalReports o directamente desde algún texto, te dejo un par de links uno usando Crystal y el otro usando PDFSharp

Con Crystal
http://eperedo.comze.com/2009/09/personalizar-crystal-reports/

Con PDFSharp
http://copstone.com/2010/02/como-crear-un-archivo-pdf/

Igual para crear archivos PDF hay más maneras, no es sino que lo busques en Google y ya, ahora después de tener el archivo creado lo puedes enviar usando Outlook directamente de VB.Net, para lo cual deberás agregar las referencias de Microsoft Outlook 10.0 o 11.0 o 12.0 (según la versión de Office) y usar algo parecido a esto

Código vb:

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 = "Asunto del mensaje"
        oMsg.Body = "Cuerpo del mensaje" 
 
        ' Reemplazar con una dirección válida de correo electrónico. 
        oMsg.To = "[email protected]"
 
        ' Agregar un archivo adjunto 
        ' Reemplazar con una ruta de acceso válida del archivo adjunto. 
        Dim sSource As String = "C:\PathArchivo\Archivo.pdf"
        'Reemplazar con el nombre del archivo adjunto 
        Dim sDisplayName As String = "Archivo.pdf"
 
        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()
 
        ' Limpiar 
        oApp = Nothing
        oMsg = Nothing
        oAttach = Nothing
        oAttachs = Nothing
 

Espero te sirva y que no sea muy tarde ...

Saludos