Enviar correos con combinaciones y archivos adjuntos

[fgamez002]

Hola

Alguien sabe si se puede enviar un mensaje de correo electronico con combinaciones y archivos adjuntos?
Algo parecido a la correspondencia de word en la que se puede hacer un mensaje de correo que vaya cambiando los saludos,direcciones, etc, pero ademas de eso necesito enviar un archivo adjunto, lo cual no lo permite word y outlook.

Saludos

[rhuerta]

Por si te puede servir, esta macro envia un correo con el cliente de correo predeterminado:

Código: Seleccionar todo

Sub Enviar(n as string, mTo as string,ruta as string)
   	Dim URL As String
   	Dim mSubject As String

   	mSubject="Asunto"
	URL = convertToURL(ruta) & n
	sendEmailMessage(mTo,mSubject,"",Array(URL) )
End Sub

' Nota: n es el nombre del documento, mTo el destinatario, mSubject el asunto

Function sendEmailMessage(mTo As String,mSubject As String, mBody As String, Attachements As Object,Optional UI As Integer)  As Boolean
On Error Goto HandleError
	Dim MailClient As Object
	Dim MailAgent As Object
	Dim MailMessage As Object

	sendEmailMessage=False
	If IsMissing(UI) Then
	 	UI=com.sun.star.system.SimpleMailClientFlags.NO_USER_INTERFACE
	End If
	MailAgent=CreateUnoService("com.sun.star.system.SimpleCommandMail")
	
        MailClient=MailAgent.querySimpleMailClient()
        MailMessage=MailClient.createSimpleMailMessage()
        MailMessage.setRecipient(mTo)
        MailMessage.setSubject(mSubject)
        MailMessage.setAttachement(Attachements)
        MailClient.sendSimpleMailMessage(MailMessage, UI)
	sendEmailMessage=True

HandleError:
   If err<>0 Then
      Exit Function
   End If
End Function