19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Visualizza post
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
Vai tranquillo... al massimo fatti una copia della cartella trunk.... e se non funziona qualcosa sai dove trovarmi
La GridView di gambas sembra funzionare in ogni sua parte... quindi, se vuoi, puoi anche aggiornare gambas
Io sto usando GridBox con l'ultima versione (4579) e funziona tutto a dovere... ho anche implementato con la colonna button il poter cambiare la picture, se ti interessa....
Devo ancora pero' aggiornare il progetto GridBox... per adesso sto andando avanti con il progetto di manutenzione macchinari e li ho la GridBox aggiornata...
Codice: gambas [Seleziona]
Public Sub MAIL(destinatario As String, oggetto As String, corpo As String, allegato As String)
Dim comandomail As String
Dim hmail As Process
''****PER thunderbird
comandomail = "thunderbird -compose to='"
comandomail &= destinatario
comandomail &= "',subject='"
comandomail &= oggetto
comandomail &= "',body='"
comandomail &= corpo
If allegato = "no" Then
comandomail &= "'"
Else
comandomail &= "',attachment='"
comandomail &= allegato & "'"
Endif
hmail = Shell (comandomail)
End
Ciao, alla prox
Con questo comando crei una nuova mail pronta all'invio, si apre e basta che dai inviocosì si può anche controllarla
C'è solo un problemino sul testo del corpo, non va a capo, non ho mai approfondito perchè non mi serviva
Codice: gambas [Seleziona]
Public Sub MAIL(destinatario As String, oggetto As String, corpo As String, allegato As String)
Dim comandomail As String
Dim hmail As Process
''****PER thunderbird
comandomail = "thunderbird -compose to='"
comandomail &= destinatario
comandomail &= "',subject='"
comandomail &= oggetto
comandomail &= "',body='"
comandomail &= corpo
If allegato = "no" Then
comandomail &= "'"
Else
comandomail &= "',attachment='"
comandomail &= allegato & "'"
Endif
hmail = Shell (comandomail)
End
Ciao, alla prox
Public Sub Button1_Click()
Dim myemail As Process
myemail = Shell ("echo ' test da linea di comando ' | mutt -s ' TEST GAMBAS ' " & TextBox6.Text & " ")
Message("Messaggio test inviato.")
End