chiedo il vostro aiuto perché non riesco a venirne a capo! Se lancio la macro che vedete sotto ricevo l'errore "Proprietà o metodo non trovati: Attachement".
Se commento la relativa linea, la penultima, la macro funziona e mi apre la finestra di Thunderbird con tutti i campi compilati ma ovviamente senza allegato.
OpenOffice 4.1.7 è installato su Linux Mint 64bit
Codice: Seleziona tutto
sub mail
Dim MailAgent As Object
Dim MailClient As Object
Dim MailMessage As Object
Dim UI As Integer
Dim eMailer, eMailClient, eMailMessage As Object
Dim sAddress as string
Dim sAddressFrom As String
Dim Oggetto As String
Dim Allegato As String
Allegato="file:///mnt/prova.pdf"
sAddressFrom="mittente@example.com"
sAddress="destinatario@example.com"
Oggetto="Prova"
eMailer=createUnoService( "com.sun.star.system.SystemMailProvider" )
eMailClient=eMailer.queryMailClient()
eMailMessage=eMailClient.createMailMessage()
eMailMessage.Recipient=sAddress
eMailMessage.Subject=Oggetto
eMailMessage.Body="Vedi allegato"
eMailMessage.Originator=sAddressFrom
eMailclient.Attachement=Array(Allegato)
eMailClient.sendMailMessage(eMailMessage,0)
end sub