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.