When I looked at the service definitions, I thought that I should be
able to send an email message to multiple people at one time. The
setCCRecipient, for example, accepts a list of email addresses. Only the
first address is used.
I tested on Linux using Thunderbird. Does this seem correct? Shall I
open a bug against this?
Sub SendSimpleMail_multiple()
Dim vMailSystem, vMail, vMessage
vMailSystem = createUnoService( "com.sun.star.system.SimpleCommandMail" )
'vMailSystem=createUnoService("com.sun.star.system.SimpleSystemMail")
vMail=vMailSystem.querySimpleMailClient()
vMessage = vMail.createSimplemailMessage()
vMessage.SetRecipient("[email protected]")
vMessage.setCCRecipient(Array("[email protected]",
"[email protected]"))
vMessage.setBCCRecipient(Array("[email protected]",
"[email protected]"))
vMessage.setsubject("Test Message from [email protected]")
vMail.sendSimpleMailMessage(vMessage, _
com.sun.star.system.SimpleMailClientFlags.NO_USER_INTERFACE)
End Sub
--
Andrew Pitonyak
My Macro Document: http://www.pitonyak.org/AndrewMacro.odt
My Book: http://www.hentzenwerke.com/catalog/oome.htm
Info: http://www.pitonyak.org/oo.php
See Also: http://documentation.openoffice.org/HOW_TO/index.html
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
