FiveTech Software tech support forums

... := TOleAuto():New("Outlook.Application") oMailItem := oOutLook:CreateItem( 0 ) oMailItem:SendUsingAccount := "xxxx@yyy.zzz" oRecip := oMailItem:Recipients .. .. Any ideas ?

... the default account (nick@softwarexp.co.uk) oOutLook := TOleAuto():New("Outlook.Application") oMailItem := oOutLook:CreateItem( 0 ) oRecip := oMailItem:Recipients Thank you in advance

... in case it isn't running ? thank you **** TRY oOutLook := TOleAuto():New("Outlook.Application") oMailItem := oOutLook:CreateItem( 0 ) oRecip := oMailItem:Recipients CATCH MsgStop("Outlook isn't running.","Attention") return(-1) END

... la mia routine di invio: FUNCTION Interactivemessage() paramet cSubject, cBody, aTo, aFiles, lDirectSend,lUseCC,cOrigin LOCAL oOutLook,oMailItem,oRecip,oAttach,i,lOffice,lMailMancante,cVar local nSelected,oDlg1 if lUseCC=NIL lUseCC:=.f. endif if lDirectSend=NIL lDirectSend:=.f. endif if cSubject=NIL ...

... #include "Mail.ch" FUNCTION Interactivemessage() paramet cSubject, cBody, aTo, aFiles, lDirectSend,lUseCC LOCAL oOutLook,oMailItem,oRecip,oAttach,i,lOffice,lMailMancante,cVar local nSelected,oDlg1 if lUseCC=NIL lUseCC:=.f. endif if lDirectSend=NIL lDirectSend:=.f. endif if cSubject=NIL ...

... a way to do this ? This is my current code: oOutLook := CreateObject( "Outlook.Application" ) oMailItem := oOutLook:CreateItem( 0 ) oRecip := oMailItem:Recipients oRecip:Add( "test@softwarexp.co.uk" ) oMailItem:Subject := "Subject" oMailItem:Body := "Mail ...

... return("") FUNCTION Interactivemessage() paramet cSubject, cBody, aTo, aFiles, lDirectSend LOCAL oOutLook,oMailItem,oRecip,oAttach,i,lOffice,lMailMancante if lDirectSend=NIL lDirectSend:=.f. endif if cSubject=NIL cSubject:="" endif if cBody=NIL cBody:="" ...

He conseguido enviar correo ok, con el outlook asi con un ejemplo que vi : static function GeneraCorreo() LOCAL oOutLook,oMailItem,oRecip,oAttach oOutLook := TOleAuto():New("Outlook.Application") oMailItem := oOutLook:Invoke("CreateItem", 0) oRecip := oMailItem:Invoke("Recipients") ...

... image in the sending of email in the example? #include "fivewin.ch" **************** FUNCTION SendMail ***************** LOCAL oOutLook,oMailItem,oRecip,oAttach oOutLook := TOleAuto():New("Outlook.Application") oMailItem := oOutLook:Invoke("CreateItem", 0) oRecip := oMailItem:Invoke("Recipients") ...

... image in the sending of email in the example? #include "fivewin.ch" **************** FUNCTION SendMail ***************** LOCAL oOutLook,oMailItem,oRecip,oAttach oOutLook := TOleAuto():New("Outlook.Application") oMailItem := oOutLook:Invoke("CreateItem", 0) oRecip := oMailItem:Invoke("Recipients") ...

... image in the sending of email in the example? #include "fivewin.ch" **************** FUNCTION SendMail ***************** LOCAL oOutLook,oMailItem,oRecip,oAttach oOutLook := TOleAuto():New("Outlook.Application") oMailItem := oOutLook:Invoke("CreateItem", 0) oRecip := oMailItem:Invoke("Recipients") ...

... warning when necessary but to install this utility on all my users machines is not practical. FUNCTION SendMail() LOCAL oOutLook,; oMailItem,; oRecip,; oAttach /* creating the OLE object */ TRY oOutLook := CreateObject( "Outlook.Application" ) CATCH Alert( "ERROR! Outlook not avialable." ) ...

... #include "FiveWin.ch" #include "Mail.ch" FUNCTION Interactivemessage() paramet cSubject, cBody, aTo, aFiles, lDirectSend LOCAL oOutLook,oMailItem,oRecip,oAttach,i if lDirectSend=NIL lDirectSend:=.f. endif if cSubject=NIL cSubject:="" endif if cBody=NIL cBody:="" endif if aFiles=NIL aFiles:=array(0,0) ...

... february 2006 and xharbour 0.99.60) but the bellow example is working perfectly #include "fivewin.ch" FUNCTION SendMail() LOCAL oOutLook,oMailItem,oRecip,oAttach oOutLook := CreateObject( "Outlook.Application" ) oMailItem := oOutLook:CreateItem( 0 ) oRecip := oMailItem:Recipients oRecip:Add( "mail@mail.com" ...

... feature for the user to modify/integrate the email contents. Thanks in advance. Best Regards, Marco FUNCTION SendMail() LOCAL oOutLook,oMailItem,oRecip,oAttach oOutLook := CreateObject( "Outlook.Application" ) oMailItem := oOutLook:CreateItem( 0 ) oRecip := oMailItem:Recipients oRecip:Add( "noc@softwarexp.co.uk" ...