Hi John,

How are you generating the text of your email message? If you already have an .htm document, you can simply add the timestamp to it through VFP like;

dtstamp=TTOC(DATETIME())
datetimestamp='<p><b><fontsize="5">Date/Time '+dtstamp+',</font></b></p>'
loEmailItem.HTMLBody=lcBody+datetimestamp

where lcBody is the converted, through FILETOSTR, document. In my example, I'm scanning through the table and doing this for each record. This way the TO: line from Outlook only has one address in it. When I run it, I end up with however many records there are in the table in the Outlook OutBox, each adressed to a different person but with the text, from the .htm document, and the timestamp on each one.


>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
>>