Enviar Emails con Attachments de una URL
Publicado por Anac (2 intervenciones) el 17/04/2008 09:34:10
Saludos, tengo un problemilla y a ver si me podeis echar una mano,
El tema es que tengo una aplicación en la que los usuarios deben enviar una serie de attachments por medio del Outlook a los cuales solo tienen acceso via http.
Por ahora sé enviar los correos con el attachment si este está en local, pero si está en el servidor no.
Por ahora lo tengo así:
Module Module1
Sub Main()
' Se crea primero la aplicación Outlook.
Dim oApp As Outlook._Application
oApp = New Outlook.Application
'Se Crea un nuevo elemento de correo.
Dim oMsg As Outlook._MailItem
oMsg = oApp.CreateItem(Outlook.OlItemType.olMailItem)
oMsg.Subject = "Enviar datos adjuntos"
oMsg.Body = "Mirar Attachment" & vbCr & vbCr
' dirección válida de correo electrónico.
oMsg.To = "[email protected]"
' Agregar un archivo adjunto primero la URL donde se encuentra:
Dim sSource As String ="http://vitontaa/cbp/PPS66.nsf/ea69e3636de/$FILE/INFORME.PDF"
'Reemplazar con el nombre del archivo adjunto
Dim sDisplayName As String = "INFORME.PDF"
Dim sBodyLen As String = oMsg.Body.Length
Dim oAttachs As Outlook.Attachments = oMsg.Attachments
Dim oAttach As Outlook.Attachment
oAttach = oAttachs.Add(sSource, , , sDisplayName)
' Enviar
oMsg.Send()
' Limpiar tras enviar
oApp = Nothing
oMsg = Nothing
oAttach = Nothing
oAttachs = Nothing
End Sub
End Module
El tema es que me dice nombre de directorio o archivo no válido por lo que no me localiza el attachment con la URL. En cambio si pongo un path de un archivo local, me lo envía de manera correcta.
¿Alguna sugerencia?
El tema es que tengo una aplicación en la que los usuarios deben enviar una serie de attachments por medio del Outlook a los cuales solo tienen acceso via http.
Por ahora sé enviar los correos con el attachment si este está en local, pero si está en el servidor no.
Por ahora lo tengo así:
Module Module1
Sub Main()
' Se crea primero la aplicación Outlook.
Dim oApp As Outlook._Application
oApp = New Outlook.Application
'Se Crea un nuevo elemento de correo.
Dim oMsg As Outlook._MailItem
oMsg = oApp.CreateItem(Outlook.OlItemType.olMailItem)
oMsg.Subject = "Enviar datos adjuntos"
oMsg.Body = "Mirar Attachment" & vbCr & vbCr
' dirección válida de correo electrónico.
oMsg.To = "[email protected]"
' Agregar un archivo adjunto primero la URL donde se encuentra:
Dim sSource As String ="http://vitontaa/cbp/PPS66.nsf/ea69e3636de/$FILE/INFORME.PDF"
'Reemplazar con el nombre del archivo adjunto
Dim sDisplayName As String = "INFORME.PDF"
Dim sBodyLen As String = oMsg.Body.Length
Dim oAttachs As Outlook.Attachments = oMsg.Attachments
Dim oAttach As Outlook.Attachment
oAttach = oAttachs.Add(sSource, , , sDisplayName)
' Enviar
oMsg.Send()
' Limpiar tras enviar
oApp = Nothing
oMsg = Nothing
oAttach = Nothing
oAttachs = Nothing
End Sub
End Module
El tema es que me dice nombre de directorio o archivo no válido por lo que no me localiza el attachment con la URL. En cambio si pongo un path de un archivo local, me lo envía de manera correcta.
¿Alguna sugerencia?
Valora esta pregunta


0