[5分]在outlook正文中加入超链接，求代码，比较急

dim str,a,b,c

str=邮件内容

a=instr(str,"H:\")

b=instr(str,".doc")+3

c=b-a

str=left(str,a-1) ＆双引号小于号a herf=单引号双引号 & mid(str,a,c) & 双引号单引号大于号双引号＆mid(str,a,c) ＆双引号小于号/a大于号双引号 & mid(str,b+1,len(str))

因为HTML字符过滤，请相应改为相应符号。

不过链接是本机路径，不行。需要虚拟地址。仅供参考。

建议ACCESS软件网程序中的Server.HtmlEncode应用。呵呵。