如何使用CDO在发邮件时带上图片呢？ _学习

如何使用CDO在发邮件时带上图片呢？

创始人

2026-01-30 09:06:17

之前我们学过用CDO发邮件，但是没有图片，只有文字。那么我们在发送邮件的时候如何使用CDO来发送图片呢？

有关CDO如何自动发送电子邮件的信息，请查看以下文章

今天我们来学习如何使用CDO发送图片。话不多说，让我们看一下代码。

邮件自动发软件叫什么_邮箱自动发邮件_自动发邮件的软件

Sub CDOEMAIL2()    Application.ScreenUpdating = False    Const Email_From = "jaresfzz@163.com" '用于发送的邮箱号码    Const Password = "KSOQQUKBDNAROLCW" '邮箱密码，必须是开通SMTP服务后获得的授权密码    Dim cm  As New CDO.Message'    Dim cm As Variant'    Set cm = CreateObject("CDO.Message")   '后期绑定    With cm        .Subject = "这是邮件主题"        .From = Email_From        .To = "1120788721@qq.com"   '收件箱'        .TextBody = "这是一份使用CDO发送的邮件"        .AddAttachment "C:\Users\jares\Desktop\进度条.xlsm"        .HTMLBody = "" _                                    & "XXX：
" _                                    & "你好！
" _                                    & "这是你要的图片
" _                                    & "" _                                    & "请查收
" _                                & ""    End With    Const schema = "http://schemas.microsoft.com/cdo/configuration/" '微软邮件服务器网址    With cm.Configuration.Fields        .Item(schema & "sendusing") = 2 '发送端口        .Item(schema & "smtpserver") = "smtp.163.com" 'SMTP服务器地址        .Item(schema & "smtpauthenticate") = 1        .Item(schema & "sendusername") = Email_From '发送邮箱名称        .Item(schema & "sendpassword") = Password '发送邮箱密码        .Item(schema & "smtpserverport") = 465 'SMTP服务器端口        .Item(schema & "smtpusessl") = True        .Item(schema & "smtpconnectiontimeout") = 60        .Update    End With    cm.Send    Set cm = Nothing    Application.ScreenUpdating = TrueEnd Sub

第 14-20 行：使用 HTMLBODY 属性编写正文。

其实这篇文章和上一篇的不同之处在于自动发邮件的软件，之前是用TEXTBODY属性来写邮件正文的。这种方法只能写入文本，而本文使用HTMLBODY属性来写入正文，可以正常使用HTML语言。因此，我们可以用它来插入图片

在HTML中，可以使用以下语句来编写文本段落

<p>你好！p>

写图可以用下面的语句

<img src='C:\Users\jares\Pictures\联想截图\123.jpg' />"

所有语句应包含在以下语句中

<html><body>这里写入要写的内容body>html>

关于HTML语言，我们这里就不多做学习了。如果您有兴趣，可以参考以下学习文档。

上面的代码有如下效果：

自动发邮件的软件_邮件自动发软件叫什么_邮箱自动发邮件

好的，这就是本教程的内容。如果您路过，请关注并分享。谢谢。如果您是VBA新手自动发邮件的软件，想了解如何开始学习VBA，建议阅读下面的文章。

过去的推荐：>>>>>>>>>>>>>>>>

上一篇： 向日葵远程连接电脑的使用方法，你值得拥有！！

下一篇： 上海Flash动画短片的制作流程有哪些，原画做好后可能有些

如何使用CDO在发邮件时带上图片呢？

相关内容

热门资讯