[Risolto] Aggiunta allegati funzione mailto

[Elettronica 2.0]

Buongiorno a tutti

son qui ancora a chiedere il vs. aiuto,premetto che ho gia adattato un esempio trovato qui sul forum, pero non riesco a completare una parte del file che mi serve.
in breve devo mandare dei dati in delle cella tramite mail,ma per questo sto usando un comando ( quello trovato qui nel forum da un esempio ) (="mailto:" & D1 & "?subject=" & D9 & "&Body=" & (A1)&CODICE.CARATT(10)&(B1) ) l'unica cosa non riesco a trovare un modo per poter allegare all'email in automatico dei file pdf che si trovano in un percorso sul desktop dentro delle sotto cartelle.

ho provato ad adattare una macro trovata sempre qui sul forum sull'argomentazione programmazione basic, ma non sono riuscio a fare un granche.

allego file esempio

grazie in antico

Alex M.

[patel]

prova il mio allegato
attenzione per il percorso dell'allegato devi usare i caratteri / e non \

[Elettronica 2.0]

Ciao Patel, grazie per la tua risposta,

ho provato ma non riesco a farlo funzionare anche modificando il percorso ,mi si apre thunderbird ma senza allegato, ti do qualche altra info in piu che magari ti possa essere d'aiuto ,i file che dovrei allegare sono .pdf sono piu di uno e purtroppo hanno sempre nomi diversi ,ad ogni invio che dovrei fare !

in sostanza il risulatato finale e l apertura dell'email cosi come avviene ma con allegati > 5 file allegati tutti .pdf e con nomi diversi che non posso modificare !!

ora ti chiedo se è possibile o se la mia è solo fantascienza.
rimango in attesa di una tua cordiale risposta

grazie
ciao
Alex

[patel]

non ho capito se con 1 solo allegato ti funziona

[Elettronica 2.0]

no, l'allegato non c'e nemmeno nell' esempio....il collegamento sul file calc che ho modificato secondo il mio percorso funziona, perchè cliccandoci sopra si apre il file .txt ma quando faccio invia mi apre l email compilata come da formula ma senza allegato....pensi che il problema possa essere che uso thunderbird per l email ?? e riguardo il resto pensi sia fattibile ?

ciao grazie

[patel]

non credo che dipenda da thunderbird, putroppo io uso la web mai e non posso provare la macro.
Edit: cercando in rete sembra che mailto non supporti gli allegati

[unlucky83]

Hai provato con queste macro
viewtopic.php?f=9&t=5226&hilit=+mail#p25610
consentono di inviare email con allegato, anche senza aver istallato alcun gestore di posta, devi mettere le impostazioni della tua email (quelle che usi per configurare thunderbird) nel codice della macro

[Elettronica 2.0]

Hai provato con queste macro
viewtopic.php?f=9&t=5226&hilit=+mail#p25610
consentono di inviare email con allegato, anche senza aver istallato alcun gestore di posta, devi mettere le impostazioni della tua email (quelle che usi per configurare thunderbird) nel codice della macro

ciao grazie anche a te per il tuo interessamento
ho provato la macro e funziona , ma la mia necessità e che alla pressione del pulsante invia email, mi invii come corpo email il testo di alcune celle e in allegato dei file .pdf che si trovano in delle cartelle sul desktop. e quest'ultimi sono piu file e sempre con nomi diversi.

come dicevo a petl penso che la mia sia fantascienza

ciao grazie

[unlucky83]

body del messaggio= testo di alcune celle <--si può fare
basta Concatenare i testi delle celle e metterli come body

Allegare più file dovrebbe essere fattibile ma dovrei provare, dato che l'ho sempre usata per inviare un solo file pdf ad una serie di indirizzi email, con body composto da una sintesi del contenuto in calc (cioè riportando il contenuto di alcune celle)

Devi inviare tutti i pdf presenti nella cartella sul desktop?

Non credo si tratti di fantascienza modificare le macro per le tue esigenze

[Elettronica 2.0]

si ! sono ~ 6 file pdf dentro una cartella, ma con nomi sempre diversi !
sostanzialmete io dovrei mandare ad un indirizzo e-mail una parte di foglio come corpo email ( e fino a qui ho capito che è fattibile )e degli allegati in una cartella sul desktop.
dovrei fare la stessa cosa con altre 5/6 email che a loro volta hanno loro parte di foglò calc come corpo e relativi file nelle cartelle , percio mi chiedevo se ci fossero conflitti nel creare piu "pulsanti" rinominati con i nomi degli interessati e legati al loro indirizzo mail in modo tale da inviargli sempre solo le loro pozioni e file relativi.

ps

scusa se mi ripeto ma non essendo molto tecnico nel linguaggio cerco di farmi capire come posso

ciao e grazie ancora !

[unlucky83]

Credo di aver capito. Più pulsanti non mandano conflitti se il codice della macro viene modificato a tale scopo.
Stasera provo a prepararti un file di esempio.
Preferisci 6 pulsanti per 6 destinatari che inviino il contenuto di 6 cartelle diverse o della stessa cartella. Che i nomi dei pdf cambino non è un problema, basta che vuoi inviare tutti i pdf presenti

[Elettronica 2.0]

8 pulsanti per 8 destinatari, i file si trovano in 1 cartella sul desktop nella quale ci sono le 8 sottocartelle ognugna con i relativi file ( si in ogni cartella ci sono tutti i file solo dell'indirizzo mail interessato !

per quanto riguarda la porzione del foglio , adesso provo ad esprimermi in italiano !

nel corpo email dei destinatari dovrei mettere le prime 8 righe del foglio ( solo per il 1° destinatario di posta 8 ) delle colonne A e B (mi sarebbe piaciuto essere in grado di farli risultare con il bordo come se fossero in una tabella tipo :

la mia prova email | il risultato di questa prova è stato |
________________|______________________________|

e poi sempre colonne A e B ma di 6 righe in 6 righe : 2 destinatario 9-14 (riga) - 3 destinatario 14-20 (riga) ecc...

se non si riesce mi sta anche bene una cosa tipo COSI NEL Corpo mail :

1A la mia prova email
1B il risultato di questa prova è stato
SPAZIO
SPAZIO
2A la mia prova email
2B il risultato di questa prova è stato

spero di essere abbastanza chiaro !

ti ringrazio veramente tanto per il tuo interesse ed aiuto !!!

grazie ancora ciao e buona serata

[unlucky83]

Allego il file...spero ti funzioni e ti vada bene...ci ho dedicato più tempo del previsto perchè mi sono divertito a metterci i ghirigori

Spiegazione:
nel modulo Module1 devi solo personalizzare:

Codice: Seleziona tutto

const myAddress = "xx@gmail.com" 
const smtpServer = "smtp.gmail.com"
const smtpPort = 587
const smtpSecure = true
const smtpUser = "xx@gmail.com" 
const smtpPassword="x"
const emailCC="xxxx@gmail.com"
const emailBCC="xxxx@gmail.com"

La macro invia allegati multipli di estensione pdf ad un indirizzo email.

Per assegnare gli indirizzi dei destinatari e il percorso della cartella contenente i pdf, devi compilare il foglio InvioPosta. per il percorso puoi usare il pulsante che è adiacente, ti apre un dialogo che ti permette di sfogliare le cartelle.

Per il body del messaggio, ho preferito usare un foglio di supporto "Preparativi", dove vengono fatti i vari concatenamenti. Controllando le formule puoi notare i nomi "enter" "tab" e "tab2". Sono dei nomi alle celle in cui ho messo i caratteri "invio" , "una tabulazione" e "5 tabulazioni". Modificando le celle "tab" e "tab2", puoi organizzare al meglio il testo in colonna.
Spero di essere stato chiaro, si è fatta una certa

ps
l'ho testata con Libreoffice su Ubuntu con il mio indirizzo di gmail, spero che giri anche su altri sistemi operativi al primo tentativo
Buonanotte

Editato: Allegato cancellato perchè presenta errori risolti nell'allegato successivo

[unlucky83]

Riporto anche le macro, così è più facile ricercare la discussione

Editato: Macro aggiornate alla versione finale, che funziona (sembra) sia su Linux, sia su Windows

Primo modulo:per l'email

Codice: Seleziona tutto

REM  *****  BASIC  *****

' ======== your details go here ======== 
const myAddress = "andreagmail.com" 
const smtpServer = "smtp.gmail.com"
const smtpPort = 587
const smtpSecure = true
const smtpUser = "andrea@gmail.com" 
const smtpPassword=""
const emailCC="xxxx@gmail.com"
const emailBCC="xxxx@gmail.com"

const attachmentMaxSize = 400000 

' these variables are needed by listener functions, to which they cannot be passed as arguments 
private messageBody as String 
private attachmentContents() as Object 
private attachmentType as String 
private message as object
private indice as integer

' =======  ======= 
sub inviaEmail (oEv)
Procedi=msgbox ("Vuoi inviare Email?",4)
if procedi=6 then
	'riferimento
	Rif=oev.Source.Model.Name
	oSh=ThisComponent.Currentcontroller.activeSheet
	'destinatario
	oDest=osh.getcellrangebyname(Rif)
	sDest=oDest.String
	colrif=oDest.CellAddress.Column
	rowrif=oDest.CellAddress.Row
	'oggetto messaggio
	sOggetto=osh.getcellbyposition(colRif,rowRif+2).String
	'body messaggio
	sBody=osh.getcellbyposition(colRif,rowRif+3).String
	'allegati
	sPath=osh.getcellbyposition(colRif,rowRif+1).String
  	attachmentType = "application/pdf" 
  	attachmentUrls=ElencoPdf(sPath)
	
	sendMail2(sDest,sOggetto,sBody,attachmentUrls)
else
	msgbox "nessun Invio"
end if
end sub
'XXXXXXXXXXXXXXXXXXXXXXXXXXXX
sub sendMail2(recipient, subject, body, Optional attachmentUrls) 

Rem createUNOListener fuori dai cicli!!!
dim bodyObject as Object 'listener
dim server as Object 'listener
dim mailUser as Object 'listener
bodyObject = createUNOListener("body_", "com.sun.star.datatransfer.XTransferable") 
server = createUNOListener("smtp_", "com.sun.star.uno.XCurrentContext") 
mailUser = createUNOListener("user_", "com.sun.star.mail.XAuthenticator") 

rem service
dim serviceProvider as Object 'service
dim service as Object '
serviceProvider = createUNOService("com.sun.star.mail.MailServiceProvider")  
service = serviceProvider.Create("com.sun.star.mail.SMTP") 

messageBody = body 'private usato nella chiamata bodyObject

rem uso dei listener
service.connect(server, mailUser)      'xmailservice
message = com.sun.star.mail.MailMessage.create(recipient, myAddress, subject, bodyObject) 
 
if not IsMissing(attachmentUrls) then 
	if aggiungiAllegati(attachmentUrls) <> "OK" then
		msgbox "Errore allegato"
   		exit sub 
	end if
end if 
msgbox "sta per inviare"
   indice=0
service.sendMailMessage(message)       '.XSmtpService 
service.disconnect()                   'xmailservice
end sub 


' ======= extract attachment data from file ======== 
function aggiungiAllegati(url) 
dim chunks() as String, fileName as String, fileService as Object, attachmentFile as Object, fileContents() as Byte,  prova() as Byte
dim attachment as Object 'listener su attachment.Data
attachment = createObject("com.sun.star.mail.MailAttachment")
attachment.Data = createUNOListener("attachment_", "com.sun.star.datatransfer.XTransferable") 

if not isArray(Url) then
	kend=0
	urls=Array(url)
else
	kEnd=ubound(Url)
	urls=url
end if    
attachmentContents=Dimarray(kend)
fileService = createUNOService("com.sun.star.ucb.SimpleFileAccess") 
for k=0 to kend
   chunks() = Split(urls(k),"/") 
   fileName = ConvertFromUrl(chunks(UBound(chunks())) 
   attachmentFile = fileService.OpenFileRead(urls(k)) 
   attachmentFile.ReadBytes(fileContents(), attachmentMaxSize + 1) 
   attachmentFile.CloseInput 
   
   if (UBound(fileContents()) + 1 > attachmentMaxSize) then 
      msgBox "Attachment file '" & fileName & "' is too big" 
      exit function 
   elseIf (UBound(fileContents()) < 0) then 
      msgBox "Attachment file '" & fileName & "' is empty" 
      exit function 
   end if 
   attachmentContents(k) = CreateUnoValue( "[]byte", fileContents()) 
   attachment.ReadableName = fileName 
   message.addAttachment(attachment)
next
   aggiungiAllegati = "OK" 
end function 


' ===== server properties ===== 
function smtp_getValueByName(what) 
   select case what 
      case "ServerName" 
         smtp_getValueByName = smtpServer 
      case "Port" 
         smtp_getValueByName = smtpPort 
      case "ConnectionType" 
         if smtpSecure then 
            smtp_getValueByName = "SSL" 
         else 
            smtp_getValueByName = "Insecure" 
         endif 
   end select 
end function 

' ====== email user methods ======= 
function user_getUserName() 
   user_getUserName = smtpUser 
end function 

function user_getPassword() 
   user_getPassword = smtpPassword 
end function 


' ====== message body object methods ====== 
function body_getTransferDataFlavors() 
   dim flavor as new com.sun.star.datatransfer.DataFlavor 
   flavor.MimeType = "text/plain;charset=UTF-8" 
   flavor.HumanPresentableName = "Unicode-Text" 
   body_getTransferDataFlavors = Array(flavor) 
end function 

function body_getTransferData(flavor) as any 
   if (flavor.MimeType = "text/plain;charset=UTF-8") then 
      body_getTransferData = messageBody 
   end if 
end function 

function body_isDataFlavorSupported(x as Object) 
   body_isDataFlavorSupported = (x.MimeType = "text/plain;charset=UTF-8") 
end function 

' ====== attachment object methods ====== 
function attachment_getTransferDataFlavors() 
   dim flavor as new com.sun.star.datatransfer.DataFlavor 
   flavor.MimeType = attachmentType 
   flavor.HumanPresentableName = attachmentType 
   attachment_getTransferDataFlavors = Array(flavor) 
end function 

function attachment_getTransferData(flavor) as any 
   if (flavor.MimeType = attachmentType) then 
      attachment_getTransferData = attachmentContents(indice)
      indice=indice+1
   end if 
end function 

function attachment_isDataFlavorSupported(x as Object) 
   attachment_isDataFlavorSupported = (x.MimeType = attachmentType) 
end function 

Secondo modulo:per percorso directory ed ottenere elenco dei pdf in essa contenuti

Codice: Seleziona tutto

REM  *****  BASIC  *****

sub PercorsoCartella (oEv)
'riferimento
Rif=oev.Source.Model.Name
oSh=ThisComponent.Currentcontroller.activeSheet
oRif=osh.getcellrangebyname(Rif)
col=oRif.CellAddress.Column-1
row=oRif.CellAddress.Row

osh.getcellbyposition(col,row).String=ChooseADirectory()
End Sub

Function ChooseADirectory(Optional sInPath$) As String
  Dim oDialog As Object
  Dim oSFA As Object
  Dim s As String

  Rem You can also use com.sun.star.ui.dialogs.OfficeFolderPicker
  oDialog = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker")
  oSFA = createUnoService("com.sun.star.ucb.SimpleFileAccess")
  
  If IsMissing(sInPath) or not(oSFA.Exists(sInPath)) Then
    oDialog.setDisplayDirectory(GetWorkDir())
  ElseIf oSFA.Exists(sInPath) Then
    if not (right(sInPath,1)=getPathSeparator) then
    	i=0
    	do
    		j=instr(i+1,sInPath,getPathSeparator)
    		if j=0 then exit do
    		i=j
    	loop
    	sInPath=ConverttoUrl(left(sInPath,i-1))
'    	msgbox sInPath
    end if
    oDialog.setDisplayDirectory(sInPath)
  End If
  
  If oDialog.Execute() = 1 Then
    ChooseADirectory= oDialog.getDirectory()
  End If
End Function

function ElencoPdf(sPath as string) as variant
dim myarray() as String
Dim sElenco As String, sValue As String
if right(sPath,1)="/" then
sPath=left(sPath,len(sPath)-1)
end if
    sValue = Dir$(sPath + "/" + "/*.pdf",0)
    sValue = sPath & "/" & sValue
    Do
      if sElenco="" then
      	sElenco = sValue
      else
      	sElenco = sElenco & chr(13) & sPathValue
      end if
      sValue = Dir$
      sPathValue=sPath & "/" & sValue
    Loop Until sValue = ""
    msgbox sElenco
    myarray() = Split(sElenco, chr(13)) 
	ElencoPdf=myarray
End function

[Elettronica 2.0]

CIAO unlucky83 ,
prima di tutto GRAZIE per il lavoro ed il tempo che mi hai dedicato .
poi ti dico che l'ho provato e mi da un errore a me , seleziono il percorso , imposto i miei parametri e-mail,quando faccio invia mi si da errore " ERRORE DI RUNTIME BASIC. Sottoprocedura o funzione non definita." sulla parte di stringa " xray attachmentUrls "

[unlucky83]

Ho dimenricato di commentare quel rigo. Mettici un apostrofo davanti oppure eliminalo che non serve

[Elettronica 2.0]

ok apostrofato ,ma purtroppo mi viene fuori un altra cosa ...vedi allegato...in coincidenza della stringa " service.connect(server,mailUser) 'xmailservice" , i parametri che ho impostato sono gli stessi dell'altro esempio di ieri che funzionavano !

e grazie

[unlucky83]

Sembra un errore dovuto alla configurazione SSL. Confronta con le macro del tuo esemmpio funzionante le funzioni che riguardano questo parametro

[Elettronica 2.0]

adesso provo un po'...ho proato anche con un account gmail, non mi da piu errore ma non risponde piu il file ! faccio un po di prove e vedo se riesco a combinare qualcosa

[unlucky83]

cmq ho notato che a me mi invia si l'email con più di un allegato, ma gli allegati anche se hanno nomi diversi, una volta aperti sono tutti uguali, devo sistemare la macro perchè c'è qualche errore a prescindere

[Elettronica 2.0]

PICCOLO PASSO IN AVANTI ( FORSE ) adesso mi errore diverso ti dice qualcosa ?

[Elettronica 2.0]

cmq ho notato che a me mi invia si l'email con più di un allegato, ma gli allegati anche se hanno nomi diversi, una volta aperti sono tutti uguali, devo sistemare la macro perchè c'è qualche errore a prescindere

scusa non aveo letto, ok attendo tue info .

grazie mille ancora

[unlucky83]

questa dovrebbe andare

[Elettronica 2.0]

unlucky83 ma posso gia cominciare a rinominare i "pulsanti" aggiungere i relativi percorsi per prelevare i file e i destinatari delle mail o meglio attendere la macro finita ? poi posso bloccare le celle che non voglio vengano modificate ed ovviamente lasciare a mio piacimento quelle con campi modificabili ?

ciao grazie mille !!!!

[unlucky83]

Puoi già cambiare i Label dei pulsanti e mettere i dati nel foglio elettronico. Basta che non rinomini i due fogli e non cambi i riferimenti alle celle. Dimensioni di righe e colonne, come anche i pulsanti, puoi metterli dove più ti piace
Se la macro ancora non va, la prossima volta sostituisci solo i codici.

[Elettronica 2.0]

ok perfetto, attendo tue news appena hai tempo

ciao grazie !

[unlucky83]

credo ti sia sfuggito l'ultimo mio allegato

[Elettronica 2.0]

Siiiiii è vero adesso funziona !!!!

prima di farti 1.000.000 di complimenti, nel corpo dell'email quando arriva l'email il testo non è allineato:

ciao unlucky83_________sei stato grande
ciao unlucky2015/23_______sei stato grande
ciao unlucky83_________sei stato grande

a me se fosse possibile piacerebbe rimanessero

ciao unlucky83_________sei stato grande
ciao unlucky2015/23____sei stato grande
ciao unlucky83_________sei stato grande

e se eventualmente il testo b, unico a poter contenere abbastanza caratteri da richiere un a capo automatico succedesse cio:

ciao unlucky83_________sei stato grande,
______________________spero si possa aggiungere
______________________anche questa modifica
ciao unlucky2015/23____sei stato grande,
______________________grande lavoro
ciao unlucky83_________sei stato grande

grazieeeeeeee e complimenti

p.s. gli underscore gli ho messi in quanto altrimenti nel messaggio qua nn si visualizzavano gli spazi

[unlucky83]

Bene, sono contento che funzioni anche su windows
La soluzione che avevo proposto per la struttura tabellare del messaggio, prevede che i campi della colonna A abbiano la stessa lunghezza...adattare questa cosa a lunghezze diverse dovrebbe richiedere altre macro :/
Ora mi faccio venire in mente qualcosa.
I campi B sono frasi con degli spazi?

[patel]

a me su win 8.1, libreoffice e gmail mi compare la lista dei file da spedire e poi appare questo messaggio di errore
----------------
Errore di runtime BASIC.
Si è verificata un'eccezione
Type: com.sun.star.uno.RuntimeException
Message: <class 'smtplib.SMTPServerDisconnected'>: please run connect() first, traceback follows
C:\Program Files (x86)\LibreOffice 4\program\python-core-3.3.3\lib\smtplib.py:340 in function send() [raise SMTPServerDisconnected('please run connect() first')]
C:\Program Files (x86)\LibreOffice 4\program\python-core-3.3.3\lib\smtplib.py:348 in function putcmd() [self.send(str)]
C:\Program Files (x86)\LibreOffice 4\program\python-core-3.3.3\lib\smtplib.py:421 in function ehlo() [self.putcmd(self.ehlo_msg, name or self.local_hostname)]
C:\Program Files (x86)\LibreOffice 4\program\mailmerge.py:113 in function connect() [self.server.ehlo()]
----------------
con OO funziona, ma il messaggio inviato ad un indirizzo di libero viene classificato come SPAM e quindi non risulta visibile