FiveTech Support Forums

#define olMailItem                          0       // A MailItem object.

METHOD Activate() CLASS TMail
    local nCtr, cDest := ""
    local olApp := CreateObject( "Outlook.Application" )
    local olns, oMailItem

    oMailItem := olApp:CreateItem(olMailItem)
    oMailitem:Subject := ::cSubject
    oMailitem:Body := ::cNoteText
    for nCtr = 1 to len(::aRecipients)
        cDest += ::aRecipients[nCtr]+"; "
    next
    oMailitem:to := cDest
    cDest := ""
    for nCtr = 1 to len(::aCC)
        cDest += ::aCC[nCtr]+"; "
    next
    oMailitem:CC := cDest

    for nCtr = 1 to len(::aFiles)
        try
            oMailItem:Attachments:Add(::aFiles[nCtr])
        catch
            msginfo("Impossibile allegare il file "+trim(::aFiles[nCtr]))
        end
    next
    oMailItem:Display(.t.)            // got error here!!!
    return (Self)

oMailItem:Display()

@Echo Off
@Echo On
Cls
Echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo ³ FiveWin For  Harbour - Iniciando...           Harbour Development Power    ³Ü
Echo ³ (c) FiveTech, 1993-2020      For Microsoft Windows 95/98/NT/2000/ME And XP ³Û
Echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
Echo ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

Echo  .
Echo  Aguarde... Compilando os Modulos do Programa...

Set GT=gtgui
Set hdir=C:\HBBCC74
Set bcdir=C:\BCC74
Set fwhdir=C:\FwH1905

@If Exist *.Obj      Del *.Obj
@If Exist *.Map      Del *.Map
@If Exist *.TDS      Del *.TDS
@If Exist *.Bc       Del *.bc
@If Exist *.C        Del *.C
@If Exist *.HC       Del *.HC

If Exist OUTL2007.Exe Del OUTL2007.Exe

%hdir%\bin\harbour OUTL2007  /m/n /i%fwhdir%\include;%hdir%\include;%bcdir%\include /w0 /p    > Erro.log 2>  ERROS.LOG

%bcdir%\bin\bcc32 -M -c -v -O2 -eOUTL2007.Exe  -I%hdir%\include -I%bcdir%\include OUTL2007.C  >> Erro.log 2>> ERROS.LOG

If ErrorLevel 1 Type Erro.log | More
If ErrorLevel 1 Goto Exit

%bcdir%\bin\BRC32.Exe -R XPLOOK.RC

:ENDCOMPILE

%bcdir%\bin\ilink32 -aa -Gn -Tpe -s -v @HB.LNK

Echo .
IF ERRORLEVEL 1 GOTO LINKERROR
Cls
Echo .
Echo * Aplicacao Foi Desenvolvida Com Sucesso
Echo .
REM C:\PECOMPACT\PEC2 /NB /EMP:Y /TM:Y /CR:Y /MC OUTL2007.Exe
Echo .
OUTL2007
GOTO EXIT

:LINKERROR
PAUSE * Applicacao Nao Foi Desenvolvida Com Sucesso. Veja ERRO.LOG *
GOTO EXIT
Echo .
CLS

:EXIT

C:\BCC74\lib\c0w32.obj         +
OUTL2007.obj,                  +
OUTL2007.exe,                  +
OUTL2007.map,                  +
C:\FWH1905\lib\FiveH.lib       +
C:\FWH1905\lib\FiveHC.lib      +
c:\HBBCC74\lib\hbwin.lib       +
c:\HBBCC74\lib\gtgui.lib       +
c:\HBBCC74\lib\hbrtl.lib       +
c:\HBBCC74\lib\hbvm.lib        +
c:\HBBCC74\lib\hblang.lib      +
c:\HBBCC74\lib\hbmacro.lib     +
c:\HBBCC74\lib\hbrdd.lib       +
c:\HBBCC74\lib\rddntx.lib      +
c:\HBBCC74\lib\rddcdx.lib      +
c:\HBBCC74\lib\rddfpt.lib      +
c:\HBBCC74\lib\hbsix.lib       +
c:\HBBCC74\lib\hbdebug.lib     +
c:\HBBCC74\lib\hbcommon.lib    +
c:\HBBCC74\lib\hbpp.lib        +
c:\HBBCC74\lib\hbcpage.lib     +
c:\HBBCC74\lib\hbcplr.lib      +
c:\HBBCC74\lib\hbct.lib        +
c:\HBBCC74\lib\hbpcre.lib      +
c:\HBBCC74\lib\xhb.lib         +
c:\HBBCC74\lib\hbziparc.lib    +
c:\HBBCC74\lib\hbmzip.lib      +
c:\HBBCC74\lib\hbzlib.lib      +
c:\HBBCC74\lib\minizip.lib     +
c:\HBBCC74\lib\hbusrrdd.lib    +
c:\HBBCC74\lib\hbcurl.lib      +
c:\HBBCC74\lib\hbtip.lib       +
c:\HBBCC74\lib\hbzebra.lib     +
c:\HBBCC74\lib\libcurl.lib     +
C:\XHBBCC74\Lib\png.Lib        +
c:\bcc74\lib\cw32.lib          +
c:\bcc74\lib\uuid.lib          +
c:\bcc74\lib\import32.lib      +
c:\bcc74\lib\ws2_32.lib        +
c:\bcc74\lib\psdk\odbc32.lib   +
c:\bcc74\lib\psdk\nddeapi.lib  +
c:\bcc74\lib\psdk\iphlpapi.lib + 
c:\bcc74\lib\psdk\msimg32.lib  +
c:\bcc74\lib\psdk\psapi.lib    +
c:\bcc74\lib\psdk\rasapi32.lib + 
c:\bcc74\lib\psdk\gdiplus.lib  +
c:\bcc74\lib\psdk\shell32.lib

Harbour 3.2.0dev (r2008190002)
Copyright (c) 1999-2020, https://harbour.github.io/

Syntax:  c:\HBBCC74\bin\harbour.exe <file[s][.prg]|@file> [options]

 
Try
   oOutLook  := TOleAuto():New("Outlook.Application")
Catch
    Saying := "For some Odd reason The Outlook e-mail CLient failed to Initialize"
    Msginfo( Saying )
    Return(.f.)
End Try

oMailItem := oOutLook:Invoke("CreateItem", 0)

oMailitem:to := cTo
oMailitem:CC := cCC
oMailItem:Subject := cSubject
oMailItem:Body := cBody

Try
   oMailItem:Attachments:Add("c:\dbtmp\"+cPdfName+".pdf" )        
Catch
End Try



Try
   oMailItem:display(.F.)   // send silently
Catch
End Try

Try
   oMailItem:Invoke("Send")
Catch
End Try


sysrefresh()


msginfo( "E-mail Sent" )