Office中国论坛/Access中国论坛

标题: 合并打印挑战性问题! [打印本页]
作者: lc96102    时间: 2007-7-21 05:47
标题: 合并打印挑战性问题!
< ><FONT size=3>我有一个<FONT face="Times New Roman">access </FONT>或<FONT face="Times New Roman"> excel. </FONT>表格如下<FONT face="Times New Roman">:</FONT></FONT></P>
<TABLE  cellSpacing=0 cellPadding=0 width=515 border=0>

<TR >
<TD  vAlign=bottom noWrap width=75>
< >Name<o:p></o:p></P></TD>
<TD  vAlign=bottom noWrap width=132>
< >Product<o:p></o:p></P></TD>
<TD  vAlign=bottom noWrap width=97>
<P >Brand<o:p></o:p></P></TD>
<TD  vAlign=bottom noWrap width=211>
<P >Email<o:p></o:p></P></TD></TR>
<TR >
<TD  vAlign=bottom width=75>
<P >111<o:p></o:p></P></TD>
<TD  vAlign=bottom width=132>
<P >LM339D<o:p></o:p></P></TD>
<TD  vAlign=bottom width=97>
<P >ST<o:p></o:p></P></TD>
<TD  vAlign=bottom width=211>
<P ><U><a href="mailto:111@111.com" target="_blank" >111@111.com</A><o:p></o:p></U></P></TD></TR>
<TR >
<TD  vAlign=bottom width=75>
<P >111<o:p></o:p></P></TD>
<TD  vAlign=bottom width=132>
<P >LM8481<o:p></o:p></P></TD>
<TD  vAlign=bottom width=97>
<P >ST<o:p></o:p></P></TD>
<TD  vAlign=bottom width=211>
<P ><U><a href="mailto:111@111.com" target="_blank" >111@111.com</A><o:p></o:p></U></P></TD></TR>
<TR >
<TD  vAlign=bottom width=75>
<P >111<o:p></o:p></P></TD>
<TD  vAlign=bottom width=132>
<P >LM5544<o:p></o:p></P></TD>
<TD  vAlign=bottom width=97>
<P >ST<o:p></o:p></P></TD>
<TD  vAlign=bottom width=211>
<P ><U><a href="mailto:111@111.com" target="_blank" >111@111.com</A><o:p></o:p></U></P></TD></TR>
<TR >
<TD  vAlign=bottom width=75>
<P >111<o:p></o:p></P></TD>
<TD  vAlign=bottom width=132>
<P >473GX5<o:p></o:p></P></TD>
<TD  vAlign=bottom width=97>
<P >NIC<o:p></o:p></P></TD>
<TD  vAlign=bottom width=211>
<P ><U><a href="mailto:111@111.com" target="_blank" >111@111.com</A><o:p></o:p></U></P></TD></TR>
<TR >
<TD  vAlign=bottom width=75>
<P >222<o:p></o:p></P></TD>
<TD  vAlign=bottom width=132>
<P >LM339D<o:p></o:p></P></TD>
<TD  vAlign=bottom width=97>
<P >ST<o:p></o:p></P></TD>
<TD  vAlign=bottom width=211>
<P ><U><a href="mailto:222@222.com" target="_blank" >222@222.com</A><o:p></o:p></U></P></TD></TR>
<TR >
<TD  vAlign=bottom width=75>
<P >222<o:p></o:p></P></TD>
<TD  vAlign=bottom width=132>
<P >A<st1:chmetcnv w:st="on" TCSC="0" NumberType="1" Negative="False" HasSpace="False" SourceValue="3" UnitName="C">3C</st1:chmetcnv><o:p></o:p></P></TD>
<TD  vAlign=bottom width=97>
<P >HIR<o:p></o:p></P></TD>
<TD  vAlign=bottom width=211>
<P >222@222.com<o:p></o:p></P></TD></TR>
<TR >
<TD  vAlign=bottom width=75>
<P >222<o:p></o:p></P></TD>
<TD  vAlign=bottom width=132>
<P >201<o:p></o:p></P></TD>
<TD  vAlign=bottom width=97>
<P >ON<o:p></o:p></P></TD>
<TD  vAlign=bottom width=211>
<P >222@222.com<o:p></o:p></P></TD></TR>
<TR >
<TD  vAlign=bottom width=75>
<P >222<o:p></o:p></P></TD>
<TD  vAlign=bottom width=132>
<P >014D<o:p></o:p></P></TD>
<TD  vAlign=bottom width=97>
<P >UI<o:p></o:p></P></TD>
<TD  vAlign=bottom width=211>
<P >222@222.com<o:p></o:p></P></TD></TR></TABLE>
<P ><o:p><FONT face="Times New Roman" size=3> </FONT></o:p></P>
<P ><FONT size=3>请问可否用合并打印发邮件功能分别发电邮给不同的<FONT face="Times New Roman">name.<o:p></o:p></FONT></FONT></P>
<P ><FONT size=3>即是<FONT face="Times New Roman">:</FONT></FONT></P>
<P ><o:p><FONT face="Times New Roman" size=3> </FONT></o:p></P>
<P ><FONT size=3>将<FONT face="Times New Roman">111</FONT>的资料发给</FONT><U><a href="mailto:111@111.com" target="_blank" >111@111.com</A></U></P>
<TABLE  cellSpacing=0 cellPadding=0 width=268 border=0>

<TR >
<TD  vAlign=bottom noWrap width=154>
<P >Product<o:p></o:p></P></TD>
<TD  vAlign=bottom noWrap width=114>
<P >Brand<o:p></o:p></P></TD></TR>
<TR >
<TD  vAlign=bottom width=154>
<P >LM339D<o:p></o:p></P></TD>
<TD  vAlign=bottom width=114>
<P >ST<o:p></o:p></P></TD></TR>
<TR >
<TD  vAlign=bottom width=154>
<P >LM8481<o:p></o:p></P></TD>
<TD  vAlign=bottom width=114>
<P >ST<o:p></o:p></P></TD></TR>
<TR >
<TD  vAlign=bottom width=154>
<P >LM5544<o:p></o:p></P></TD>
<TD  vAlign=bottom width=114>
<P >ST<o:p></o:p></P></TD><
作者: Grant    时间: 2007-7-21 08:33
<>不是很明白下列说法不知道对不对</P>
<>用循环来输出发送的邮件内容</P>
<>可以用ADO来完成.</P>
作者: lc96102    时间: 2007-7-22 03:32
謝謝! 能否提供個例子阿? 麻煩你了.
作者: lc96102    时间: 2007-7-24 07:06
any body help me.
作者: Grant    时间: 2007-7-24 07:30
<>稍等,给你写一个方法~</P>
作者: Grant    时间: 2007-7-24 09:20
<>rivate Sub Command0_Click()<BR>Dim rs As ADODB.Recordset<BR>Set rs = New ADODB.Recordset</P>
<>strSQL = "select * from [1] where name in(111,222)"  '这里可以用变量<BR>rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic</P>
<P>MsgBox rs.RecordCount<BR>Do While Not rs.EOF</P>
<P>'这里调用邮件调用模块</P>
<P><BR>rs.MoveNext '进入下一条纪录<BR>Loop</P>
<P>    rs.Close<BR>    Set rs = Nothing<BR>End Sub</P>
作者: poly    时间: 2007-7-24 10:01
不懂



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3