Hi Paul,

the easiest solution in my mind is Outlook Redemption, you can read about it at http://www.dimastr.com/redemption/

>Hello all,
>
>The codes below to send an attached Excel file to Outlook email, it works fine except always me to confirm in Outlook with 2 screens asked :
>
>First screen : from microsoft Outlook
>
>A program is trying to access email-addresses you have stored in Outlook.
>Do you want to allow this ?
>If this is unexpected, it may be a virus and you should choose "No".
>
>Allow access for
>
>YES NO HELP
>----------------------------------------------
>Second screen : from Microsoft OutLook
>
>A program is trying to send automatically send email on your behalf
>
>Do you want to allow this ?
>If this is unexpected, it may be a virus and you should choose "No".
>
>
>YES NO HELP
>
>
>How to get rid of the 2 above screens from Microsoft Outlook ?
>
>Any help or suggestions would be greatly appreciated
>
>Tia
>
>CODES started
>

>*==============================================
>FUNCTION SendExcelFileByMail
>*==============================================
>LOCAL lcProfile, lcPassword, lcExcelFile, lcSubject, lcBody, lcIini_file, lnRecipients, lcbuffer
>LOCAL loApp, loNameSpace, loMailItem
>
>lcProfile 		= ""
>lcPassword 		= ""
>lcSubject 	= "TEST to send Excel File"
>
>lcExcelFile	=  getini("MEM_VAR", "MEM_EXCELFILE", gcIni)
>
>lcbody= " this is a test to send Excel File"
>			>loApp 		= CREATEOBJECT("Outlook.Application")
>loNameSpace	= loApp.GetNameSpace("MAPI")
>loNameSpace.Logon(lcProfile , lcPassword)
>loMailItem 	= loApp.CreateItem(0)
>
>lcRecipient	=getini("MEM_VAR", "MEM_RECIPIENT", gcIni)
>lnRecipients=OCCURS(",", lcRecipient)
>
>IF lnRecipients > 0
>
>	FOR i=1 TO lnRecipients+1
>		DO CASE
>			CASE i=1
>
>				lcbuffer=SUBSTR(lcRecipient,1,AT(",",lcRecipient,i)-1)
>				loMailItem.Recipients.ADD(lcbuffer)
>
>			CASE i=lnRecipients+1
>				lcbuffer=ALLTR(SUBSTR(lcRecipient, AT(",",lcRecipient,i-1)+1))
>				loMailItem.Recipients.ADD(lcbuffer)
>
>			OTHERWISE
>				lcbuffer=ALLTR(SUBSTR(lcRecipient, AT(",",lcRecipient,i-1)+1 ,  ;
>										AT(",",lcRecipient,i)-AT(",",lcRecipient,i-1) -1))
>				loMailItem.Recipients.ADD(lcbuffer)
>		ENDCASE
>	ENDFOR
>ELSE
>	loMailItem.Recipients.ADD(lcRecipient)
>ENDIF
>
>loMailItem.Subject	= lcSubject
>loMailItem.Body 	= lcBody
>
>loMailItem.Attachments.ADD(lcExcelFile, 1, 1, "gamm_active_and_stop")
>
>loMailItem.SEND
>loNameSpace.Logoff
>
>RETURN
>
>