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("jashmore....@teamcertified.com")
vMessage.setCCRecipient(Array("and...@pitonyak.org",
"te...@pitonyak.org"))
vMessage.setBCCRecipient(Array("te...@pitonyak.org",
"te...@pitonyak.org"))
vMessage.setsubject("Test Message from and...@pitonyak.org")
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: dev-unsubscr...@api.openoffice.org
For additional commands, e-mail: dev-h...@api.openoffice.org