[求助] 有关邮件问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim o As New Microsoft.Office.Interop.Outlook.Application
Dim msg As Microsoft.Office.Interop.Outlook.MailItem

For Each dr As DataRow In DataTables("借款").Select("到期日期<= #" & Date.Today.AddDays(10) & "#")

msg = o.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
msg.Recipients.Add(dr("邮件地址")) '收件人郵件地址
msg.Subject = "催款通知"
msg.Body = dr("姓名") & dr("尊称") & ":" & ln & "您的贷款将于" & dr("到期日期") & "到期, "
msg.Send()
Next

如果数据没有加载使用sqlselect

比较麻烦。可以试试提取execl里的数据合并为html的table表格

把定义outlook变量的代码改为1楼的用法，其他代码照抄就行了

Dim OLAPP As New Microsoft.Office.Interop.Outlook.Application
Dim olmail As Microsoft.Office.Interop.Outlook.MailItem
olmail = OLAPP .CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)

OLT = "<tabel class = MsotableGrid border = 1 cellspacing =0 cellpadding =0 style ='border-collapse:border:none:mso-border-alt:solid windowstext.5pt:mso-yfti-tbl ollk:1184:mso-padding-alt:0IN 5.4PT Oin 5.4pt'>"

For TableRow = 2 To 22

OLT = OLT & "<tr style = ' mso-yfti-irow:0:mso-yfti-firstrow:yes:height:.2in'>"

For Tablecolumn = 1 To 14

OLT = OLT & " <td width=65 nowrap valign=top style='width:125pt;border:solid windowtext 1.0pt;mso-border-alt:solid windowtext .5pt;padding:0in 5.4pt 0in 5.4pt;height:.2in'>" & "" & Cells(TableRow, Tablecolumn) & " <o:p></o:p></td>"

OLT = OLT & " </tr>"

OLT = OLT & "</table>"

With olmail

.TO = "11@XX.COM"

.CC = ""

.BCC " """

.Subject = "XX"

.hTMLBODY = "hI , " & OLT & " yy "

End With

Cells(TableRow, Tablecolumn)改为使用vba：http://www.foxtable.com/webhelp/topics/2121.htm，或者XLS.Book：http://www.foxtable.com/webhelp/topics/1144.htm，提取execl数据即可

主题：[求助] 有关邮件问题