Quantcast
Channel: Enviar archivo desde OutLook
Viewing all articles
Browse latest Browse all 2

Enviar archivo desde OutLook

$
0
0

Hola a todos, tengo una aplicación web de asp.net y quiero permitirle al usuario enviar un correo con archivo que se encuentra dentro de la aplicación web. tengo este código pero no se si funcionara desde el modo cliente. si tienen otra solución les agradecería si la comparten.

 Private Function EnviarArchivo()
        Dim Ruta As String = Server.MapPath("~/Documentos/Documento" & DropDownList1.Text & "" & txtnombre.Text & "" & txtexpediente.Text & ".pdf")

        Dim m_Outlook As Microsoft.Office.Interop.Outlook.Application
        Dim objMail As Microsoft.Office.Interop.Outlook.MailItem

        Dim HTML As String
        HTML = " Escriba Aqui su mensaje"

        Try
            m_Outlook = New Microsoft.Office.Interop.Outlook.Application
            objMail = m_Outlook.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
            objMail.To = ""
            objMail.Subject = "Asunto del Correo"
            objMail.HTMLBody = HTML
            objMail.Importance = Microsoft.Office.Interop.Outlook.OlImportance.olImportanceHigh
            objMail.Attachments.Add(Ruta)

            objMail.Display()

            Return True

        Catch ex As Exception
            Return False

        Finally
            m_Outlook = Nothing
        End Try
    End Function

muchas gracias!.


Raul Ulloa


Viewing all articles
Browse latest Browse all 2

Latest Images

Trending Articles





Latest Images