ciao dex anche io in myZone4 uso Mutt, lo trovo molto comodociao Andy
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
Ciao dex :ciao:
Nel mio programma l'invio mail con e senza allegati l'ho risolto aprendo e passando dati/allegati un client di posta tramite shell.
Se ti interessa ho il codice per Thunderbird, Evolution e Kmail
:2birre:
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
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 :2birre:
Con questo comando crei una nuova mail pronta all'invio, si apre e basta che dai invio ;) così si può anche controllarla
C'è solo un problemino sul testo del corpo, non va a capo, non ho mai approfondito perchè non mi serviva
Con questo comando crei una nuova mail pronta all'invio, si apre e basta che dai invio ;) così si può anche controllarla
C'è solo un problemino sul testo del corpo, non va a capo, non ho mai approfondito perchè non mi serviva
@dex,golia
non mi avete detto se si blocca durante l'invio..
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 :2birre:
thunderbird -compose to='pippobaudo_at_gmail.com',subject='tuooggetto',body='testo del corpo'
grazie golia sono sempre più in debito con tequale debito :), bastano un paio di birre :2birre: :2birre: :2birre:
devo inviare 2 email da gambas.Ho cercato di fare :-[ un piccolo riassuntino al riguardo nella nostra WIKI:
ho fatto una ricerca nel forum ed ho trovato solo una risposta di leo che utilizzava mutt e msmtp.
ci sono stati nuovi sviluppi?