Página 1 de 1
Enviar correos con combinaciones y archivos adjuntos
Publicado: Jue Abr 08, 2010 4:06 pm
por 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
Re: Enviar correos con combinaciones y archivos adjuntos
Publicado: Vie Abr 09, 2010 9:01 am
por 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