Adaptación programa Vba bajo Libreoffice en Ubuntu

Busco programador para adaptar macro de libreoffice, modificando el servicio de envío por email. Es un tema sencillo. Adjunto la macro entera, pero lo que hay que modificar es : objMessage.TextBody = "Factura de " & Format(año & "/" & mes, "MMMM") & "." & VbCrLf & vbCrLf & "Un cordial saludo." & VbCrLf & "SUNCABI" ' Tipo de envío: Usar un servidor SMTP externo objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort ' Tipo de autentificación: NONE, Basic (codificación Base64), NTLM objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic ' Timeout máximo para establecer una conexión con el servidor SMTP objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 ' Servidor SMTP con el que se enviará el e-mail objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" ' Cuenta de usuario en el servidor SMTP objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]" ' Contraseña en el servidor SMTP objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "hazhcwzmmqsegfyo" ' Puerto de comunicación con el servidor SMTP objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 ' Usar ssl en la conexión con el servidor smtp (true o false) objmessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true objMessage.Configuration.Fields.Updatel