Iniciando en el OutLoook 2007

[karinha]

Buenas tardes,

¿Qué estoy haciendo mal? Dice que envió, pero no llega a mi Webmail.

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
#include "outlook.ch"
#include "Mail.ch"

FUNCTION Main()

   ENVIAR_MAIL_VIA_OUTLOOK2007()

RETURN NIL

FUNCTION ENVIAR_MAIL_VIA_OUTLOOK2007()

   LOCAL EmSend := .T.
   LOCAL oOutlook, oEmail, oNameSpace, oMailItem
   LOCAL EmFile := "TEXTO.TXT"

   TRY

      oOutLook   := GetActiveObject("Outlook.Application")
      // oNameSpace := oOutLook:GetNameSpace("MAPI")

      EmSend     := .T.

   CATCH

      TRY

         oOutLook   := GetActiveObject("Outlook.Application")
         // oNameSpace := oOutLook:GetNameSpace("MAPI")

         EmSend     := .F.

      CATCH

         EmSend   := .F.

      END

   END

   IF .NOT. EmSend

      ShellExecute(,"Open","Outlook",,,3)  // 7
      EmSend = .T.

   ENDIF


   TRY

      IF EmSend

         oMailItem:To   := "joao@pleno.com.br;"

         oEmail         := oOutlook:CreateItem( oMailItem )
         // oEMail:To      := "kapiabafwh@gmail.com"

         oEmail:Subject := "Proposta NUOVA/MODIFICA Frase"
         oEmail:Body    := "Body do Email no OutLook"

         oEmail:Recipients:Add( "joao@pleno.com.br" )
         oEmail:Attachments:Add( EmFile )
         oEmail:Display()

      ENDIF

   CATCH

       EmSend := .F.

   END

RETURN NIL

// FIM
 

Regards, saludos.

[Garbi]

Te pongo el codigo que yo uso en rpreview.prg modificado para mis necesidades y que funciona correctamente. Por si te puede ayudar :

Code: Select all  Expand view  RUN

METHOD SendEmail() CLASS TPreview

   local oMail, cName, cFile, olMailItem, oOutLook, oAttach

   cName := If( ::oReport != nil, ::oReport:cName, ::oDevice:cDocument )
   cFile := cFilePath( ::oDevice:aMeta[ 1 ] ) + StrTran( cName, '.', '' ) + ".pdf"

   CursorWait()
   cFile := ::SaveAs( .t., cFile, .f. )
   CursorArrow()

   if ! File( cFile )
      MsgInfo( FWString( "PDF not saved to send Email" ), FWString( "Information" ) )
   elseif ::bEmail != nil
      Eval( ::bEmail, Self, cName, cFile )
   else
    TRY
        oOutLook   := GetActiveObject("Outlook.Application")
        EmSend     := .T.
      CATCH
       TRY
          oOutLook   := GetActiveObject("Outlook.Application")
          EmSend     := .F.
      CATCH
         EmSend   := .F.
      END
    END

    IF !EmSend
       ShellExecute(,"Open","Outlook",,,3)
       EmSend = .T.
    ENDIF

    IF EmSend
      oOutlook = CREATEOBJECT( "Outlook.Application" )
      oNameSpace := oOutlook:GetNameSpace("MAPI")
      oMail = oOutlook:CreateItem( olMailItem )
      oMail:to := vmailpre
      oMail:Subject = cName
      oMail:htmlBody =" "
      oMail:BodyFormat := 2          // FORMAT HTML
      oMail:Attachments:Add(cFile)
      oMail:Display(.T.)
*      oMail:Send()
    endif

   endif

   ::oMeta1:SetFocus()

return nil

[karinha]

Gracias Garbi, tiens un ejemplo completo, porfa? Estoy iniciando del cero (0).

Code: Select all  Expand view  RUN

   oMail:to := vmailpre
   oMail:Subject = cName
 

???

Regards, saludos.

[karinha]

Buenos días Garbi, directamente desde FiveWin Preview, funciona. Necesito enviar correos electrónicos, sin pasar por la VISTA PREVIA, obtener los datos del cliente y los archivos adjuntos, y enviar, si es posible de forma invisible (si es posible), si no, el cliente hace clic en el botón enviar. ¿Me entiende? ¿Tienes algún ejemplo práctico? Muchas gracia

Regards, saludos.

[Garbi]

Aclaración :

vmailpre -> es una variable publica que defino al principio de la aplicación donde asigno el email del cliente para pasarlo a rpreview.prg
cname -> es la variable que asigno a la hora de imprimir el documento y que pone como asunto del email. Ejemplo :

Code: Select all  Expand view  RUN

PRINTER oPrn ;
      NAME ("Factura nº "+alltrim(transform((cfactura)->numero,"9,999,999"))) preview

[Garbi]

El que uso en el rpreview.prg te puede servir para cualquier parte de tu aplicación.

Yo por ejemplo para enviar un email desde la ficha del cliente uso :

Code: Select all  Expand view  RUN

REDEFINE BTNBMP aBoton[3] ID 113  RESOURCE "email" OF oFld:aDialogs[1];
                 tooltip oemtoansi("Enviar Correo");
                 action ShellExecute(oddatos,"Open","mailto:"+alltrim(Var(16)),,,0 )

Para enviar el email sin que tenga que pulsar el cliente creo que te serviria con:

Code: Select all  Expand view  RUN

    oMail:Display(.F.)
      oMail:Send()