word

Hai un problema con Excel?

Nuova discussione

word
di giulio (utente non iscritto) data: 04/09/2016 16:22:47

Salve, avrei bisogno di uno script che legga in una cartella specifica tanti file di word e li spedisca tramite server di posta agli indirizzi mail contenuti nei file stessi.
In pratica sono buste paga , pagina singola con all'interno un indirizzo mail.
Il top sarebbe le poi prima di essere spediti fossero convertiti in pdf, ma è lo stesso.
Chi può aiutarmi??
di alfrimpa data: 04/09/2016 16:43:29
Giulio Patel, che saluto, intendeva dire che il titolo deve essere rappresentativo del problema (Word non rappresenta nulla) e ciò ai fini di una eventuale futura ricerca (con Word troveresti tutto e niente).

Inoltre come sempre ha richiesto Patel devi allegare un file di esempio

Alfredo
risposta
di giulio1971 (utente non iscritto) data: 04/09/2016 16:48:45
Capito...ho fatto un nuovo post.
Scusatemi e per favore cancellate questo e l'altro sbagliato.
di Vecchio Frac data: 04/09/2016 17:53:02
@Giulio
ti prego fermati non aprire nuovi post in continuazione!! Ok hai sbagliato il titolo, non serviva aprire altri thread uguali (che non possono essere cancellati), pazienza, potevi andare avanti, poi hai allegato un file, ok così, adesso per cortesia fermati e aspetta che qualcuno prenda in esame questa tua
di patel data: 04/09/2016 18:20:57
quale server di posta ? è importante per la macro, usi un porogramma per la posta oppure no ? hai allegato un file con più fatture, confermi invece che ogni file ha una sola fattura ? se sì allegane uno
Risposta
di Giulio1971 (utente non iscritto) data: 04/09/2016 20:53:15
Allora grazie per la risposta innanzitutto....
Ho un programmino in ufficio ed ho splittato il file Word
Quindi in una cartella che chiamerò buste paga avrò tanti file
identici a quelli allegati ma a differenza saranno tanti file e non un file unico.
All'interno di ogni singolo file ci sarà la mail a cui spedire la busta paga.
Il server di posta che utilizzerò è Gmail.
Una domanda....visto che spesso cambio la mail(sempre Gmail come server) può essere un problema???
Per ogni lavoro devo creare una mail!!!!
Grazie ancora per l'aiuto.
di patel data: 04/09/2016 21:20:11
ho chiesto;
confermi invece che ogni file ha una sola fattura ?
se sì allegane uno, mi serve il file generato dal programma di spit

cosa significa che spesso cambi la mail ? l'indirizzo da cui spedisci ?
Risposta
di Giulio1971@hotmail.it (utente non iscritto) data: 04/09/2016 21:26:13
Eccomi, un file di prova posso mandarlo domani perché ce li ho in ufficio..ma confermo che le 3 pagine di esempio nel file allegato sono diventati 3 file singoli grazie ad un programma ad hoc che splitta un file con molte pagine ...
Purtroppo ad ogni incarico lavorativo dello collegare una mail di invio...quindi ogni volta dovrò creare una mail (sempre con Gmail) con il nome del lavoro.
Risposta
di Giulio1971 (utente non iscritto) data: 04/09/2016 21:30:20
Per maggiore chiarezza ogni file è una fattura di una pagina(busta paga).
Nel file di prova ci sono 3 esempi di busta paga.
Dopo lo split ho creato 3 file con pagina singola, ogni file è una fattura(busta paga)
di patel data: 04/09/2016 22:11:29
Cambi il mittente o l'oggetto della mail ? non ho capito bene
confermo che mi serve il file singolo generato dallo spilt
Risposta
di Giulio1971 (utente non iscritto) data: 05/09/2016 07:00:30
Cambio il mittente , l'oggetto è sempre busta paga.
Allora ti spiego bene...devo pagare le comparse dei film quindi ogni film dovrà avere la sua mail con cui spedirò le buste paga.
Appeno arrivo in ufficio ti allego il file ma ripetonè semplicemente una pagina Word splittata dal file unico che mi crea il programma buste paga.
Lo posso creare in word o pdf.
Ho pensato che si poteva lavorare meglio in Word anche per splittarlo ed in effetti
ho trovato subito il software per farlo.
Certo sarebbe meglio spedire un pdf ma pazienza ....
risposta
di giulio1971 (utente non iscritto) data: 05/09/2016 08:34:41
Ho allegato i tre file word splittati....quando avrò un file uncio con 40 buste paga....diventeranno 40 file word ad una pagina....ogni pagina una fattura(busta paga).
di patel data: 05/09/2016 08:40:55
ho qualche difficoltà a leggere la penultima riga di un file word quindi la mia risposta tarderà un po'
Risposta
di Giulio1971 (utente non iscritto) data: 05/09/2016 08:49:13
La penultima riga credo sia proprio l'indirizzo mail😔
di patel data: 05/09/2016 10:24:45
infatti, proprio per questo ti ho chiesto i singoli file, per vedere dove sta l'indirizzo.
Io non sono molto pratico di word, ho già la macro su Excel per inviare le mail, devo soltanto leggere gli indirizzi e poi ho finito
risposta
di giulio1971 (utente non iscritto) data: 05/09/2016 10:34:08
ho capito ....grazie.
Comunque gli indirizzi saranno sempre in quella posizione ma cambiano ogni volta...sia nella quantità di buste paga sia negli indirizzi.
Ogni film c'e' gente diversa...e possono essere 40 o 50 o 60 figuranti.
Tutto chiaro??
La cartella che li conterrà sarà sempre quella...un nome preciso che possiamo anche scegliere insieme.

di patel data: 05/09/2016 12:52:24
prova il file allegato, devi mettere :
in A2 l'indirizzo del Mittente
in F2 la password dell'account
in I2 il percorso della cartella contenete i file docx

Sub inviaelenco()
Dim MyWd As Object
cartella = Range("I2")
fname = Dir(cartella & "*.docx")
r = 2
Sheets(1).Range("B2:B500").ClearContents
Do While fname <> ""
  Sheets(2).Columns(1).ClearContents
  Set MyWd = GetObject(cartella & "" & fname)
  MyWd.ActiveWindow.Selection.WholeStory
  MyWd.ActiveWindow.Selection.Copy
  With Sheets(2)
    .Range("A1").PasteSpecial xlPasteValues
    LR = .Cells(.Rows.Count, "A").End(xlUp).Row
    mmail = .Range("A" & LR - 1)
    mmail = Trim(Right(mmail, Len(mmail) - 7))
  End With
  Sheets(1).Range("B" & r) = mmail
  Sheets(1).Range("E" & r) = fname
  r = r + 1
  MyWd.Close
  fname = Dir
Loop
Sheets(1).Select
LR = Cells(Rows.Count, "B").End(xlUp).Row
For r = 2 To LR
  Call InviaMail(r)
Next
End Sub
Sub InviaMail(r)
Da = Range("A2")  ' indirizzo accesso
Text = Range("D2") ' Testo
Ogg = Range("C2") ' breve descrizione dell'oggetto del messaggio
achiTo = Range("B" & r) ' indirizzi di posta elettronica dei destinatari principali.
codice = Range("F2") 'password accesso
server = Range("G2")   ' server
port = Range("H2")       ' porta
Att1 = Range("I2") & Range("E" & r)
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
        .Item("h t t p://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
        .Item("h t t p://schemas.microsoft.com/cdo/configuration/smtpserver") = server
        .Item("h t t p://schemas.microsoft.com/cdo/configuration/smptserverport") = port
    
        .Item("h t t p://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("h t t p://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("h t t p://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        .Item("h t t p://schemas.microsoft.com/cdo/configuration/sendusername") = Da        ' indirizzo accesso
        .Item("h t t p://schemas.microsoft.com/cdo/configuration/sendpassword") = codice   'password accesso
        .Update
    End With
    With cdomsg
        .To = achiTo
        .From = Da
        .Subject = Ogg
        .TextBody = Text
        .AddAttachment Att1
        .Send
    End With
    Set cdomsg = Nothing
End Sub

risposta
di giulio1971 (utente non iscritto) data: 05/09/2016 13:00:06
grazie infinito...ora provo...cosa faccio?? incollo in un txt e lo salvo in formato vba??
risposta
di giulio1971 (utente non iscritto) data: 05/09/2016 14:19:32
Sub inviaelenco()
Dim MyWd As Object
cartella = C:Usersgiulio corradiDesktop est("I2")
FName = Dir(cartella & "*.docx")
r = 2
Sheets(1).Range("B2:B500").ClearContents
Do While FName <> ""
Sheets(2).Columns(1).ClearContents
Set MyWd = GetObject(cartella & "" & FName)
MyWd.ActiveWindow.Selection.WholeStory
MyWd.ActiveWindow.Selection.Copy
With Sheets(2)
.Range("A1").PasteSpecial xlPasteValues
LR = .Cells(.Rows.Count, "A").End(xlUp).Row
mmail = .Range("A" & LR - 1)
mmail = Trim(Right(mmail, Len(mmail) - 7))
End With
Sheets(1).Range("B" & r) = mmail
Sheets(1).Range("E" & r) = FName
r = r + 1
MyWd.Close
FName = Dir
Loop
Sheets(1).Select
LR = Cells(Rows.Count, "B").End(xlUp).Row
For r = 2 To LR
Call InviaMail(r)
Next
End Sub
Sub InviaMail(r)
Da = Range("A2") ' giulioeanto@gmail.com
Text = Range("D2") ' busta paga
Ogg = Range("C2") ' In allegato la sua busta paga
achiTo = Range("B" & r) ' indirizzi di posta elettronica dei destinatari principali.
codice = Range("F2") 'lxxxxxxxxx
server = Range("G2") ' server
port = Range("H2") ' porta
Att1 = Range("I2") & Range("E" & r)
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("h t t p://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
.Item("h t t p://schemas.microsoft.com/cdo/configuration/smtpserver") = server
.Item("h t t p://schemas.microsoft.com/cdo/configuration/smptserverport") = port

.Item("h t t p://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("h t t p://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("h t t p://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("h t t p://schemas.microsoft.com/cdo/configuration/sendusername") = Da ' indirizzo accesso
.Item("h t t p://schemas.microsoft.com/cdo/configuration/sendpassword") = codice 'password accesso
.Update
End With
With cdomsg
.To = achiTo
.From = Da
.Subject = Ogg
.TextBody = Text
.AddAttachment Att1
.Send
End With
Set cdomsg = Nothing
End Sub
se esegui il form con vba dentro word mi da errore di sintassi!!! Dove ho sbagliato?
di Vecchio Frac data: 05/09/2016 14:34:26
Come buona regola (ed è previsto anche dal nostro regolamento) dovresti anche specificare che tipo di errore ricevi e su quale istruzione.
Comunque il codice scritto va fatto girare da Excel, non da Word (la sesta riga, che dice "Sheets(1).Range..." te lo fa capire ampiamente).
risposta
di giulio1971 (utente non iscritto) data: 05/09/2016 14:36:44
mi scuso ma non ho dimestichezza....non vi offendete.....
l'errore me lo da nel I2 errore di sintassi
ora provo cmq con excel
grazie
di patel data: 05/09/2016 15:25:15
ho allegato un file excel (l'ultima clip) e te l'ho anche detto, la macro l'ho pubblicata perché i file allegati spariscono dopo qualche giorno.
Leggi attentamente le risposte.
Risposta
di giulio1971 (utente non iscritto) data: 05/09/2016 16:57:12
Non vorrei farti perdere la pazienza...
Mi devi perdonare ma non capisco una ceppa di visual basic...
Ho scaricato il file Excel ...ma non ho ben capito
se mi serve solo per vedere quello che devo settare..
Non so come potresti aiutarmi più di così ...😔
di patel data: 05/09/2016 17:11:09
come al solito non leggi, non importa che su sappia il VBA, devi aprire il file e modificare le celle che ti ho indicato in giallo
prova il file allegato, devi mettere :
in A2 l'indirizzo del Mittente
in F2 la password dell'account
in I2 il percorso della cartella contenete i file docx
e poi cliccare sul pulsante
Risposta
di Giulio1971 (utente non iscritto) data: 05/09/2016 17:31:24
No guarda...io leggo ..ma resta difficile comunque...
Allora ho aperto il file Excel e modificato le parti in giallo
Poi ho fatto alt +f11 ed ho modificato A2 F2 dopo '
Ma non so dove inserire l'indirizzo della cartella C: est
Nella riga I2 devo aggiungere dopo ("E" & r) ' C: est??

Grazie ti meriti una cena per la pazienza
di patel data: 05/09/2016 17:49:33
quando ti ho detto di fare alt +f11 e di modificare qualcosa ?
ha detto di non sapere di VBA e ti ho fornito un file dove non devi modificare niente del VBA
Risposta
di Giulio1971 (utente non iscritto) data: 05/09/2016 17:53:44
Geniale allora fatte le correzioni opportune devo clikkare il pulsante ...ma quale?
di patel data: 05/09/2016 18:50:23
mi cascano le braccia ... in mezzo al foglio c'è un Pulsantone in colonna C con scritto INVIA
giulio
di giulio1971 (utente non iscritto) data: 05/09/2016 18:50:45
provo ad anticipare.....ho cliccato su macro...esegui...vedo aggiungere i 3 allegati nel file excel ma poi si apre la pagina visual basic con lo script ed evidenziato in giallo stop cion una freccia vicina...
Sento che ci siamo quasi :)
Loop Sheets(1).Select LR = Cells(Rows.Count, "B").End(xlUp).Row Stop For r = 2 To LR Call InviaMail(r) Next End Sub Sub InviaMail(r)
risposta
di giulio1971 (utente non iscritto) data: 05/09/2016 18:52:18
ti cadranno pure le braccia ma non sono cosi' scemo non vedo nessun pulsante invia...
non c'e'
di patel data: 05/09/2016 18:57:14
scusami, avevo allegato un file non definitivo, prova ora, il nome finisce per (2), poi capirai perché ero alterato
risposta
di giulio1971 (utente non iscritto) data: 05/09/2016 19:01:48
Spero di non averti disturbato troppo....comunque ancora non si vede :(
risposta e quesito
di giulio1971 (utente non iscritto) data: 05/09/2016 19:04:40
scusami ma allora devo inserirli manualmente gli indirizzi mail??? e i nomi dei file??
perche io speravo che facesse in automatico...
risposta
di giulio1971 (utente non iscritto) data: 05/09/2016 19:11:08
ora vedo tutto ma vedo già inserito gli indirizzi mail e i nomi dei file...
ti spiego....non sono in ufficio e così ho splittato a mano il file word
ora ho 3 file word che si chiamano non page1 page2 page3 ma test1 test2 test3 ed ho cambiato gli indirizzi mail all'interno per inviarmeli a me stesso facendo prove...
questi dati non li pesca in automatico una volta settato tutto??
di patel data: 05/09/2016 19:18:50
basta dare il nome della cartella, il programma legge i nomi dei file e li inserisce, tu devi soltanto cambiare le celle gialle (come già detto) e cliccare sul pulsante. Se splitti a mano stai attento che l'indirizzo email deve stare nella penultima riga, come fa il tuo software di split.
Occhio che le mail le spedisce, non ti chiede conferma
RISPOSTA
di GIULIO1971 (utente non iscritto) data: 05/09/2016 19:33:44
ALLORA TI HO POSTATO L'ERRORE CON UNA FOTO

PER IL RESTO ORA INSERISCE TUTTO IN AUTOMATICO
di patel data: 05/09/2016 19:39:04
Alt F11, strumenti, riferimenti, quali sono le librerie attivate ?
RISPOSTA
di GIULIO1971 (utente non iscritto) data: 05/09/2016 19:43:41
POSTATA IMMAGINE
di patel data: 05/09/2016 19:53:55
sono corrette, purtroppo questo programma è complesso e non molto adatto per uno poco esperto, sei certo di aver messo i dati giusti riguardo al tuo account ? in quale riga ri verifica l'errore ?
RISPOSTA
di GIULIO1971 (utente non iscritto) data: 05/09/2016 19:55:36
RIGA 57 COLONNA1
risposta
di giulio1971 (utente non iscritto) data: 05/09/2016 20:30:57
ti ho postato errore ...con la scrittura posso forviarti...lo sai
di patel data: 05/09/2016 20:48:23
modifica la riga
Att1 = Range("I2") & Range("E" & r)
in
Att1 = Range("I2") & "" & Range("E" & r)
e poi salva
risposta
di giulio1971 (utente non iscritto) data: 05/09/2016 20:52:16
ok fatto!!! ora va solo che mi da errore ...ma ho capito che è stato google a bloccarmi l'invio per sicurezza
mi è arrivata mail da google...tentativo di accesso...
come bypasso??
risposta
di giulio1971 (utente non iscritto) data: 05/09/2016 21:02:37
risolto ho consentito accesso ad app poco sicure....
Un ultimo favore ...con calma si può inviare file convertiti in pdf??
Grazie mille...io sono di roma....cena pagata!!!
di patel data: 06/09/2016 08:25:37
prova il file allegato WordPdf_mail_multi_send_Gmail.xlsm modificando le celle gialle, non usare il vecchio file
risposta
di giulio1971 (utente non iscritto) data: 06/09/2016 15:01:47
come mai??? cosa aveva di sbagliato il vecchio??
per quanto riguarda la possibilità di spedire i file convertendoli in pdf ....si può fare??
Un abbraccio
di patel data: 06/09/2016 15:10:02
lo vedi che ho ragione ! non leggi attentamente, tu hai chiesto la conversione in pdf ed io ti ho risposto di provare il file allegato WordPdf_mail_multi_send_Gmail.xlsm, non vedi che c'è scritto Wordpdf ?
risposta
di giulio1971 (utente non iscritto) data: 06/09/2016 15:20:42
ho letto ma non va....allega in word
di patel data: 06/09/2016 15:23:29
hai scaricato il file giusto ? quale versione di excel hai ?
risposta
di giulio1971 (utente non iscritto) data: 06/09/2016 15:31:28
si ho scaricato quello giusto....excel 2013
di patel data: 06/09/2016 16:52:45
incolla qui la macro
risposta
di giulio1971 (utente non iscritto) data: 06/09/2016 16:58:04
ti ho allegato un txt con la macro
di patel data: 06/09/2016 17:06:09
il file è quello giusto, non vedi comparire nella colonna degli allegati i nomi con l'estensione pdf ? nella cartella dei docx non ci sono anche i pdf creati dalla macro ?
risposta
di giulio1971 (utente non iscritto) data: 06/09/2016 18:28:06
allora.....crea i pdf ma allega alla mail i docx
giulio1971
di giulio1971 (utente non iscritto) data: 06/09/2016 18:40:09
ok tutto risolto.....dipendeva dal pc....
grande!!!!!!

di patel data: 06/09/2016 19:00:04
perché dipendeva dal pc ?
allego qui sotto il codice finale visto che gli allegati spariranno

Sub inviaelenco()
Dim MyWd As Object
cartella = Range("I2")
fname = Dir(cartella & "*.docx")
r = 2
Sheets(1).Range("B2:B500").ClearContents
Do While fname <> ""
  Sheets(2).Columns(1).ClearContents
  Set MyWd = GetObject(cartella & "" & fname)
  MyWd.ActiveWindow.Selection.WholeStory
  MyWd.ActiveWindow.Selection.Copy
  With Sheets(2)
    .Range("A1").PasteSpecial xlPasteValues
    LR = .Cells(.Rows.Count, "A").End(xlUp).Row
    mmail = .Range("A" & LR - 1)
    mmail = Trim(Right(mmail, Len(mmail) - 7))
    fname = Left(fname, Len(fname) - 4) & "pdf"
    pdfname = cartella & "" & fname
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfname, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  End With
  Sheets(1).Range("B" & r) = mmail
  Sheets(1).Range("E" & r) = fname
  r = r + 1
  MyWd.Close
  fname = Dir
Loop
Sheets(1).Select
LR = Cells(Rows.Count, "B").End(xlUp).Row
For r = 2 To LR
  Call InviaMail(r)
Next
End Sub

Sub InviaMail(r)
Da = Range("A2")  ' indirizzo accesso
Text = Range("D2") ' Testo
Ogg = Range("C2") ' breve descrizione dell'oggetto del messaggio
achiTo = Range("B" & r) ' indirizzi di posta elettronica dei destinatari principali.
codice = Range("F2") 'password accesso
server = Range("G2")   ' server
port = Range("H2")       ' porta
Att1 = Range("I2") & "" & Range("E" & r)
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
  .Item("h t t p://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
  .Item("h t t p://schemas.microsoft.com/cdo/configuration/smtpserver") = server
  .Item("h t t p://schemas.microsoft.com/cdo/configuration/smptserverport") = port

  .Item("h t t p://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  .Item("h t t p://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
  .Item("h t t p://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
  .Item("h t t p://schemas.microsoft.com/cdo/configuration/sendusername") = Da ' indirizzo accesso
  .Item("h t t p://schemas.microsoft.com/cdo/configuration/sendpassword") = codice 'password accesso 
  .Update
End With
With cdomsg
        .To = achiTo
        .From = Da
        .Subject = Ogg
        .TextBody = Text
        .AddAttachment Att1
        .Send
End With
Set cdomsg = Nothing
End Sub

risposta
di giulio1971 (utente non iscritto) data: 07/09/2016 10:34:08
nel pc dove stavo facendo le prove non mi faceva scrivere su c:

Grazie ancora di tutto!!!
Hai la mia mail se mi scrivi con la tua ci mettiamo d'accordo per il pranzo :)

Un saluto
di patel data: 07/09/2016 17:04:28
la tua mail me la sono persa, ma hai anche tu la mia, comunque è più probabile che venga tu a Livorno che io a Roma, quindi cena virtuale pagata
Risposta
di Giulio1971 (utente non iscritto) data: 11/09/2016 15:11:51
Scusa se torno a disturbarti...ma ho 3 problemi:
1)il file Excel che spediva i file in formato Word non funziona più ...è normale??
2)cambiando indirizzo email del mittente mi dà un errore forse il nome della mail non deve essere tanto lungo??
3)il Pdf che genera è comunque con le colonne non allineate
Puoi risolvermi questi problemi?
Buona domenica
Un abbraccio
risposta
di giulio1971 (utente non iscritto) data: 11/09/2016 17:17:54
allora il problema 1 risolto.......avevo preso il file sbagliato
attendo risposte per gli altri due quesiti....intanto faccio altre prove.
Grazie
di patel data: 11/09/2016 17:47:46
2)cambiando indirizzo email del mittente mi dà un errore forse il nome della mail non deve essere tanto lungo??
non credo, probabilmente non hai cambiato la password dell'account

3)il Pdf che genera è comunque con le colonne non allineate
vai sul foglio2, seleziona la colonna A e imposta il carattere Curier New o altro a larghezza fissa
Risposta
di Giulio1971 (utente non iscritto) data: 11/09/2016 18:19:01
Risolto tutto ...ottima dritta...per la mail sbagliavo la password
Per quanto riguarda il pdf ho risolto con courer New
Grazie milleeeeee👏🏻💪🏻👋🏻👍🏻

Vuoi Approfondire?