INICIANDO NO OUTLOOK 2007

[kapiaba]

Galera, boa tarde, preciso iniciar o uso do MICROSOFT OUTLOOK 2007, por problemas em alguns provedores, NUNCA USEI, acabei de instalar(configurado e funcionando), os amigos que usam, poderia por favor disponibilizar um EXEMPLO funcional para eu testar aqui, pls?

Principalmente na area de ADD ANEXOS, preciso dominar para enviar muitos anexos.  A intencao e retirar(aposentar) o Windows Live mail.

Se o exemplo for muito grande, postem no: https://mega.nz  que eu baixo.

Thamus junthos, muito obrigado.

Regards, saludos.

 

 

 

[kapiaba]

Galera, essas pohhas gostam de me bater, ja to ficando "revoltada", kkkkkkkk

Por falar nisso, parabens a toda a gelara que veio na parada ontem na Paulista. Democracia e isso. E VIVA meus amigos Sao Paulinos. kkkkkkkkk 

O que estou fazendo errado? Diz que enviou, mas nao chega no meu Webmail;

#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.
 

[giovanyvecchi]

Kapi, usa a classe tMail do Fivewin

         _oMailMapi := tMail():New(/*cSubject*/,;
                                    ::cTxtPassWord,;
                                    /*cMsgType*/,;
                                    /*cConversationID*/,;
                                    Date(),;
                                    Time(),;
                                    /*lReceipt*/,;
                                    .T./*lFromUser*/,;
                                    /*aOrigin*/,;
                                    /*aRecipients*/,;
                                    ::aFilesAnexoOutlook /*aFiles*/)
         
         _oMailMapi:Activate()

         _oMailMapi:End()