Macro que envia uma mensagem para uma lista de e-mail

perguntadas 2020-01-14 20:05:30 +0100

updated 2020-01-14 20:07:52 +0100

Boa tarde, Necessito criar uma macro para enviar para uma lista de emails que está na coluna A do libreoffice calc uma mensagem! Porém utilizo um sistema de emails próprio, não sendo gmail, hotmail, etc. O mesmo foi criado na empresa. Eu peguei o seguinte codigo,

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 1

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

With oMailMessage

' Destinatário do eMail

.setRecipient( eMail )

'Mensagem no corpo do e-Mail

.Body = ("teste")

' Cópia

'.setCcRecipient( Array("destinataire2@mail.fr" , "destinataire3@mail.fr") )

' Subject

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

' Anexos

'.setAttachement( Array( Arq1 , Arq2 ) )

End With

oMailClient.sendSimpleMailMessage( oMailMessage, lgMailClientFlags )

Next f

End Sub

mas ele fica dando o seguinte erro: Não há um programa de email associado para realizar o programa... e logo após eu dar o,k Erro de execução do BASIC. Ocorreu uma exceção Type: com.sun.star.uno.Exception Message: Send email failed.

como eu especifico o programa de email do meu serviço para que possa fazer o mesmo enviar. Att.

editar alterar tag assinalar como ofensivo fechar mesclar Excluir