Condividi:        

Invio mail da excel tutte diverse

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Invio mail da excel tutte diverse

Postdi lellolory » 30/01/17 15:50

Ciao a tutti, cercherò di essere il più chiaro possibile nel descrivere il problema.
Ho creato un database con dei codici prodotto ed i loro giorni di ritardo.

Ogni settimana aggiorno questo DB e di conseguenza cambiano le posizioni dei fornitori in base ai giorni di ritardo medi.
Ho creato una tabella pivot per ricapitolare i dati ed ordinare i fornitori in base al ritardo.

Vorrei avere un file che mi mandi delle email singole ai fornitori con più di 7 giorni di ritardo.
Il corpo della mail è una frase standard più una tabella riepilogativa che si ottiene cliccando due volte sulla cella della colonna "media giorni di ritardo" (dalla tabella pivot).

Ad ogni mail dovrei mettere in cc sempre gli stessi indirizzi mail, non cambiano mai.
Riassumendo quello che cambia è:
1) il destinatario
2) la tabella da mettere nella mail

Se risulta più facile la tabella riepilogativa potrei metterla anche come allegato, non mi fa differenza.


Spero di esser stato chiaro, vi allego il database che ho creato.
lellolory
Utente Junior
 
Post: 18
Iscritto il: 23/01/14 10:41

Sponsor
 

Re: Invio mail da excel tutte diverse

Postdi ricky53 » 30/01/17 15:53

Ciao,
non hai allegato il tuo file.

Che gestore di posta utilizzi?

Come te la cavi con il VBA e la programmazione?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Invio mail da excel tutte diverse

Postdi lellolory » 30/01/17 15:54

lellolory
Utente Junior
 
Post: 18
Iscritto il: 23/01/14 10:41

Re: Invio mail da excel tutte diverse

Postdi lellolory » 30/01/17 15:55

ricky53 ha scritto:Ciao,
non hai allegato il tuo file.

Che gestore di posta utilizzi?

Come te la cavi con il VBA e la programmazione?



Ciao, scusa ho omesso...
Deve interfacciarsi con Outlook 2007, e con vba e programmazione sono a zero.
lellolory
Utente Junior
 
Post: 18
Iscritto il: 23/01/14 10:41

Re: Invio mail da excel tutte diverse

Postdi ricky53 » 30/01/17 16:16

Ciao,
nel forum ci sono tanti esempi di invio e-mail in modo automatico ...
ti invio il link di una delle ultime discussioni in cui si utilizza outlook
viewtopic.php?f=26&t=108051

Intanto inizia a studiare come viene preparata la macro e prendi confidenza con il codice scritto dall'eccelso Anthony

Vedo problematica la produzione automatica della tabella da allegare partendo dalla pivot ... forse si possono prendere i dati necessari dal foglio "DB" e scriverli nel testo della e-mail, per me è più fattibile ma ... ragioniamoci su.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Invio mail da excel tutte diverse

Postdi lellolory » 30/01/17 17:10

ricky53 ha scritto:Ciao,
nel forum ci sono tanti esempi di invio e-mail in modo automatico ...
ti invio il link di una delle ultime discussioni in cui si utilizza outlook
viewtopic.php?f=26&t=108051

Intanto inizia a studiare come viene preparata la macro e prendi confidenza con il codice scritto dall'eccelso Anthony

Vedo problematica la produzione automatica della tabella da allegare partendo dalla pivot ... forse si possono prendere i dati necessari dal foglio "DB" e scriverli nel testo della e-mail, per me è più fattibile ma ... ragioniamoci su.




Ho letto proprio questo post prima di scrivere. Purtroppo sono negato non capisco veramente nulla.
Speriamo di riuscire insieme a far qualcosina
lellolory
Utente Junior
 
Post: 18
Iscritto il: 23/01/14 10:41

Re: Invio mail da excel tutte diverse

Postdi Anthony47 » 31/01/17 23:43

Nell'ipotesi di voler inglobare la tabella nel testo della mail (che per me e' piu' semplice) quali sono le colonne che bisogna inserire?

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19183
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Invio mail da excel tutte diverse

Postdi lellolory » 01/02/17 08:56

Anthony47 ha scritto:Nell'ipotesi di voler inglobare la tabella nel testo della mail (che per me e' piu' semplice) quali sono le colonne che bisogna inserire?


Ciao



Tutte, vanno bene tutte. E' fattibile?
Grazie
lellolory
Utente Junior
 
Post: 18
Iscritto il: 23/01/14 10:41

Re: Invio mail da excel tutte diverse

Postdi Anthony47 » 03/02/17 00:59

Premesso che credo poco nell'utilita'di mail automatiche, che possono sfociare nello spamming o in imbarazzanti errori; meglio sarebbe che le mail partissero verso i buyer responsabili dei fornitori ritardatari e ci pensassero loro a inoltrarle, se veramente e' utile.

Cio' detto...
Supponiamo che in Foglio3 hai una tabella con in colonna A il nome del fornitore e in colonna B l'indirizzo email corrispondente.
Per cominciare, in un foglio che chiamerai MESS, da A1 in avanti scriverai un messaggio standard di acccompagnamento, anche su piu' righe, compreso la firma. Il resto del foglio lascialo vuoto, sara' usato per riepilogare le righe del DB che appartengono a quel fornitore, corrispondente alle righe che si ottengono facendo doppioclick sulla riga del fornitore.
Puoi occupare quante righe vuoi.
Supponiamo che la tabella pivot abbia esattamente la struttura del file che hai pubblicato e si trovi nel foglio "Tot Forn.Imp.GG", e che l'intestazione di colonna F cominci sempre con "Media gg ritardo".

Tutto cio' premesso, penso che questo codice ti puo' aiutare a ottenere quanto chiedi:
Codice: Seleziona tutto
Dim OutlookApp As Object    'RIGOROSAMENTE IN TESTA AL MODULO

Sub solleciti()
'vedi http://www.pc-facile.com/forum/viewtopic.php?f=26&t=108130
Dim lastF As Long, HF As Boolean, I As Long, Soglia As Long, msSh As Worksheet
Dim mAreaLR As Long, mAreaLC As Long, msNext As Long, pubArea As String, shEmail As Worksheet
Dim myMatch, toEmail As String, pvtSh As Worksheet, mCnt As Long
'
Set pvtSh = Sheets("Tot Forn.Imp.GG")   '<<< Il foglio con la pivot table
Set msSh = Sheets("MESS")               '<<< Il foglio col messaggio di accompagnamento
Set shEmail = Sheets("Foglio2")         '<<< Il foglio con la mappa Fornitore /Email
Soglia = -7                             '<<< La soglia reale, NUMERO NEGATIVO
'
lastF = pvtSh.Cells(Rows.Count, "F").End(xlUp).Row
Set OutlookApp = CreateObject("Outlook.Application")
For I = 1 To lastF
    pvtSh.Select
    If HF Then
        If IsNumeric(Cells(I, "F").Value) Then
            If Cells(I, "F").Value < Soglia Then
                myMatch = Application.Match(Cells(I, "B").Value, shEmail.Range("A:A"), 0)
                Cells(I, "F").ShowDetail = True
                If Not IsError(myMatch) Then        'Controlla presenza email
'                    Cells(I, "F").ShowDetail = True
                    toEmail = shEmail.Cells(myMatch, "B").Value
                    msNext = msSh.Cells(Rows.Count, "A").End(xlUp).Row
                    Range("A1").CurrentRegion.Copy _
                        msSh.Cells(msNext + 3, 1)
                    Application.DisplayAlerts = False
                    ActiveSheet.Delete
                    Application.DisplayAlerts = True
                    mAreaLR = msSh.Cells(Rows.Count, "A").End(xlUp).Row
                    mAreaLC = msSh.Cells(msNext + 3, Columns.Count).End(xlToLeft).Column
                    pubArea = msSh.Range(msSh.Range("A1"), msSh.Cells(mAreaLR, mAreaLC)).Address
                    mymess = Replace(RangePublish(msSh.Name, pubArea), "align=center", "align=left", , , vbTextCompare)
                    Call SendMess(mymess, toEmail)
                    msSh.Range(msSh.Cells(msNext, "A"), msSh.Cells(mAreaLR, mAreaLC)).Clear
                    mCnt = mCnt + 1
                End If
            End If
        End If
    Else
        If UCase(Left(Cells(I, "F"), 16)) = UCase("Media gg ritardo") Then HF = True
    End If
Next I
Set OutlookApp = Nothing
MsgBox ("Solleciti Spediti, tot. " & mCnt)
End Sub

Sub SendMess(ByVal myM As String, myD As String)
  Dim MItem As Object
  Dim Subj As String
'
Subj = "Solleciti al " & Format(Now, "dd-mmm-yyyy")
Set MItem = OutlookApp.CreateItem(0)
With MItem
  .To = myD
  .cc = "Indirizzo1@dominio1"      '<<<< INDIRIZZO IN COPIA
  .Subject = Subj
  .htmlBody = myM
'  .display
  .Send
End With
Application.Wait (Now + TimeValue("0:00:02"))
Set MItem = Nothing
End Sub

Function RangePublish(ByVal mySh As String, ByVal PRan As String) As Variant
'Vedi http://www.pc-facile.com/forum/viewtopic.php?f=26&t=101351
'
Dim TmpFile As String, myBDT As String, PubFile
TmpFile = Environ("Temp") & "\myBDT.htm"    'Lavora in Temp
'Crea file html:
With ThisWorkbook.PublishObjects.Add(SourceType:=xlSourceRange, _
    Filename:=TmpFile, _
    Sheet:=mySh, _
    Source:=PRan, _
    HtmlType:=xlHtmlStatic)
    .Publish (True)
End With
'
Set FSO = CreateObject("Scripting.FilesystemObject")
Set PubFile = FSO.OpenTextFile(TmpFile, 1, False)
  RangePublish = PubFile.ReadAll
PubFile.Close
'
End Function


Inserisci tutto in un Modulo standard del vba; per questo, partendo da Excel:
-premi Alt-F11 per aprire l'editor delle macro
-Menu /Inserisci /Modulo
-Copia il codice e incollalo nel frame dx del modulo appena creato
Personalizza le righe marcate <<< come da commenti.

Poi torna su Excel e all'occorrenza lancia la Sub solleciti:
-premi Alt-F8
-seleziona SOLLECITI dall'elenco di macro disponibili
-premi Esegui

Nel caso di Fornitori di cui non viene trovata la mail nel foglio Fornitore /Email, il foglio dei "dettagli" rimane aperto per le azioni del caso.

Non so se Outlook2007 al momento dell'invio procedera' in modo silente (come fa OL2010) o se segnalera' un tentativo di invio, con invito all'operatore di confermare o smentire (come faceva OL2003); quindi magari dovremo affinare qualcosa.

Prova e fai sapere.
Avatar utente
Anthony47
Moderatore
 
Post: 19183
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Invio mail da excel tutte diverse

Postdi lellolory » 03/02/17 13:03

Anthony47 ha scritto:Premesso che credo poco nell'utilita'di mail automatiche, che possono sfociare nello spamming o in imbarazzanti errori; meglio sarebbe che le mail partissero verso i buyer responsabili dei fornitori ritardatari e ci pensassero loro a inoltrarle, se veramente e' utile.

Cio' detto...
Supponiamo che in Foglio3 hai una tabella con in colonna A il nome del fornitore e in colonna B l'indirizzo email corrispondente.
Per cominciare, in un foglio che chiamerai MESS, da A1 in avanti scriverai un messaggio standard di acccompagnamento, anche su piu' righe, compreso la firma. Il resto del foglio lascialo vuoto, sara' usato per riepilogare le righe del DB che appartengono a quel fornitore, corrispondente alle righe che si ottengono facendo doppioclick sulla riga del fornitore.
Puoi occupare quante righe vuoi.
Supponiamo che la tabella pivot abbia esattamente la struttura del file che hai pubblicato e si trovi nel foglio "Tot Forn.Imp.GG", e che l'intestazione di colonna F cominci sempre con "Media gg ritardo".

Tutto cio' premesso, penso che questo codice ti puo' aiutare a ottenere quanto chiedi:
Codice: Seleziona tutto
Dim OutlookApp As Object    'RIGOROSAMENTE IN TESTA AL MODULO

Sub solleciti()
'vedi http://www.pc-facile.com/forum/viewtopic.php?f=26&t=108130
Dim lastF As Long, HF As Boolean, I As Long, Soglia As Long, msSh As Worksheet
Dim mAreaLR As Long, mAreaLC As Long, msNext As Long, pubArea As String, shEmail As Worksheet
Dim myMatch, toEmail As String, pvtSh As Worksheet, mCnt As Long
'
Set pvtSh = Sheets("Tot Forn.Imp.GG")   '<<< Il foglio con la pivot table
Set msSh = Sheets("MESS")               '<<< Il foglio col messaggio di accompagnamento
Set shEmail = Sheets("Foglio2")         '<<< Il foglio con la mappa Fornitore /Email
Soglia = -7                             '<<< La soglia reale, NUMERO NEGATIVO
'
lastF = pvtSh.Cells(Rows.Count, "F").End(xlUp).Row
Set OutlookApp = CreateObject("Outlook.Application")
For I = 1 To lastF
    pvtSh.Select
    If HF Then
        If IsNumeric(Cells(I, "F").Value) Then
            If Cells(I, "F").Value < Soglia Then
                myMatch = Application.Match(Cells(I, "B").Value, shEmail.Range("A:A"), 0)
                Cells(I, "F").ShowDetail = True
                If Not IsError(myMatch) Then        'Controlla presenza email
'                    Cells(I, "F").ShowDetail = True
                    toEmail = shEmail.Cells(myMatch, "B").Value
                    msNext = msSh.Cells(Rows.Count, "A").End(xlUp).Row
                    Range("A1").CurrentRegion.Copy _
                        msSh.Cells(msNext + 3, 1)
                    Application.DisplayAlerts = False
                    ActiveSheet.Delete
                    Application.DisplayAlerts = True
                    mAreaLR = msSh.Cells(Rows.Count, "A").End(xlUp).Row
                    mAreaLC = msSh.Cells(msNext + 3, Columns.Count).End(xlToLeft).Column
                    pubArea = msSh.Range(msSh.Range("A1"), msSh.Cells(mAreaLR, mAreaLC)).Address
                    mymess = Replace(RangePublish(msSh.Name, pubArea), "align=center", "align=left", , , vbTextCompare)
                    Call SendMess(mymess, toEmail)
                    msSh.Range(msSh.Cells(msNext, "A"), msSh.Cells(mAreaLR, mAreaLC)).Clear
                    mCnt = mCnt + 1
                End If
            End If
        End If
    Else
        If UCase(Left(Cells(I, "F"), 16)) = UCase("Media gg ritardo") Then HF = True
    End If
Next I
Set OutlookApp = Nothing
MsgBox ("Solleciti Spediti, tot. " & mCnt)
End Sub

Sub SendMess(ByVal myM As String, myD As String)
  Dim MItem As Object
  Dim Subj As String
'
Subj = "Solleciti al " & Format(Now, "dd-mmm-yyyy")
Set MItem = OutlookApp.CreateItem(0)
With MItem
  .To = myD
  .cc = "Indirizzo1@dominio1"      '<<<< INDIRIZZO IN COPIA
  .Subject = Subj
  .htmlBody = myM
'  .display
  .Send
End With
Application.Wait (Now + TimeValue("0:00:02"))
Set MItem = Nothing
End Sub

Function RangePublish(ByVal mySh As String, ByVal PRan As String) As Variant
'Vedi http://www.pc-facile.com/forum/viewtopic.php?f=26&t=101351
'
Dim TmpFile As String, myBDT As String, PubFile
TmpFile = Environ("Temp") & "\myBDT.htm"    'Lavora in Temp
'Crea file html:
With ThisWorkbook.PublishObjects.Add(SourceType:=xlSourceRange, _
    Filename:=TmpFile, _
    Sheet:=mySh, _
    Source:=PRan, _
    HtmlType:=xlHtmlStatic)
    .Publish (True)
End With
'
Set FSO = CreateObject("Scripting.FilesystemObject")
Set PubFile = FSO.OpenTextFile(TmpFile, 1, False)
  RangePublish = PubFile.ReadAll
PubFile.Close
'
End Function


Inserisci tutto in un Modulo standard del vba; per questo, partendo da Excel:
-premi Alt-F11 per aprire l'editor delle macro
-Menu /Inserisci /Modulo
-Copia il codice e incollalo nel frame dx del modulo appena creato
Personalizza le righe marcate <<< come da commenti.

Poi torna su Excel e all'occorrenza lancia la Sub solleciti:
-premi Alt-F8
-seleziona SOLLECITI dall'elenco di macro disponibili
-premi Esegui

Nel caso di Fornitori di cui non viene trovata la mail nel foglio Fornitore /Email, il foglio dei "dettagli" rimane aperto per le azioni del caso.

Non so se Outlook2007 al momento dell'invio procedera' in modo silente (come fa OL2010) o se segnalera' un tentativo di invio, con invito all'operatore di confermare o smentire (come faceva OL2003); quindi magari dovremo affinare qualcosa.

Prova e fai sapere.



Allora, intanto grazie mille.
Ti dico i problemi rilevati.

1) quando scrivo il corpo del messaggio su più colonne successivamente le righe della tabella pivot assumono quella dimensione e o sono troppo larghe o sono troppo strette. Quindi io leggo il messaggio ma poi il corpo della mail (che sarebbero le righe derivanti dalla tabella pivot) non è leggibile o è tutto sformato.

2)Il messaggio viene inviato solo al 1°/2° fornitore. In particolare al primo fornitore viene mandato il messaggio completo che è presente nella scheda MESS, ma poi dal secondo fornitore il messaggio nella scheda MESS viene cancellato e gli arriva solo una parola.
Agli altri fornitori arriva solo il corpo della mail senza messagio, infatti quando la macro ha finito mi crea un foglio aggiuntivo dove ci sono solo due righe, quelle dei primi due fornitori. Mi posiziona altre righe in fondo al foglio (riga 10000).

Praticamente se nella scheda MESS inserisco un messaggio su più righe, lui ad ogni mail inviata elimina una riga.

3) in mancanza di indirizzo mail crea un foglio nuovo con il fornitore non contattato, ma nessun messaggio mi compare.
lellolory
Utente Junior
 
Post: 18
Iscritto il: 23/01/14 10:41

Re: Invio mail da excel tutte diverse

Postdi Anthony47 » 04/02/17 01:09

Allora...
Per meglio gestire il messaggio fisso ho portato fuori dal loop il calcolo della sua lunghezza; questo dovrebbe evitare che venga tagliato per errore.
Inoltre ho visto che la macro cerca di spedire anche la mail sulla riga Totale complessivo, quindi ho modificato il loop in modo da terminare una riga prima della fine
Per quanto riguarda la leggibilita' di 16 colonne, sapevo che sarebbe stata dura renderle leggibili, per questo ti avevo chiesto quali colonne inserire.
Facciamo cosi':
-fai doppioclick su una riga qualsias in modo da espandere il risultato di quel fornitore.
-quando sei sul nuovo foglio, avvia la registrazione di una macro mentre disciplinatamente formatti le colonne una per una in modo da assegnare la larghezza, il font, l'eventuale "testo a capo" per leggere su piu' righe testi troppo lunghi, anche "nascondere eventuali colonne inutili".
Poi nella mia macro richiami questa tua macro inserendo subito dopo la riga Cells(I, "F").ShowDetail = True questa nuova istruzione:
Codice: Seleziona tutto
Call NOME-TUA-MACRO-REGISTRATA


Il codice della nuova "Sub Solleciti" contenente queste modifiche:
Codice: Seleziona tutto
Sub Solleciti()
'vedi http://www.pc-facile.com/forum/viewtopic.php?f=26&t=108130
Dim lastF As Long, HF As Boolean, I As Long, Soglia As Long, msSh As Worksheet
Dim mAreaLR As Long, mAreaLC As Long, msNext As Long, pubArea As String, shEmail As Worksheet
Dim myMatch, toEmail As String, pvtSh As Worksheet, mCnt As Long
'
Set pvtSh = Sheets("Tot Forn.Imp.GG")   '<<< Il foglio con la pivot table
Set msSh = Sheets("MESS")               '<<< Il foglio col messaggio di accompagnamento
Set shEmail = Sheets("Foglio2")         '<<< Il foglio con la mappa Fornitore /Email
Soglia = -10                             '<<< La soglia reale, NUMERO NEGATIVO
'
lastF = pvtSh.Cells(Rows.Count, "F").End(xlUp).Row
msNext = msSh.Cells(Rows.Count, "A").End(xlUp).Row + 1
Set OutlookApp = CreateObject("Outlook.Application")
For I = 1 To lastF - 1
    pvtSh.Select
    If HF Then
        If IsNumeric(Cells(I, "F").Value) Then
            If Cells(I, "F").Value < Soglia Then
                myMatch = Application.Match(Cells(I, "B").Value, shEmail.Range("A:A"), 0)
                Cells(I, "F").ShowDetail = True
'                Call NOME-TUA-MACRO-REGISTRATA     '<<<<<<<<<<<<<<<<<<<<<<
                If Not IsError(myMatch) Then        'Controlla presenza email
'                    Cells(I, "F").ShowDetail = True
                    toEmail = shEmail.Cells(myMatch, "B").Value
'                    msNext = msSh.Cells(Rows.Count, "A").End(xlUp).Row
                    Range("A1").CurrentRegion.Copy _
                        msSh.Cells(msNext + 3, 1)
                    Application.DisplayAlerts = False
                    ActiveSheet.Delete
                    Application.DisplayAlerts = True
                    mAreaLR = msSh.Cells(Rows.Count, "A").End(xlUp).Row
                    mAreaLC = msSh.Cells(msNext + 3, Columns.Count).End(xlToLeft).Column
                    pubArea = msSh.Range(msSh.Range("A1"), msSh.Cells(mAreaLR, mAreaLC)).Address
                    mymess = Replace(RangePublish(msSh.Name, pubArea), "align=center", "align=left", , , vbTextCompare)
                    Call SendMess(mymess, toEmail)
                    msSh.Range(msSh.Cells(msNext, "A"), msSh.Cells(mAreaLR, mAreaLC)).Clear
                    mCnt = mCnt + 1
                End If
            End If
        End If
    Else
        If UCase(Left(Cells(I, "F"), 16)) = UCase("Media gg ritardo") Then HF = True
    End If
Next I
Set OutlookApp = Nothing
MsgBox ("Solleciti Spediti, tot. " & mCnt)
End Sub

La riga mrcata <<<<<<<<<<<<<<<<<<<<<< deve essere modificata col nome della tua macro registrata, poi va tolto l'apostrofo a inizio riga.
Devi sostituire solo il codice della Sub Solleciti, da Sub Solleciti() a End Sub; il codice della Sub SendMess e della Function RangePublish rimane invariato.

Per le istruzioni su come registrare una macro:
viewtopic.php?f=26&t=103893&p=622593#p622593

Come avevo detto, "Nel caso di Fornitori di cui non viene trovata la mail nel foglio Fornitore /Email, il foglio dei "dettagli" rimane aperto per le azioni del caso."

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19183
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Invio mail da excel tutte diverse

Postdi lellolory » 10/02/17 15:07

Perfetto! Sembra funzionare tutto a parte il messaggio con la firma. Purtroppo non riesco a mettere il messaggio con delle dimensioni accettabili in maniera tale da non avere problemi con la larghezza delle celle facenti parte del corpo del messaggio.

C'è un modo di staccare il messaggio dalla tabella?
Ricordo che il messaggio è sempre lo stesso per ogni destinatario.

Grazie
lellolory
Utente Junior
 
Post: 18
Iscritto il: 23/01/14 10:41

Re: Invio mail da excel tutte diverse

Postdi Anthony47 » 11/02/17 19:58

Con la procedura che ti ho detto io invio il mio messaggio perfettamente leggibile (per il messaggio standard uso solo la colonna A); poi ovviamente se allego una tabella con 20 colonne devo scorrere in orizzontale la tabella per leggere quelle fuori schermo.
Mi alleghi uno screenshot di come compare nella mail ricevuta il messaggio?

Per le istruzioni su come allegare una immagine:
viewtopic.php?f=26&t=103893&p=605488#p605488

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19183
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Invio mail da excel tutte diverse":


Chi c’è in linea

Visitano il forum: Nessuno e 70 ospiti