Ms access 从Access发送HTML格式的电子邮件

当您的默认邮件客户端不是Outlook时，是否有任何方法可以以HTML格式发送邮件（如果可能的话，还包括附件）

---

非常感谢您提供的任何解决方案。

您应该能够使用CDO（协作数据对象）。代码将如下所示：

选项比较数据库
选项显式
子cdoHtmlTest（）
常量URL前缀=”http://schemas.microsoft.com/cdo/configuration/"
Dim msg作为对象的CDO.Message
设置msg=CreateObject（“CDO.Message”）'新的CDO.Message
使用msg.Configuration.Fields
.Item（URL前缀和“sendusing”）=2'CDOSensingPort
.Item（urlPrefix和“smtpserver”）=“smtp.example.com”
.Item（URL前缀和“smtpserverport”）=25
.Item（urlprofix和“smtpauthenticate”）=1'cdoBasic
.Item（URL前缀和“sendusername”）=“mySmtpUserName”
.Item（urlprofix和“sendpassword”）=“mySmtpPassword”
.Item（urlprofix和“smtpusesl”）=False
.Update'记住执行此步骤！
以
加味精
.To=”gord@example.com"
.From=”gord@example.com"
.Subject=“HTML消息测试”
.HTMLBody=“这是一个测试”
.发送
以
设置msg=Nothing
端接头

---

有关更多示例（包括如何发送附件），请查看。

新年快乐，感谢您的帮助。我假期不在，现在回来了。上面的例子正是我想要的，但让我再问你两个问题。1-是否可以在发送邮件之前显示（查看和编辑）邮件。2-有没有办法隐藏smpt密码？万分感谢任何进一步的帮助我找到了这个页面。消息对象的唯一方法似乎是Send&Delete@Tera（1）要预览消息，我想您可以将

.HTMLBody

文本转储到表单上的富文本文本框控件，或者将其转储到HTML文件并在浏览器中打开。（2） 有几种方法可以混淆SMTP密码，但要完全隐藏它，可能必须完全隐藏。