Indeciso conCrystal Reports
Hola, soy un programador de VB y Foxpro. Necesito hacer envío de correos electrónicos a clientes con cotizaciones de productos, estos clientes están en una base de datos de access 2002 y pienso hacer la aplicación en VB y generar el formato de las cotizaciones con Crystal Reports. Los usuarios podrán escoger una lista de clientes y enviar un correo electrónico a todos ellos con solo apretar un botón. La información incluida en el correo sera un attachment en word.
Lo que pienso hacer es automatizar el MS Outlook y mandar como un attach un documento word que seria el resultado de exportar un reporte de crystal reports a este formato. ¿Es esta una buena forma de hacerlo? Cualquier sugerencia me sera muy útil, pues mi experiencia tanto en crystal reports como en envío automático de emails es nula.
Muchas gracias
Lester
Lo que pienso hacer es automatizar el MS Outlook y mandar como un attach un documento word que seria el resultado de exportar un reporte de crystal reports a este formato. ¿Es esta una buena forma de hacerlo? Cualquier sugerencia me sera muy útil, pues mi experiencia tanto en crystal reports como en envío automático de emails es nula.
Muchas gracias
Lester
1 Respuesta
Respuesta de losbeaves
1
Si es buena idea y todo se puede hacer desde código.
Antes debes haber creado el documento que quieras añadir al correo con la exportación de los datos de Crystal a Word.
Te mando un ejemplo de como enviar 1 correo
Sub EnviarCorreo(Direccion As String, Optional ArchivoAjunto As String)
'abre el outloock
Dim myOLApp As New Outlook.Application
Dim myOLItem As Outlook.MailItem
Set myOLItem = myOLApp.CreateItem(olMailItem)
With myOLItem
.To = Direccion
If Trim(ArchivoAjunto) <> "" Then
.Attachments = ArchivoAjunto
End If
End With
'muestra el formulario de envío
myOLItem.Display
Set myOLItem = Nothing
'Si deseas enviar el e-mail sin ver el formulario
'donde se escriben los datos solamente escribe esto
'los datos se enviaran automáticamente
'myOLItem. Send
Exit Sub
End Sub
Antes debes haber creado el documento que quieras añadir al correo con la exportación de los datos de Crystal a Word.
Te mando un ejemplo de como enviar 1 correo
Sub EnviarCorreo(Direccion As String, Optional ArchivoAjunto As String)
'abre el outloock
Dim myOLApp As New Outlook.Application
Dim myOLItem As Outlook.MailItem
Set myOLItem = myOLApp.CreateItem(olMailItem)
With myOLItem
.To = Direccion
If Trim(ArchivoAjunto) <> "" Then
.Attachments = ArchivoAjunto
End If
End With
'muestra el formulario de envío
myOLItem.Display
Set myOLItem = Nothing
'Si deseas enviar el e-mail sin ver el formulario
'donde se escriben los datos solamente escribe esto
'los datos se enviaran automáticamente
'myOLItem. Send
Exit Sub
End Sub
