Topic: Mancata spaziatura tra parole nel testo email

[GB65]

Buonasera, un saluto a tutti voi. Vi chiedo aiuto su "scoglio" insormontabile per lo scrivente.

Con la seguente macro prendo un testo composto da una data e un nome cliente e popolo l'email per spedirla.

Ma non riesco a impostare una spaziatura decente quindi il risultato è poco leggibile.
Esempio:
ora è cosi --> 12/11/15 Pippo 12/11/15 Pluto
ideale è cosi --> 12/11/15 Pippo
                                  12/11/15 Pluto

Codice: [Seleziona]

Sub SendMailTB()
Dim invio As String
Dim dest As String
Dim obj As String
Dim testo As String
Dim dati As String

uRg = ActiveSheet.Cells(Rows.Count, "AJ").End(xlUp).Row
For i = 8 To uRg
    testo = testo & Range("AJ" & i).Text & " " & Range("AK" & i).Text & vbLf
Next i
obj = "" ' "Avviso mancato ritiro merce"
testo = "testo della eMail"
invio = "C:\Program Files\Mozilla Thunderbird\thunderbird.exe" 
   
dati = " -compose " & "to=" & dest & "," & "subject=" & obj & "," & "body=" & testo


Shell invio & dati, vbNormalFocus
End Sub

Ho anche provato a sostituire:

Codice: [Seleziona]

vbLf, con Chr(13)
oppure Chr(10)
oppure tutti e due Chr(13)+Chr(10)

Senza risultato alcuno.

Grazie in anticipo per l'eventuale aiuto.

[GB65]

Buona sera,
nessuno di buon cuore che possa contribuire alla soluzione?
 

[klades]

Anche se è una mail in puro testo, prova a usare i tag HTML e cioè mettere per a capo

Codice: [Seleziona]

<br> anziché Chr(13) e/o Chr(10)

[GB65]

Scusandomi per il notevole ritardo nel provare il suggerimento.
Nel fare la correzione mi dà "errore di compilazione errore di sintassi". Cosa sbaglio?

Codice: [Seleziona]

Sub SendMailTB()
Dim invio As String
Dim dest As String
Dim obj As String
Dim testo As String
Dim dati As String


dest = Sheets("indirizzi").Range("A2") 'cella in cui appare l'indirizzo dei/del destinatari/io
obj = "Avviso mancato ritiro merce" ' "Sollecito ritiro merce" oppure "Avviso mancato ritiro merce"
uRg = ActiveSheet.Cells(Rows.Count, "AJ").End(xlUp).Row
For i = 8 To uRg
testo = testo & Range("AJ" & i).Text & " " & Range("AK" & i).Text & <br>
Next i


invio = "C:\PostaElettronica\thunderbird.exe"  'percorso completo dell'avvio di Thunderbird
    'per esempio: "C:\Program Files\Mozilla Thunderbird\thunderbird.exe"


dati = " -compose " & "to=" & dest & "," & "subject=" & obj & "," & "body=" & testo


Shell invio & dati, vbNormalFocus
End Sub





Grazie in anticipo
GB

[klades]

Codice: [Seleziona]

<br> è una stringa

Codice: [Seleziona]

"<br>"Tu l'hai messo come variabile.

[GB65]

Scusami per la necessità di avere una conferma da dummies, quindi il codice è il seguente?

Codice: [Seleziona]

Sub SendMailTB()
Dim invio As String
Dim dest As String
Dim obj As String
Dim testo As String
Dim dati As String


dest = Sheets("indirizzi").Range("A2") 'cella in cui appare l'indirizzo dei/del destinatari/io
obj = "Avviso mancato ritiro merce" ' "Sollecito ritiro merce" oppure "Avviso mancato ritiro merce"
uRg = ActiveSheet.Cells(Rows.Count, "AJ").End(xlUp).Row
For i = 8 To uRg
testo = testo & Range("AJ" & i).Text & " " & Range("AK" & i).Text & "<br>"
Next i


invio = "C:\PostaElettronica\thunderbird.exe"  'percorso completo dell'avvio di Thunderbird
    'per esempio: "C:\Program Files\Mozilla Thunderbird\thunderbird.exe"


dati = " -compose " & "to=" & dest & "," & "subject=" & obj & "," & "body=" & testo


Shell invio & dati, vbNormalFocus
End Sub


Grazie..per la comprensione. In ogni caso domani sono in azienda e provo. 

[klades]

Sì, dovrebbe essere giusto, facci sapere

[GB65]

 
Confermo che la vs. indicazione ha funzionato.

Grazie ancora.
GB65