Microsoft Outlook 2003

[MdaSolution]

How I can send email and attack from my application into Outlook 2003 ?
Any test sample ?
tks

[hag]

If I understand your question you want to send email via outlook. This code sends me an error.log whrn my client gets an error. From his email to mine.

Code: Select all  Expand view

#include "FiveWin.ch"
#include "mail.ch"

 local oMail,aCustomer:={}
   local cSubject:="Error file"
   local cWhich    
   local curDir  := curDir()   
   local curDri  := curDrive() 
   local cMessage:=""
   local aFiles  := {} 
   local cName  
   local cEntity, cName2, cTele,oGet1,oGet2,oDlg3
   local cDemo 


   DEFINE FONT oFont7 NAME "Ms Sans Serif" SIZE 0,-12
   DEFINE DIALOG ODLG3 RESOURCE "errmess" font ofont7

   REDEFINE get oGet1 var cName2 ID 4003 OF oDlg3
   REDEFINE get oGet2 var cTele  ID 4004 OF oDlg3 picture "999-999-9999"
   REDEFINE BUTTON ID 4002 OF oDlg3 ACTION (odlg3:end())   

   ACTIVATE DIALOG oDlg3 centered

   cWhich := curdri+":\"+curDir+"\"+"error.txt"        

   aFiles:={"cWhich","Error.txt"}

   aadd(aCustomer,"support@upyourcashflow.com")

   DEFINE MAIL oMail  ;
   SUBJECT cSubject   ;
     TEXT  allTrim(cName)+CRLF+DTOC(DATE())+" "+TIME()+CRLF+"Version xt2009-10, date: "+cVersion+" "+cDemo+CRLF+;
                 alltrim(cName2)+" "+cTele ;
     FILES curdri+":\"+curDir+"\"+"error.txt","Error.txt"   ;
     TO "support@upyourcashflow.com"

   ACTIVATE MAIL oMail

  msgInfo("Notice sent  ")

[Enrico Maria Giordano]

This is a working sample:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oMail

    LOCAL cRec := "Enrico Maria Giordano"
    LOCAL cEma := "e.m.giordano@emagsoftware.it"
    LOCAL cSub := "Test"
    LOCAL cAtt := CURDRIVE() + "\:" + CURDIR() + "\TEST.PRG"

    DEFINE MAIL oMail;
           SUBJECT cSub;
           TEXT "This is a test";
           FROM USER;
           FILES cAtt, ""

    oMail:aRecipients = { { cRec, cEma } }

    ACTIVATE MAIL oMail

    RETURN NIL

EMG

[MdaSolution]

Thanks Emg