Condividi:        

invio automatico mail al verificarsi di una data

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

Re: invio automatico mail al verificarsi di una data

Postdi Anthony47 » 18/06/15 21:27

Prova con
Codice: Seleziona tutto
bodytext = Join(WorksheetFunction.Transpose(Range("A3.A8")), vbCrLf)

Quanto alla formattazione, il tuo "body" della mail e' di tipo "text", che non e' in grado di supportare la formattazione.
Se vuoi il testo formattato devi creare un testo html, con gli appositi tag di formattazione (quelli previsti dal linguaggio html).
Per questo potrai utilizzare il metodo e la Function RangePublish suggerita a deamtime in questa discussione: viewtopic.php?t=101351#p586218

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

Sponsor
 

Re: invio automatico mail al verificarsi di una data

Postdi ciccioILpacco » 19/06/15 08:40

ciao Anthony, ti ringrazio è l'ennesimo passo avanti, non c'è bisogno di creare un testo html, vorrei solo riuscire a "copiare" 3 colonne nel corpo della mail e non una sola come nella riga di codice che mi hai fatto vedere.
Sto facendo vari tentativi ma non ci riesco, mi illumini??
Grazie
ciccioILpacco
Utente Junior
 
Post: 13
Iscritto il: 10/06/15 17:34

Re: invio automatico mail al verificarsi di una data

Postdi Anthony47 » 20/06/15 01:51

Quindi vuoi mettere insieme nel testo della mail il contenuto d N colonne e M righe?
Non hai pero' detto come vuoi arrangiarle, per cui faccio a mia fantasia: prova a usare questo pezzo di codice, che ti mette nella variabile myMess il cntenuto dell'area che indichi nell' istruzione marcata <<<:
Codice: Seleziona tutto
With Range("B5:D10")            '<<< Il tuo range
    For I = 1 To .Rows.Count
        For J = 1 To .Columns.Count
            myMess = myMess & " " & .Cells(I, J)
        Next J
        myMess = myMess & vbCrLf
    Next I
End With
myMess = Trim(myMess)

Poi usi myMess per compilare Bodytext, es
Codice: Seleziona tutto
Bodytext = "Carissimo pincopalla, " & vbcrlf & myMess & "Cordiali saluti"

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

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "invio automatico mail al verificarsi di una data":


Chi c’è in linea

Visitano il forum: Marius44 e 49 ospiti