Hi Jim,

I don't know how Outlook handles bad email. We're using MAPI. However it should take much less than 6 secs to send one email. There's file #9662 Oulook mail class in download section. I would suggest that you download it and take a look.

BTW, you can use < pre > and < /pre > tags (no spaces) to preserve code formatting.

< snip >
>
>Now I have another question about the behavior of Outlook in respect to bad email addresses.
>
>Below is the method that actually sends the emails out.
>
>I tested for bad email addresses because I heard somewhere that this could be problematic and found that my computer doesn't handle them well, it basically hangs and seems to keep trying to send the "bad" email.
>
>Is there a setting or code that would make Outlook skip a bad address?
>
>It also averages about 6 seconds to send each email, does this seem normal or is there a way to make it run quicker. I'm on a LAN and access the internet through an ISDN line and we use MS Exchange for handling email.
>
>Thnaks,
>Jim

>***mlemail.m_email()
>with thisform.Hscntemail
>	with .Hsoptstatus
>		do case
>		case .Option1.value = 1
>			mstatus = " type <> ' ' "   &&&& type = newsletter
>		case .Option2.value = 1
>			mstatus = " group <> ' ' "  &&&& group = advertising
>		endcase
>	endwith
>	select ;
>		e_mail, ;
>		type, ;
>		group ;
>		from ;
>		mail ;
>		where ;
>		e_mail <> " " ;
>		and ;
>		&mstatus ;
>		into cursor sys(2015)
>	#define olfolderdisplaynormal 0
>	loOutlook = createobject("outlook.application")
>	lonamespace = loOutlook.getnamespace("mapi")
>	scan
>		wait window at 25,50 "Please be patient..." nowait
>		memailaddress = e_mail
>		loemailitem = loOutlook.createitem(0)
>		loemailitem.to = memailaddress
>		loemailitem.subject = .Hstxtsubject.value
>		loemailitem.body = .Hsedtbody.value
>		loemailitem.send()
>	endscan
>	looutlook = .null.
>	release looutlook
>endwith
>thisform.release

>
>>Hi Jim,
>>
>>Why do you create thisform.r_cstarttime as a an expression in the string not as a datetime as follows?

thisform.r_cstarttime = datetime(ln_year, ln_month, ln_day, ln_hours, ln_minutes, ln_seconds)

If there's a reason than you have to evaluate the expression stored in thisform.r_cstarttime to get datetime

ldt_starttime = EVAL(thisform.r_cstarttime )

Actually it wouldn't work because all variables in that expression are alreday out of scope at that time.
>>