[Risolto] Macro per invio mail con allegati non funziona!

Creare una macro - Scrivere uno script - Usare le API
Rispondi
ubrew
Messaggi: 7
Iscritto il: mercoledì 21 agosto 2019, 12:07

[Risolto] Macro per invio mail con allegati non funziona!

Messaggio da ubrew »

Buongiorno,

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
Grazie in anticipo.
Ultima modifica di ubrew il giovedì 23 aprile 2020, 16:48, modificato 1 volta in totale.
OpenOffice Versione: 4.1.7 - Linux Mint
ubrew
Messaggi: 7
Iscritto il: mercoledì 21 agosto 2019, 12:07

Re: Macro per invio mail con allegati non funziona!

Messaggio da ubrew »

Se non è un problema posterei anche sul forum in inglese.
OpenOffice Versione: 4.1.7 - Linux Mint
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8786
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

Re: Macro per invio mail con allegati non funziona!

Messaggio da charlie »

No, non è un problema, ma riporta qui l'eventuale risposta.
Comunque, hai controllato il percorso?

Codice: Seleziona tutto

Allegato="file:///mnt/prova.pdf" 
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
ubrew
Messaggi: 7
Iscritto il: mercoledì 21 agosto 2019, 12:07

Re: Macro per invio mail con allegati non funziona!

Messaggio da ubrew »

Si il percorso è ok, ho fato diverse prove, mi funziona su di un altro pc con un altra versione della suite. Il fatto è che sembra che non sappia cosa sia Attachement!
OpenOffice Versione: 4.1.7 - Linux Mint
ubrew
Messaggi: 7
Iscritto il: mercoledì 21 agosto 2019, 12:07

Re: [Risolto] Macro per invio mail con allegati non funziona

Messaggio da ubrew »

Sul forum inglese mi hanno risolto il problema, errore mio.
Ho sostituito

Codice: Seleziona tutto

eMailClient.Attachement=Array(Allegato)
con

Codice: Seleziona tutto

eMailMessage.Attachement=Array(Allegato)
Grazie
OpenOffice Versione: 4.1.7 - Linux Mint
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8786
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

Re: Macro per invio mail con allegati non funziona!

Messaggio da charlie »

Benissimo, grazie per la condivisione.
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
Rispondi