FiveTech Support Forums

Hola a todos,

Quién me puede explicar que valores puede tener 'aOrigin' de la clase TMail?

Estoy intentado enviar mails con esta clase pero no lo consigo.
Si indico con lFromUser entonces se abre el lector de mails por defecto pero la cuenta de mail que envía no es la que indico en 'aOrigin'.

Gracias,

Mira se ayuda:




karinha wrote:Mira se ayuda:

Code (fw): Select all Collapse

   aFiles          := {"NOMBREARQ.TXT"}  // anexos
   cSubject        := "Assunto do Email enviado Title/Titulo"
   cAssunto := ALLTRIM( cSubject ) // assunto do email direto
   cTitle := cAssunto
   cNoteText := "Texto del email en el cuerpo del email"
   cTxt := cNoteText   //-> Texto do Email
   cMsgType        := "C"
   cConversationID := ""
   dDate           := DATE()
   cTime           := TIME()
   lReceipt        := .F.
   lFromUser       := .T.
   aOrigin         := {""}
   EmailCliente    := "emaildelcliente@hotmail.com"
   cCC             := "emailconcopia@hotmail.com"
   aRecipients     := { EmailCliente, cCC } //-> Email final para enviar
   cCCO := LOWER( "emailcco@hotmail.com" // con copia oculta
   cDest := ALLTRIM( EmailCliente ) //-> email final para enviar
   //-> Envia o Email - Disparo para o OutLoox Express
   oMail:=TMail():New( cSubject       , ;
                       cNoteText      , ;
                       cMsgType       , ;
                       cConversationID, ;
                       dDate          , ;
                       cTime          , ;
                       lReceipt       , ;
                       lFromUser      , ;
                       aOrigin        , ;
                       aRecipients    , ;
                       aFiles )
   //-> Ativa o OutLook Express - OutLook Express, Tem que ser PADRAO
   oMail:Activate()



Gracias Karinha,
Pero no resuleve mi duda, además donde usas cCCO? Y para que sirve lReceipt?

CCo - Enviar una copia del correo electrónico oculto.

lReceipt - Comando del Oulook Express ó Windows live mail.

http://fivewin.com.br/index.php?/topic/ ... /?hl=rmail

viewtopic.php?f=6t=26476p=146111hilit=RMAIL#p146111

viewtopic.php?f=6t=25258p=144325hilit=RMAIL#p144325

viewtopic.php?f=6t=26255p=144250hilit=RMAIL#p144250

salu2

&&&&&&&&&

Carlos:

aOrigin = {"tucuenta@decorreo.com"}

Manuel Aranda wrote:Carlos:

aOrigin = {"tucuenta@decorreo.com"}

Gracias a ambos,

Lo que intento es enviar un mail con "DEFINE MAIL ..." de Fivewin.

Cuando lo intento especificando FROM USER me abre el Windows Live Mail con la cuenta de correo por defecto, cuando lo intento sin FROM USER también lo intenta con esa misma cuenta, cuando estoy especificando otra diferente.

No sé que hacer.

Carlos,

La función de Fivewin no funciona bien con los servidores smtp más recientes que usan los ISP.

Prueba así:

LOCAL oSmtp, oEMail
LOCAL cSmtpUrl
LOCAL cSubject, cFrom, cTo, cBody, cFile

  // preparing data for eMail
  cSmtpUrl := "smtp://mailaccount:password@smtp.server.com"
  cSubject := "Testing eMail"
  cFrom    := "MyName@Mail.server.com"
  cTo      := "YourName@another.server.com"
  cFile    := "File_Attachment.zip"
  cBody    := "This is a test mail sent at: " + DtoC(Date()) + " " + Time()

  // preparing eMail object
  oEMail   := TIpMail():new()
  oEMail:setHeader( cSubject, cFrom, cTo )
  oEMail:setBody( cBody )
  oEMail:attachFile( cFile )

  // preparing SMTP object
  oSmtp := TIpClientSmtp():new( cSmtpUrl )

  // sending data via internet connection
  IF oSmtp:open()
     oSmtp:sendMail( oEMail )
     oSmtp:close()
     ? "Mail sent"
  ELSE
     ? "Error:", oSmtp:lastErrorMessage()
  ENDIF

RETURN

lucasdebeltran wrote:Carlos,

La función de Fivewin no funciona bien con los servidores smtp más recientes que usan los ISP.

Prueba así:

LOCAL oSmtp, oEMail
LOCAL cSmtpUrl
LOCAL cSubject, cFrom, cTo, cBody, cFile

// preparing data for eMail
cSmtpUrl := "smtp://mailaccount:password@smtp.server.com"
cSubject := "Testing eMail"
cFrom := "MyName@Mail.server.com"
cTo := "YourName@another.server.com"
cFile := "File_Attachment.zip"
cBody := "This is a test mail sent at: " + DtoC(Date()) + " " + Time()

// preparing eMail object
oEMail := TIpMail():new()
oEMail:setHeader( cSubject, cFrom, cTo )
oEMail:setBody( cBody )
oEMail:attachFile( cFile )

// preparing SMTP object
oSmtp := TIpClientSmtp():new( cSmtpUrl )

// sending data via internet connection
IF oSmtp:open()
oSmtp:sendMail( oEMail )
oSmtp:close()
? "Mail sent"
ELSE
? "Error:", oSmtp:lastErrorMessage()
ENDIF
RETURN

Gracias Lucas,
Lo tendré en cuenta.
Ahora amismo estoy haciendo pruebas con al clase TSMP. A veces va y otras no, tengo que mirarlo con cariño.

Dónde están las clases TIpClientSmtp y TIpMail ?

Gracias,

Manuel Aranda wrote:Carlos:

aOrigin = {"tucuenta@decorreo.com"}

Manuel,

No me funciona con Live Mail y Windows 7. Siempre sale la cuenta predeterminada.