Pannello di Controllo Moderatore ]

[Risolto] Aggiunta allegati funzione mailto

Discussioni sull'applicazione per i fogli di calcolo

[Risolto] Aggiunta allegati funzione mailto

Messaggioda Elettronica 2.0 » martedì 5 maggio 2015, 11:34

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.
Allegati
Test - Esempi di combinazioni per compilare automaticamente una nuova email da calc.ods
(10.88 KiB) Scaricato 281 volte
Ultima modifica di Elettronica 2.0 il lunedì 11 maggio 2015, 11:39, modificato 1 volta in totale.
OpenOffice 4.1.0 su Windows
Elettronica 2.0
 
Messaggi: 48
Iscritto il: giovedì 2 ottobre 2014, 12:26

Re: Aggiunta allegati funzione mailto

Messaggioda patel » mercoledì 6 maggio 2015, 7:25

prova il mio allegato
attenzione per il percorso dell'allegato devi usare i caratteri / e non \
Allegati
Email.ods
(14.03 KiB) Scaricato 473 volte
-------------------
OpenOffice 4.1 e Libre Office 6.4.1.2 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
Volontario attivo
Volontario attivo
 
Messaggi: 3645
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Aggiunta allegati funzione mailto

Messaggioda Elettronica 2.0 » mercoledì 6 maggio 2015, 16:56

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
OpenOffice 4.1.0 su Windows
Elettronica 2.0
 
Messaggi: 48
Iscritto il: giovedì 2 ottobre 2014, 12:26

Re: Aggiunta allegati funzione mailto

Messaggioda patel » mercoledì 6 maggio 2015, 18:19

non ho capito se con 1 solo allegato ti funziona
-------------------
OpenOffice 4.1 e Libre Office 6.4.1.2 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
Volontario attivo
Volontario attivo
 
Messaggi: 3645
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Aggiunta allegati funzione mailto

Messaggioda Elettronica 2.0 » giovedì 7 maggio 2015, 3:18

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
OpenOffice 4.1.0 su Windows
Elettronica 2.0
 
Messaggi: 48
Iscritto il: giovedì 2 ottobre 2014, 12:26

Re: Aggiunta allegati funzione mailto

Messaggioda patel » giovedì 7 maggio 2015, 15:14

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
Ultima modifica di patel il giovedì 7 maggio 2015, 16:38, modificato 1 volta in totale.
-------------------
OpenOffice 4.1 e Libre Office 6.4.1.2 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
Volontario attivo
Volontario attivo
 
Messaggi: 3645
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Aggiunta allegati funzione mailto

Messaggioda unlucky83 » giovedì 7 maggio 2015, 15:42

Hai provato con queste macro
https://forum.openoffice.org/it/forum/v ... ail#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
LibO5.1.6.2-Ubuntu 16.04.2 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: 2241
Iscritto il: lunedì 7 gennaio 2013, 2:23
Località: Latina

Re: Aggiunta allegati funzione mailto

Messaggioda Elettronica 2.0 » giovedì 7 maggio 2015, 16:47

unlucky83 ha scritto:Hai provato con queste macro
https://forum.openoffice.org/it/forum/v ... ail#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 :mrgreen:

ciao grazie
OpenOffice 4.1.0 su Windows
Elettronica 2.0
 
Messaggi: 48
Iscritto il: giovedì 2 ottobre 2014, 12:26

Re: Aggiunta allegati funzione mailto

Messaggioda unlucky83 » giovedì 7 maggio 2015, 17:11

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 :)
LibO5.1.6.2-Ubuntu 16.04.2 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: 2241
Iscritto il: lunedì 7 gennaio 2013, 2:23
Località: Latina

Re: Aggiunta allegati funzione mailto

Messaggioda Elettronica 2.0 » giovedì 7 maggio 2015, 17:23

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 :D )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 :knock: cerco di farmi capire come posso :lol:

ciao e grazie ancora !
OpenOffice 4.1.0 su Windows
Elettronica 2.0
 
Messaggi: 48
Iscritto il: giovedì 2 ottobre 2014, 12:26

Re: Aggiunta allegati funzione mailto

Messaggioda unlucky83 » giovedì 7 maggio 2015, 17:31

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
LibO5.1.6.2-Ubuntu 16.04.2 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: 2241
Iscritto il: lunedì 7 gennaio 2013, 2:23
Località: Latina

Re: Aggiunta allegati funzione mailto

Messaggioda Elettronica 2.0 » giovedì 7 maggio 2015, 17:58

:oops: 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
OpenOffice 4.1.0 su Windows
Elettronica 2.0
 
Messaggi: 48
Iscritto il: giovedì 2 ottobre 2014, 12:26

Re: Aggiunta allegati funzione mailto

Messaggioda unlucky83 » venerdì 8 maggio 2015, 2:40

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 :D

Spiegazione:
nel modulo Module1 devi solo personalizzare:
Codice: Seleziona tutto   Espandi visualeStringi visuale
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 :D

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 
Ultima modifica di unlucky83 il venerdì 8 maggio 2015, 16:49, modificato 1 volta in totale.
LibO5.1.6.2-Ubuntu 16.04.2 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: 2241
Iscritto il: lunedì 7 gennaio 2013, 2:23
Località: Latina

Re: Aggiunta allegati funzione mailto

Messaggioda unlucky83 » venerdì 8 maggio 2015, 2:46

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   Espandi visualeStringi visuale
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   Espandi visualeStringi visuale
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
Ultima modifica di unlucky83 il venerdì 8 maggio 2015, 21:58, modificato 2 volte in totale.
LibO5.1.6.2-Ubuntu 16.04.2 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: 2241
Iscritto il: lunedì 7 gennaio 2013, 2:23
Località: Latina

Re: Aggiunta allegati funzione mailto

Messaggioda Elettronica 2.0 » venerdì 8 maggio 2015, 9:31

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 "
OpenOffice 4.1.0 su Windows
Elettronica 2.0
 
Messaggi: 48
Iscritto il: giovedì 2 ottobre 2014, 12:26

Re: Aggiunta allegati funzione mailto

Messaggioda unlucky83 » venerdì 8 maggio 2015, 9:38

Ho dimenricato di commentare quel rigo. Mettici un apostrofo davanti oppure eliminalo che non serve
LibO5.1.6.2-Ubuntu 16.04.2 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: 2241
Iscritto il: lunedì 7 gennaio 2013, 2:23
Località: Latina

Re: Aggiunta allegati funzione mailto

Messaggioda Elettronica 2.0 » venerdì 8 maggio 2015, 9:48

ok apostrofato :D ,ma purtroppo mi viene fuori un altra cosa :shock: ...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
Allegati
Immagine.jpg
OpenOffice 4.1.0 su Windows
Elettronica 2.0
 
Messaggi: 48
Iscritto il: giovedì 2 ottobre 2014, 12:26

Re: Aggiunta allegati funzione mailto

Messaggioda unlucky83 » venerdì 8 maggio 2015, 9:56

Sembra un errore dovuto alla configurazione SSL. Confronta con le macro del tuo esemmpio funzionante le funzioni che riguardano questo parametro
LibO5.1.6.2-Ubuntu 16.04.2 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: 2241
Iscritto il: lunedì 7 gennaio 2013, 2:23
Località: Latina

Re: Aggiunta allegati funzione mailto

Messaggioda Elettronica 2.0 » venerdì 8 maggio 2015, 10:24

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 :D
OpenOffice 4.1.0 su Windows
Elettronica 2.0
 
Messaggi: 48
Iscritto il: giovedì 2 ottobre 2014, 12:26

Re: Aggiunta allegati funzione mailto

Messaggioda unlucky83 » venerdì 8 maggio 2015, 10:58

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
LibO5.1.6.2-Ubuntu 16.04.2 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: 2241
Iscritto il: lunedì 7 gennaio 2013, 2:23
Località: Latina

Re: Aggiunta allegati funzione mailto

Messaggioda Elettronica 2.0 » venerdì 8 maggio 2015, 11:15

PICCOLO PASSO IN AVANTI ( FORSE ) adesso mi errore diverso ti dice qualcosa ?
Allegati
Immagine.jpg
OpenOffice 4.1.0 su Windows
Elettronica 2.0
 
Messaggi: 48
Iscritto il: giovedì 2 ottobre 2014, 12:26

Re: Aggiunta allegati funzione mailto

Messaggioda Elettronica 2.0 » venerdì 8 maggio 2015, 11:42

unlucky83 ha scritto: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 :D :mrgreen:
OpenOffice 4.1.0 su Windows
Elettronica 2.0
 
Messaggi: 48
Iscritto il: giovedì 2 ottobre 2014, 12:26

Re: Aggiunta allegati funzione mailto

Messaggioda unlucky83 » venerdì 8 maggio 2015, 17:17

questa dovrebbe andare
Allegati
Email8destinatari2.ods
(48.69 KiB) Scaricato 191 volte
LibO5.1.6.2-Ubuntu 16.04.2 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: 2241
Iscritto il: lunedì 7 gennaio 2013, 2:23
Località: Latina

Re: Aggiunta allegati funzione mailto

Messaggioda Elettronica 2.0 » venerdì 8 maggio 2015, 17:20

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 !!!! :D
OpenOffice 4.1.0 su Windows
Elettronica 2.0
 
Messaggi: 48
Iscritto il: giovedì 2 ottobre 2014, 12:26

Re: Aggiunta allegati funzione mailto

Messaggioda unlucky83 » venerdì 8 maggio 2015, 17:30

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.
LibO5.1.6.2-Ubuntu 16.04.2 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: 2241
Iscritto il: lunedì 7 gennaio 2013, 2:23
Località: Latina

Re: Aggiunta allegati funzione mailto

Messaggioda Elettronica 2.0 » venerdì 8 maggio 2015, 17:37

ok perfetto, attendo tue news appena hai tempo :super:

ciao grazie ! :D
OpenOffice 4.1.0 su Windows
Elettronica 2.0
 
Messaggi: 48
Iscritto il: giovedì 2 ottobre 2014, 12:26

Re: Aggiunta allegati funzione mailto

Messaggioda unlucky83 » venerdì 8 maggio 2015, 17:40

credo ti sia sfuggito l'ultimo mio allegato
LibO5.1.6.2-Ubuntu 16.04.2 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: 2241
Iscritto il: lunedì 7 gennaio 2013, 2:23
Località: Latina

Re: Aggiunta allegati funzione mailto

Messaggioda Elettronica 2.0 » venerdì 8 maggio 2015, 21:23

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 :D
ciao unlucky2015/23____sei stato grande,
______________________grande lavoro
ciao unlucky83_________sei stato grande

grazieeeeeeee e complimenti :bravo: :D

p.s. gli underscore gli ho messi in quanto altrimenti nel messaggio qua nn si visualizzavano gli spazi
OpenOffice 4.1.0 su Windows
Elettronica 2.0
 
Messaggi: 48
Iscritto il: giovedì 2 ottobre 2014, 12:26

Re: Aggiunta allegati funzione mailto

Messaggioda unlucky83 » venerdì 8 maggio 2015, 21:51

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?
LibO5.1.6.2-Ubuntu 16.04.2 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: 2241
Iscritto il: lunedì 7 gennaio 2013, 2:23
Località: Latina

Re: Aggiunta allegati funzione mailto

Messaggioda patel » sabato 9 maggio 2015, 6:35

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
-------------------
OpenOffice 4.1 e Libre Office 6.4.1.2 su Windows 10
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
patel
Volontario attivo
Volontario attivo
 
Messaggi: 3645
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Prossimo

Torna a Calc

Chi c’è in linea

Visitano il forum: Google [Bot] e 11 ospiti