Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Listbox -----> Body e-mail

Salve,
Volevo sapere se c'e' un modo per inserire il contenuto di una listbox
(list1.text) nel corpo del messaggio di una e-mail. Le ho provate tutte, ma
non sono riuscito a combinare niente. In alternativa avrei pensato di usare
una textbox, ma in questo caso, ho il problema che quando inserisco il
contenuto della textbox nell'email, non mi porta a capo. Se ad esempio ho
una lista del tipo:
1
2
3
Portata nel corpo dell' e-mail diventa 123, come posso fare?
Grazie.

 ha scritto nel messaggio
news:99nc2f$n9h$1...@fe1.cs.interbusiness.it...

Non so cosa usi per inviare la mail, comunque basta fare così:
Dim strBody as String
Dim intConta as Integer
strBody = Empty
For intConta = 0 To list1.ListCount - 1
    strBody = strBody & vbCrLf & list1.List(intConta)
Next intConta
In strBody hai gli elementi della lista uno per ogni riga. Ciao

 Grazie, ma utilizzando questo codice, mi da lo stesso effetto come se
usassi una textbox, cioe' la seconda riga della listbox anziche' andare a
capo, mi si unisce alla prima riga.
Praticamente:
questa e' lariga1questa e' la riga2
invece vorrei che diventasse:
questa e' la riga1
questa e' la riga 2
Grazie.


 ha scritto nel messaggio
news:99nl04$pul$1...@fe2.cs.interbusiness.it...


 wrote in message
news:99nc2f$n9h$1...@fe1.cs.interbusiness.it...


No, non fuziona,
a meno che non ci sia un modo per far diventare i messaggi di OE da testo ad
html (da VB). Oppure, sempre da VB riuscire a richiamare la funzione di OE
presente nel menu "Insert" di "Text from file".
A dire la verita' comunque avevo pensato anche un altra cosa:
contare il numero dei caratteri che ci sono in una riga di OE (75) e fare
una funzione che conti la quantita' di caratteri presenti in ongi riga della
listbox.
Se i caratteri della prima riga sono 30, ad esempio, la funzione dovrebbe
fare automaticamente 36 spazi per andare a capo. Non so se mi sono spiegato.
L'unico incoveniente e' che non so che tipo di carattere usa colui a cui
devo dare il programma.Se ad esempio usa un carattere piu' grande del mio, i
caratteri in una riga diminuiscono.Posso da VB imporre il carattere e la
grandezza di un testo inserito nel body di OE?


Outlook Expres, ma vorrei che sia possibile fare una cosa generale,
indipendentemente da cosa si usi.
Grazie


 wrote in message
news:99psai$itb$1...@fe2.cs.interbusiness.it...


Ecco il codice he ho inserito nel commandbutton che mi permette di
trasferire tutto nel programma di default per spedire le e-mail (nel mio
caso OE).
Dim strBody As String
Dim intConta As Integer
strBody = Empty
For intConta = 0 To List1.ListCount - 1
     strBody = strBody & vbCrLf & List1.List(intConta) & Space$(70)
        Next intConta
Call WriteList(List1, App.Path + "\" + Text6.Text + ".ord")
Dim retval
retval = Shell("start " & Chr$(34) & "mailto:
mioind...@mioserver.it
; " &
" " + Text4.Text & "?Subject=ORDINE" & "&body=" + strBody)
Me.WindowState = 1
Text6.Text = ""
End Sub
Grazie 1000!


 wrote in message
news:99puhb$opc$1...@fe2.cs.interbusiness.it...


 messaggio = replace(messaggio, vbcrlf, "%0A")
Ho tolto replace, le parentesi e le virgole (che ho sostituito con "&") e il
programma viene lanciato regolarmente, ma non cambia purtroppo il risultato.
Nel body dell' email, la lista compare  in questo modo:
codiceriga1           quantitariga1            prezzoriga1codiceriga2
quantitariga2  prezzoriga2
invece dovrebbe essere ovviamente
codiceriga1           quantitariga1            prezzoriga1
codiceriga2           quantitariga2            prezzoriga2
Ormai sono disperato. Credevo fosse una cosa molto piu' semplice.
Grazie per l'interessamento.

 wrote in message
news:99q5u5$elv$1...@fe2.cs.interbusiness.it...


Ok,
ora non mi da' piu' l'errore di prima, ma non mi fa partire il programma di
posta elettronica. Praticamente c'e' qualcosa che non va con la shell.
Ciao e grazie per il tuo aiuto

 wrote in message
news:99qbgf$5ec$1...@fe1.cs.interbusiness.it...


 wrote in message
news:99qbgf$5ec$1...@fe1.cs.interbusiness.it...


 OK, ora il problema con la shell e' risolto, ma la seconda riga della
lista,
una volta inserita nel body, non ne vuol sapere di andare a capo, comincio a
credere che non sia fattibile...
Scusa, per sbaglio prima ho premuto il pulsante "reply to sender" anziche'
"Reply to group" e questo messaggio ti arrivera' anche via posta.. Scusa
ancora.

 wrote in message
news:99qbgf$5ec$1...@fe1.cs.interbusiness.it...


Si' e' tutto scritto giusto (ho fatto copia & incolla).


 il terzo parametro è "percentozeroa"


Ok, e' tutto a posto, avevo sbagliato nell'icollare una parte di codice.
Grazie ancora per il tuo aiuto.
Ciao.
Zuril