Autore Topic: [Risolto] inviare email  (Letto 3922 volte)

Offline dex

  • Gran Maestro dei Gamberi
  • *****
  • Post: 872
    • Mostra profilo
[Risolto] inviare email
« il: 11 Marzo 2012, 00:36:52 »
ciao raga
devo inviare 2 email da gambas.
la prima solo testo senza allegati da inviare sempre allo stesso indirizzo.
la seconda con allegati pdf da inviare ad indirizzi diversi che selezionerò tramite una combo.

ho fatto una ricerca nel forum ed ho trovato solo una risposta di leo che utilizzava mutt e msmtp.

ci sono stati nuovi sviluppi?
« Ultima modifica: 02 Aprile 2012, 01:10:40 da dex »

Offline andy60

  • Senatore Gambero
  • ******
  • Post: 1.255
    • Mostra profilo
    • https://www.linkedin.com/in/andbertini
Re: inviare email
« Risposta #1 il: 11 Marzo 2012, 01:21:24 »
ciao dex anche io in myZone4 uso Mutt, lo trovo molto comodo

Offline dex

  • Gran Maestro dei Gamberi
  • *****
  • Post: 872
    • Mostra profilo
Re: inviare email
« Risposta #2 il: 11 Marzo 2012, 01:23:30 »
ciao dex anche io in myZone4 uso Mutt, lo trovo molto comodo
ciao Andy

riesci ad inviare l'allegato e un breve commento di testo?

mi posti il codice?

Offline Golia

  • Senatore Gambero
  • ******
  • Post: 1.298
  • no xe mai massa tardi
    • Mostra profilo
Re: inviare email
« Risposta #3 il: 11 Marzo 2012, 10:26:42 »
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:

Offline andy60

  • Senatore Gambero
  • ******
  • Post: 1.255
    • Mostra profilo
    • https://www.linkedin.com/in/andbertini
Re: inviare email
« Risposta #4 il: 11 Marzo 2012, 12:35:16 »
@dex

purtroppo l'invio (forse non è esatto ma rende) non è asincrono per cui si potrebbe con mutt inviare allegati ma il pc è come si bloccasse, deve prima essere completato l'invio. A parte che non mi serviva, ho rinunciato. Il codice è di una semplicità estrema (con mutt già installato):

Buttone per inviare una mail:

Codice: [Seleziona]
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

in TextBox6.text sia ha la mail di destinazione.

PS. x installare mutt segui la mia guida:
http://andreabertini.wordpress.com/2011/10/30/gmailmuttmsmtpprocmailfetchmail-con-fedora15/

Offline dex

  • Gran Maestro dei Gamberi
  • *****
  • Post: 872
    • Mostra profilo
Re: inviare email
« Risposta #5 il: 11 Marzo 2012, 14:02:37 »
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:

ciao golia. è da un pò che non ci si sente.

postami il codice, è proprio quello che mi serve lanciare da gambas appoggiandomi a Thunderbird

Offline Golia

  • Senatore Gambero
  • ******
  • Post: 1.298
  • no xe mai massa tardi
    • Mostra profilo
Re: inviare email
« Risposta #6 il: 11 Marzo 2012, 17:05:13 »
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:

Offline andy60

  • Senatore Gambero
  • ******
  • Post: 1.255
    • Mostra profilo
    • https://www.linkedin.com/in/andbertini
Re: inviare email
« Risposta #7 il: 11 Marzo 2012, 17:27:57 »
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:

Complimenti, non sapevo di questa possibilità, le trovi tutte!! :2birre:

si ha sempre il problema dell'asincronia oppure è del tutto trasparente l'invio? Questa cosa potrebbe rilanciare un mio applicativo che avevo abbandonato per via dei problemi alle mail.

Offline Golia

  • Senatore Gambero
  • ******
  • Post: 1.298
  • no xe mai massa tardi
    • Mostra profilo
Re: inviare email
« Risposta #8 il: 11 Marzo 2012, 19:11:19 »
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

Offline andy60

  • Senatore Gambero
  • ******
  • Post: 1.255
    • Mostra profilo
    • https://www.linkedin.com/in/andbertini
Re: inviare email
« Risposta #9 il: 11 Marzo 2012, 20:46:46 »
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

hai implementato la progressbar sull'invio della posta? i hope yes!! :-*

Offline Golia

  • Senatore Gambero
  • ******
  • Post: 1.298
  • no xe mai massa tardi
    • Mostra profilo
Re: inviare email
« Risposta #10 il: 11 Marzo 2012, 20:52:24 »
no

Offline dex

  • Gran Maestro dei Gamberi
  • *****
  • Post: 872
    • Mostra profilo
Re: inviare email
« Risposta #11 il: 11 Marzo 2012, 23:51:46 »
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

sto cominciando a provare il codice funziona alla grande
per il corpo và a capo basta agginger al testo \n

grazie golia sono sempre più in debito con te  :2birre: :2birre: :2birre:

Edit: quando si passa una stringa nel corpo del messaggio thunderbird non accetta le virgole e tronca la stringa dove trova la virgola.
« Ultima modifica: 12 Marzo 2012, 00:15:59 da dex »

Offline dex

  • Gran Maestro dei Gamberi
  • *****
  • Post: 872
    • Mostra profilo
Re: inviare email
« Risposta #12 il: 12 Marzo 2012, 02:34:43 »
Raga risolto

invio email con pdf allegati

per il testo nel corpo si può andare a capo quanto si vuole aggiungendo \n

per il resto thunderbird non accetta le virgole e gli apici.


Offline andy60

  • Senatore Gambero
  • ******
  • Post: 1.255
    • Mostra profilo
    • https://www.linkedin.com/in/andbertini
Re: inviare email
« Risposta #13 il: 12 Marzo 2012, 10:02:39 »
@dex,golia

non mi avete detto se si blocca durante l'invio..

Offline dex

  • Gran Maestro dei Gamberi
  • *****
  • Post: 872
    • Mostra profilo
Re: inviare email
« Risposta #14 il: 12 Marzo 2012, 14:59:41 »
@dex,golia

non mi avete detto se si blocca durante l'invio..

si blocca chi? gambas o thunderbird? a me non si blocca dopo l'invio mi si apre thunderbird  con tutto il testo, destinatario ecc.. inserito e devo solo fare invio da thunderbird.

cmq come ho precisato prima thunderbird nona accetta , e ' per la virgola taglia il testo e invia per ' si blocca.
non ho fatto esperimenti con altri caratteri speciali ma forse sono proprio questi a bloccarlo