Enviar email no Calc

[rts2000]

Eu tenho uma planilha com vários emails, cada um numa célula, e queria saber se é possível enviar email para todos esses endereços sem precisar copiar e colar tudo no editor de texto.

Alguém poderia me ajudar?

[CelsoMilani]

Não sei se é isso que você quer, mas aí vai:

Crie uma planilha no calc e digite na coluna A os E-mails.

Após isso, rode esta macro.

A macro lê as duas primeiras linhas, mas você pode mudar para ler

dinamicamente a coluna toda.

Sub Enviar_eMail

planilha = ThisComponent.Sheets.getByName("Planilha1")

lgMailClientFlags = com.sun.star.system.SimpleMailClientFlags.NO_USER_INTERFACE

oSystemMail = createUnoService( "com.sun.star.system.SimpleSystemMail" )

oMailClient = oSystemMail.querySimpleMailClient()

oMailMessage = oMailClient.createSimpleMailMessage()

For f = 1 To 2

eMail = ThisComponent.Sheets.getByName("Planilha1").getCellRangeByName("A" & f).string

With oMailMessage

' Destinatário do eMail

.setRecipient( eMail )

' Cópia

'.setCcRecipient( Array("[email protected]" , "[email protected]") )

' Subject

.setSubject( "Teste do dia: " & Date )

' Anexos

'.setAttachement( Array( Arq1 , Arq2 ) )

End With

oMailClient.sendSimpleMailMessage( oMailMessage, lgMailClientFlags )

Next f

End Sub

Espero ter ajudado

Milani