Hi Greg,

I'm not getting it... Do I just cut-and-paste your example into the text of my outgoing email and the date and time sent will be inserted there when it's received by the person I sent it to?

Thanks much,

John

>>Hi all,
>>
>>Sometimes mail doesn't get delivered as fast as we'd like, so I was wondering if there was a way to automatically insert a date/time stamp at the bottom of my email messages. I can't find anything in Outlook itself, but was wondering if there was some kind of add-on that does this.
>>
>>Thanks much,
>>
>>John
>
>John,
>
>I should have included more of an example in my previous message.........
>

>SELECT * from machines WHERE modelname='Greg' INTO CURSOR temp
>loOutlook = CREATEOBJECT('outlook.application')
>lcBody =FILETOSTR('email.htm') && .htm file created in Word 2000
>SCAN
>  loEmailItem=loOutlook.createItem(0)
>  loEmailItem.To=temp.email1
>  loEmailItem.Subject='This is the subject'
>  dtstamp=TTOC(DATETIME())
>  datetimestamp='<p><b><fontsize="5">Date/Time '+dtstamp+',</font></b></p>'
>  loEmailItem.HTMLBody=lcbody+datetimestamp
>  loEmailItem.Send
>ENDSCAN
>loOutlook=.null.
>RELEASE loOutlook	
>CLOSE DATABASES
>