Olá,
Gostaria de criar uma macro no libreoffice que realize a função de enviar um e-mail automaticamente.
Uso windows 10 e thunderbird.
Obrigado desde já!
Encontrei este procedimento, mas apresenta erro de variável: eMailClient = eMailer.QuerySimpleMailClient()
Utilizo Thunderbird e Win7Pro
Sub SendEmail1
Dim eMailer as Object
Dim eMailClient as Object
Dim eMessage as Object
Dim pdfName As String
Dim ArqName as String
Dim Endereco As String
Dim oDoc, oPlan
oDoc = ThisComponent
oPlan = oDoc.Sheets.getByName( "Lancamento" )
Endereco = oPlan.getCellByPosition(17,19).String
ArqName = oPlan.getCellByPosition(17,17).String
pdfName = ArqName & ".pdf"
eMailAddress = "c.camargo@moveisprovincia.com.br"
eSubject = "Test email"
eMailer = createUnoService ("com.sun.star.system.SimpleCommandMail")
eMailClient = eMailer.QuerySimpleMailClient()
eMessage = eMailClient.createSimpleMailMessage()
eMessage.Recipient = eMailAddress
eMessage.Subject = eSubject
AttachmentURL = convertToUrl("file:///" & Endereco & pdfName)
eMessage.Attachement = Array(AttachmentURL)
eMailClient.sendSimpleMailMessage ( eMessage, com.sun.star.system.SimpleMailClientFlags.NO_USER_INTERFACE )
End Sub