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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 有关邮件问题

共有4521人关注过本帖树形打印复制链接主题：[求助] 有关邮件问题

sanny

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00

[求助] 有关邮件问题 发帖心情

Post By：2023/5/12 20:59:00 [显示全部帖子]

老师，以下可以改用outlook邮箱发送吗？

[此贴子已经被作者于2023/8/13 19:09:31编辑过]

sanny

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00

Post By：2023/5/13 11:15:00 [显示全部帖子]

老师，可以用以下代码发outlook邮件，但是黄色标注的如何加入到以下代码中用outlook邮件发出？

Dim o As New Microsoft.Office.Interop.Outlook.Application
Dim msg As Microsoft.Office.Interop.Outlook.MailItem
msg = o.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
msg.Recipients.Add("spring.me@qq.com") '收件人郵件地址
msg.Subject = "采购单" '郵件主旨
msg.Body = "abc" '郵件內容
'msg.Attachments.Add("d:\test.txt") '添加採購訂單pdf件為附件
msg.Send()

For Each dr As DataRow In DataTables("借款").Select("到期日期<= #" & Date.Today.AddDays(10) & "#")
 m.To = dr("邮件地址")
 m.Title = "催款通知"
 m.Content = dr("姓名") & dr("尊称") & ":" & ln & "您的贷款将于" & dr("到期日期") & "到期, "
 m.Content = m.Content & "金额为" & dr("金额") & "元, 请准时还款!" & ln & "某某公司" & vbcrlf & Date.today
 m.SendAsync()
Next

sanny

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00

Post By：2023/5/13 11:56:00 [显示全部帖子]

老师，再请教一下，如何把到期日期的所有记录都带出来，目前只有出来一笔记录。

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

Dim msg As Microsoft.Office.Interop.Outlook.MailItem

Dim m As New MailSender

Dim ln As String = vbcrlf & vbcrlf

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

msg = o.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)

msg.Subject = "催款通知"

msg.Body = dr("姓名") & dr("尊称") & ":" & ln & "您的贷款将于" & dr("到期日期") & "到期, "

msg.Recipients.Add("收件人")

msg.Send()

msgbox("Done")

sanny

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00

Post By：2023/5/13 16:00:00 [显示全部帖子]

老师，同时又增加了个附件 msg.Attachments.Add("d:\Book.xlsx")

并把这表Book1中的内容如下

此主题相关图片如下：book1.jpg

如何提取增加到邮件正文中，如下：

此主题相关图片如下：模板.jpg

sanny

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00

Post By：2023/5/15 12:06:00 [显示全部帖子]

老师，这样可以达成吗？

sanny

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00

Post By：2023/5/15 20:02:00 [显示全部帖子]

老师，如下是在Excel中点按钮后转到邮件正文中的，如何用foxtable窗口按钮操作，还请指导一下，谢谢。

Dim olmail As outlook.MailItem

Dim r As Integer, c As Integer, u As Integer

Dim TableRow As Integer, Tablecolumn As Integer

Dim OLT As String

Set OLAPP = New outlook.Application

Set olmail = OLAPP.createItem(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

Set OLAPP = Nothing

End Sub