Macro non funziona con MAC OS

Creare una macro - Scrivere uno script - Usare le API
Rispondi
motopisolo
Messaggi: 8
Iscritto il: domenica 12 gennaio 2020, 13:24

Macro non funziona con MAC OS

Messaggio da motopisolo »

Buon giorno a tutti,
non ho trovato sul forum lo stesso problema pertanto sono qui a chiedervi aiuto. Premetto che la macro funziona alla perfezione con windows 10 e open office, mentre funziona parzialmente con mac os catalina e open office.
Ricapitolando: insieme a un amico abbiamo creato una macro che permette di salvare delle celle in pdf e allegarle poi a una mail in formato pdf.
Fino qui tutto bene, poi la macro apre automaticamente il client di posta, e dovrebbe compilare in automatico il mittente, l'oggetto e il corpo del testo, ma questo non succede.
Ho provato sia con thunderbird che con Mail (client predefinito di mac).
Vi allego il codice macro sperando che qualcuno possa darmi una mano

Codice: Seleziona tutto

Sub Main
	Dim Doc as Object		
	Dim Sheet as Object
	Dim message as String
	
	
	Doc = ThisComponent.CurrentController.Frame
	Sheet = ThisComponent.Sheets.getByName("FATTURA")
		
	ExportPdf(Sheet)
	
End Sub

Sub ExportPdf (Sheet as Object)

	Dim Cell as Object
	Dim strFile As String
	Dim msg as String
	On Error GoTo errHandler

	Cell = Sheet.getCellByPosition(1,20)
	oRng = Sheet.getCellRangeByName("A1:K48")
	Dim mFilterData(0) As New com.sun.star.beans.PropertyValue
	mFilterData(0).Name = "Selection"
	mFilterData(0).Value = oRng
	Dim mStoreOpts(2) As New com.sun.star.beans.PropertyValue
	mStoreOpts(0).Name = "Overwrite"
	mStoreOpts(0).Value = True
	mStoreOpts(1).Name = "FilterName"
	mStoreOpts(1).Value = "calc_pdf_Export"
	mStoreOpts(2).Name = "FilterData"
	mStoreOpts(2).Value = mFilterData()
	'imposto il nome del file col nome "Fattura_" cella b21
	'inserisco il percorso per il salvataggio + nome file
	strFile = "Fattura_" & Cell.String & ".pdf"
	strFile = "file:///Volumes/HD%20EMILIO/FATTURE%202020/" & strFile
'	strFile = "file:///C:/Users/Luca/Desktop/test/" & strFile
	ThisComponent.storeToURL(strFile, mStoreOpts())
	
	MsgBox "Il file PDF è stato salvato."
	
	If MsgBox ("Vuoi allegare la fattura ad una mail?",  292) = 6 Then
	  sendMail(Cell.String, strFile)
	End IF
	
	exitHandler:
		Exit Sub
	errHandler:
	    MsgBox "Non ho potuto salvare il file PDF"
	   
	Resume exitHandler
End Sub

' REM recupero i dati dal foglio
Sub SendMail (nomeFile as String, percorsoAllegato as string)
	Dim doc as Object

	doc = ThisComponent.Sheets.getByName("DATI")
	indirizzoMail = doc.getCellByPosition(6,1)
	oggetto = "Invio Fattura Fisioterapica " & nomeFile
	corpoMail = ""
	corpoMail = "Gentile Cliente,"  & Chr(10) & _
				"ecco in allegato la fattura." & Chr(10) & Chr(10) & _
				"Cordiali Saluti"
	allegato = percorsoAllegato

	Mailer (indirizzoMail.String, oggetto, corpoMail, allegato)

End Sub

Sub Mailer (eMailAddress as String, eSubject as String, eBody as String, Attachement as String)
	Dim nFlag as integer
	On Error GoTo errHandler
   
	nFlag = 0

	MailAgent = CreateUnoService("com.sun.star.system.SystemMailProvider")
	MailClient = MailAgent.queryMailClient()   
 	MailMessage = MailClient.createMailMessage()
 	MailMessage.Recipient = eMailAddress
 	MailMessage.Subject = eSubject
 	MailMessage.Body = eBody
	MailMessage.Attachement = Array(Attachement)
	MailClient.sendMailMessage(MailMessage, 0)

		exitHandler:
		Exit Sub
	errHandler:
	    MsgBox "Non ho potuto aprire la tua mail"
	   
	Resume exitHandler
End Sub
 Editato: Post riscritto usando maiuscole e punteggiatura.
Possiamo sperare di vedere così anche i prossimi? (Admin) 
Open Office 4.1.7 os Catalina 10.15.2
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8786
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

Re: Macro non funziona con MAC OS

Messaggio da charlie »

Ciao, ho provato la macro su Sierra e sembra funzionare.
Ho eseguito il test con un foglio vuoto di Calc, che viene salvato in .pdf sul percorso che ho modificato

Codice: Seleziona tutto

strFile = "file:///Users/mioNome/Desktop/" & strFile
Poi si apre Mail con l'allegato inserito ma senza il destinatario.
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
Avatar utente
unlucky83
Volontario
Volontario
Messaggi: 2355
Iscritto il: lunedì 7 gennaio 2013, 1:23
Località: Latina

Re: Macro non funziona con MAC OS

Messaggio da unlucky83 »

"file:///Volumes/HD%20EMILIO/" Sembra l'indirizzo a un'unità disco esterna o una partizione. Se l'unità non è montata il percorso risulta non valido.
LibO:Versione: 6.2.8.2
Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1- 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
motopisolo
Messaggi: 8
Iscritto il: domenica 12 gennaio 2020, 13:24

Re: Macro non funziona con MAC OS

Messaggio da motopisolo »

charlie ha scritto:Ciao, ho provato la macro su Sierra e sembra funzionare.
Ho eseguito il test con un foglio vuoto di Calc, che viene salvato in .pdf sul percorso che ho modificato

Codice: Seleziona tutto

strFile = "file:///Users/mioNome/Desktop/" & strFile
Poi si apre Mail con l'allegato inserito ma senza il destinatario.
Purtroppo è quello che succede anche a me, non capisco come mai non compili in automatico i campi della mail.
unlucky83 ha scritto:"file:///Volumes/HD%20EMILIO/" Sembra l'indirizzo a un'unità disco esterna o una partizione. Se l'unità non è montata il percorso risulta non valido.
E' un disco esterno. Cosa intendi per unità non montata?
La macro salva correttamente anche su unità esterna, solo che non compila il campo mail, il corpo e l'oggetto. Su windows 10 invece, la macro fa quello che dovrebbe.
Open Office 4.1.7 os Catalina 10.15.2
Avatar utente
unlucky83
Volontario
Volontario
Messaggi: 2355
Iscritto il: lunedì 7 gennaio 2013, 1:23
Località: Latina

Re: Macro non funziona con MAC OS

Messaggio da unlucky83 »

Scusa, ho confuso le discussioni e ho lasciato un commento che non c’entra niente con il tuo problema, non lo calcolare.
Non essendo un utente Mac mi tiro fuori dalla discussione
LibO:Versione: 6.2.8.2
Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1- 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8786
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

Re: Macro non funziona con MAC OS

Messaggio da charlie »

unlucky83 ha scritto:Non essendo un utente Mac mi tiro fuori dalla discussione
Io credo che un aiuto tu lo possa dare lo stesso. Una volta stabilito il giusto percorso del file, si tratta di capire perché la macro non riempie il campo con l'indirizzo mail del destinatario all'interno del client di posta.
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
Avatar utente
unlucky83
Volontario
Volontario
Messaggi: 2355
Iscritto il: lunedì 7 gennaio 2013, 1:23
Località: Latina

Re: Macro non funziona con MAC OS

Messaggio da unlucky83 »

Le ipotesi sono due:
O la distribuzione openoffice per Mac ha dei difetti nella gestione di tutti i client di posta elettronica che girano su Mac, oppure ha un problema specifico con Mail di Mac, che mi pare sia il programma di default per la gestione della posta
LibO:Versione: 6.2.8.2
Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1- 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
motopisolo
Messaggi: 8
Iscritto il: domenica 12 gennaio 2020, 13:24

Re: Macro non funziona con MAC OS

Messaggio da motopisolo »

unlucky83 ha scritto:Le ipotesi sono due:
oppure ha un problema specifico con Mail di Mac, che mi pare sia il programma di default per la gestione della posta
Provato anche con thunderbird, stesso risultato di Mail .
Open Office 4.1.7 os Catalina 10.15.2
Avatar utente
unlucky83
Volontario
Volontario
Messaggi: 2355
Iscritto il: lunedì 7 gennaio 2013, 1:23
Località: Latina

Re: Macro non funziona con MAC OS

Messaggio da unlucky83 »

La stessa cosa succede con Libreoffice @charlie?
LibO:Versione: 6.2.8.2
Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1- 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
motopisolo
Messaggi: 8
Iscritto il: domenica 12 gennaio 2020, 13:24

Re: Macro non funziona con MAC OS

Messaggio da motopisolo »

@unlucly83
Non so se possa essere d'aiuto; utilizzando la funzione mailto, il client di Mac compila correttamente il campo mail.
Anche cliccando direttamente sull'indirizzo si apre il client con il campo indirizzo compilato
Open Office 4.1.7 os Catalina 10.15.2
Avatar utente
unlucky83
Volontario
Volontario
Messaggi: 2355
Iscritto il: lunedì 7 gennaio 2013, 1:23
Località: Latina

Re: Macro non funziona con MAC OS

Messaggio da unlucky83 »

Un altro ha riscontrato il tuo problema sul forum inglese ed è stato liquidato senza una soluzione https://forum.openoffice.org/en/forum/v ... ider+apple
Un altro ha risolto con il mailto ma non aveva allegati da inserire nella mail https://forum.openoffice.org/en/forum/v ... os#p418172
Chiudo con ques'altro utente del forum inglese. Lui non è riuscito a far funzionare una macro che compilasse tutto il messaggio incluse le email, però ha trovato una soluzione alternativa usando un Applescript riuscendo così a riempire tutti i campi dell'email con l'aggiunta di allegati (da quello che ho capito)https://forum.openoffice.org/en/forum/v ... os#p263757
Ci sono poche discussioni anche sul forum inglese...a quanto pare pochi utenti MacOs hanno necessità di macro per invio email.
LibO:Versione: 6.2.8.2
Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1- 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
Avatar utente
unlucky83
Volontario
Volontario
Messaggi: 2355
Iscritto il: lunedì 7 gennaio 2013, 1:23
Località: Latina

Re: Macro non funziona con MAC OS

Messaggio da unlucky83 »

Aggiungo questo link per quanto riguarda l'uso di applescript https://stackoverflow.com/questions/337 ... f-the-scri
LibO:Versione: 6.2.8.2
Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1- 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
motopisolo
Messaggi: 8
Iscritto il: domenica 12 gennaio 2020, 13:24

Re: Macro non funziona con MAC OS

Messaggio da motopisolo »

unlucky83 ha scritto:Aggiungo questo link per quanto riguarda l'uso di applescript https://stackoverflow.com/questions/337 ... f-the-scri
Ti ringrazio; vedremo se riesco a trovare qualcuno ben volenteroso per aiutarmi a preparare questi script.
Vi tengo aggiornati
Open Office 4.1.7 os Catalina 10.15.2
patel
Volontario attivo
Volontario attivo
Messaggi: 4019
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Macro non funziona con MAC OS

Messaggio da patel »

unlucky83 ha scritto:Scusa, ho confuso le discussioni e ho lasciato un commento che non c’entra niente con il tuo problema, non lo calcolare.
Non essendo un utente Mac mi tiro fuori dalla discussione
Ma su Ubuntu ti funziona ? Quando lo usavo avevo lo stesso problema di motopisolo, apriva il client ma non compilava i campi.
 Editato: Post riscritto usando maiuscole e punteggiatura, come in uso nella lingua italiana.
Possiamo sperare di vedere così anche i prossimi? (Admin) 
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Avatar utente
unlucky83
Volontario
Volontario
Messaggi: 2355
Iscritto il: lunedì 7 gennaio 2013, 1:23
Località: Latina

Re: Macro non funziona con MAC OS

Messaggio da unlucky83 »

A me non apre nemmeno il client.
LibO:Versione: 6.2.8.2
Build ID: 1:6.2.8~rc2-0ubuntu0.16.04.1- 32-bit
-
Se risolvi:
1. Condividi la soluzione qui con noi
2. Metti [Risolto] al titolo del primo messaggio come spiegato qui
Rispondi