>Hi,
>
>I modelled a part of my application on the Solutions example for sending mail. Here's the code I use:
>
>

with Thisform.oMAPI
>	m.lcEmailAddress = oApp.GetClientEmail(oApp.inPersonId)
>	IF NOT EMPTY(m.lcEmailAddress)
>		.AddRecipient(m.lcEmailAddress)
>	ELSE
>		x3MSGSVC("No Email address found for this client.")
>	ENDIF
>	.AddAttachment(m.lcOutputFile)
>	.cSubject = JUSTFNAME(m.lcOutputFile)
>        .Send(.T.)
>endwith
>

>
>
>This works fine for my Thunderbird email program, but a client using Outlook 2003 says they get prompted with the normal Outlook "something else is trying to send email" message, but then nothing happens after they "allow it".
>
>Should this work?

Search here for Redemption or ClickYes to overcome the security patch.