Newsgroup: it.comp.lang.vo-clipper
Titolo: E-Mail

Ciao a tutto il NG.
Ho un problema con l'invio di email da programma.
Utilizzo le classi di Internet SDK (cEmail, cSMPT)
Invio regolarmente con il mio account (
mail.tin.it
).
I problemi sono dal cliente.
Ha un server della kefa (
server.kefa.it
)
quando invio una email con questo server, mi da il seguente errore:
503 This mail server requires authentication when attempting to send to a 
non-local e-mail address. please check your mail client setting or contact 
your administrator to verify that the domain or address is defined for this 
server.
ho provato a fare l'autentificazione con il Logon, passandogli UserID e 
PassWord ma non cambia niente
Premetto che il server, configurato su outlock espress, con gli stessi 
parametri (Indirizzo e-mail e password) funziona regolamente.
Mah! sarà il caldo?
Qualche suggerimento?
Grazie. Ciao a tutti. Enzo.

Scusate.
Utilizzo il VO27b-1 (Build 2757)
Ciao. 

 ha scritto nel messaggio 
news:44bb66a9$0$4477$4faf...@reader2.news.tin.it...


 risposta viene spedita via PIPPO
Lo so.
Questo è il codice che utilizzo:
 aSendTo[1] := Indi_Mail  //Stringa contenente l'indirizzo del destinatario
 aAllegati[1] := cAllegati
 oEmail            := CEmail{}
  oEmail:Subject    := cOggetto
  oEmail:DestList   := aSendTo[1]
  oEmail:CCList     := ''
  oEmail:BCCList    := ''
  oEmail:MailBody   := cMessaggio
  oEmail:cText    := cMessaggio
  oEmail:FromAddress:= "<"+AllTrim(SysObject():cIndirizzo_eMail)+">" 
//Indirizzo del mittente (e-Mail)
 oEmail:FromName   := SysObject():cTestoBarra
 oEmail:AttachmentFileList := aAllegati
  oEmail:EncodeEmail()
  oSmtp := cSMTP{oEmail}
  oSmtp:RemoteHost  := AllTrim(SysObject():Remote_Host)
  IF Empty(oSmtp:RemoteHost)
  Avviso("NON CONNESSO!" + CRLF+CRLF+"Attivare connessione Internet e 
riprovare.")
 ELSE
   oSmtp:UserName   := AllTrim(SysObject():cIndirizzo_eMail) //Indirizzo del 
mittente
   oSmtp:PassWord  := AllTrim(SysObject():cPassWord_eMail) //Password del 
mittente
    IF lAutenticazione  //TRUE se il server di posta richiede 
autentificazione
      IF ! oSmtp:Logon()
        Avviso("Errore autentificazione!")  //Questa riga non viene eseguita 
anche se metto una password errata.
      ENDIF
   ENDIF
   lOk := oSmtp:SendMail()
  osmtp:Close()
  SysObject():Pointer := Pointer{POINTERARROW}
  IF lOk
   Avviso('Messaggio correttamente inviato')
  ELSE
   cSet := AllTrim(oSMTP:ErrorMsg)
   Avviso("ATTENZIONE!" + CRLF + "Il messaggio non è stato 
inviato"+CRLF+CRLF+;
       "Errore: "+cSet)
  ENDIF
 ENDIF
 osmtp:Close()

Avevo un problema simile anche io.
Ho risolto inserendo la classe Internet SDK riscritta da Geoff
Shaller aggiornata a maggio 2006, può essere inserita sia con 
vo 2.7 2740 che con vo 2.7b1 2757.
   Ciao Antonio  
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio 
news:44bb8402$0$30142$4faf...@reader4.news.tin.it...


   Ciao Antonio
Ciao Antonio.
Non riesco a scaricarla. Me la puoi inviare?
Ciao Enzo. 


Ciao Alessandro.
E' vero mancava questa riga e l'ho aggiunta.
Adesso mi da sempre lo stesso errore e cioè:
535 invalid user ID or password.
anche con la password esatta.
mettendo a false SecureSMTP, l'email l'invia correttamente.
Se invece utilizzo il server che richiede l'autentificazione, mi dà il 
seguente errore:
235 Authenticated e l'email non l'invia.
non so come uscirne.
Utilizzo le classi standard di VO27b1 build 2757.
Ciao Enzo.
--------------------------------------------------------------------------------
La mia Cartella di Posta in Arrivo è protetta con SPAMfighter
1509 messaggi contenenti spam sono stati bloccati con successo.
Scarica gratuitamente SPAMfighter! 

 ha scritto nel messaggio 
news:44be2e51$0$4489$4faf...@reader2.news.tin.it...


Ciao Alessandro.
Grazie dell'aiuto che mia hai dato. Ho risolto il problema con il debug.
E' una cosa strana. Ti spiego con il codice:
 aSendTo[1] := Indi_Mail
 aAllegati[1] := cAllegati
 oEmail            := CEmail{}
  oEmail:Subject    := cOggetto
* oEmail:DestList  := aSendTo[1]  //  Questa riga funziona senza 
autentificazione.
                                                        Con 
l'autentificazione la variabile cDestList resta uguale a NULL_STRING.
  oEmail:cDestList := aSendTo[1]  // e funziona tutto benissimo con la 
libreria standard di VO27b1 build 2757.
  oEmail:CCList     := ''
  oEmail:BCCList    := ''
*  oEmail:MailBody   := cMessaggio
  oEmail:cText    := cMessaggio
  oEmail:FromAddress:= "<"+AllTrim(SysObject():cIndirizzo_eMail)+">"
 oEmail:FromName   := SysObject():cTestoBarra
 oEmail:AttachmentFileList := aAllegati
  oEmail:EncodeEmail()
  oSmtp := cSMTP{oEmail,AllTrim(SysObject():Remote_Host)}
AltD()
  IF Empty(oSmtp:RemoteHost)
  Avviso("NON CONNESSO!" + CRLF+CRLF+"Attivare connessione Internet e 
riprovare.")
 ELSE
    oSmtp:TimeOut   := 5000
  IF SysObject():lAutentica_eMail
   oSmtp:SecureSMTP := TRUE
   oSmtp:UserName   := AllTrim(SysObject():cIndirizzo_eMail)
    oSmtp:PassWord  := AllTrim(SysObject():cPassWord_eMail)
   ELSE
   oSmtp:SecureSMTP := FALSE
   oSmtp:UserName   := ''
    oSmtp:PassWord  := ''
   ENDIF
   lSent := oSmtp:SendMail()
*  osmtp:Close()
  SysObject():Pointer := Pointer{POINTERARROW}
  IF lSent
   cSet := AllTrim(oSMTP:ErrorMsg)
   Avviso('Messaggio correttamente inviato')
  ELSE
   Avviso("ATTENZIONE!" + CRLF + "Il messaggio non è stato 
inviato"+CRLF+CRLF+;
       "Errore: "+cSet)
  ENDIF
 ENDIF
 osmtp:Close()
METHOD SendHeaderInfo() CLASS CSmtp
Altd()
 IF !Empty(SELF:oEmail:cDestList)
    Questa è la riga incriminata. la variabile cDestList è vuota e quindi 
esce senza inviare l'email e segnala l'errore
Authenticated che comunque non è un errore.
Non so del perchè di questo comportamento.
Ciao e grazie dell'aiuto.
Enzo.
--------------------------------------------------------------------------------
La mia Cartella di Posta in Arrivo è protetta con SPAMfighter
1531 messaggi contenenti spam sono stati bloccati con successo.
Scarica gratuitamente SPAMfighter!