文档建议反馈控制台
首页
学习
活动
专区
工具
TVP
最新优惠活动
文章/答案/技术大牛
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

VBA创建Content-Type: multipart/related的Outlook邮件？

VBA是Visual Basic for Applications的缩写，是一种用于Microsoft Office应用程序的编程语言。在VBA中创建Content-Type为multipart/related的Outlook邮件，可以通过以下步骤实现：

  1. 首先，确保已经在VBA编辑器中打开了Outlook应用程序。
  2. 创建一个新的邮件对象，并指定邮件的收件人、主题和正文等基本信息。
代码语言：vba
复制
Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
    .To = "收件人邮箱地址"
    .Subject = "邮件主题"
    .Body = "邮件正文"
End With
  1. 接下来，需要设置邮件的Content-Type为multipart/related，以支持在邮件正文中嵌入相关资源（如图片、附件等）。
代码语言：vba
复制
objMail.BodyFormat = 2 ' 设置邮件格式为HTML

' 创建邮件的HTMLBody
Dim strHTML As String
strHTML = "<html><body>"
strHTML = strHTML & "<p>邮件正文内容</p>"
strHTML = strHTML & "<img src='cid:图片名称' alt='图片描述'>"
strHTML = strHTML & "</body></html>"

' 添加相关资源
Dim objAttachment As Object
Set objAttachment = objMail.Attachments.Add("图片路径")
objAttachment.PropertyAccessor.SetProperty "http://schemas.microsoft.com/mapi/proptag/0x3712001F", "图片名称"

' 设置邮件的HTMLBody
objMail.HTMLBody = strHTML

在上述代码中，objMail.BodyFormat = 2将邮件格式设置为HTML，然后通过strHTML变量构建了邮件的HTMLBody。在HTMLBody中，可以使用<img>标签来嵌入图片资源，其中src属性的值为cid:图片名称，表示引用了附件中的图片资源。通过objMail.Attachments.Add("图片路径")添加图片附件，并使用objAttachment.PropertyAccessor.SetProperty设置附件的http://schemas.microsoft.com/mapi/proptag/0x3712001F属性为图片名称。

  1. 最后，发送邮件。
代码语言：vba
复制
objMail.Send

完整的VBA代码如下：

代码语言：vba
复制
Sub CreateMultipartRelatedEmail()
    Dim objOutlook As Object
    Dim objMail As Object
    
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    
    With objMail
        .To = "收件人邮箱地址"
        .Subject = "邮件主题"
        .Body = "邮件正文"
    End With
    
    objMail.BodyFormat = 2 ' 设置邮件格式为HTML
    
    ' 创建邮件的HTMLBody
    Dim strHTML As String
    strHTML = "<html><body>"
    strHTML = strHTML & "<p>邮件正文内容</p>"
    strHTML = strHTML & "<img src='cid:图片名称' alt='图片描述'>"
    strHTML = strHTML & "</body></html>"
    
    ' 添加相关资源
    Dim objAttachment As Object
    Set objAttachment = objMail.Attachments.Add("图片路径")
    objAttachment.PropertyAccessor.SetProperty "http://schemas.microsoft.com/mapi/proptag/0x3712001F", "图片名称"
    
    ' 设置邮件的HTMLBody
    objMail.HTMLBody = strHTML
    
    objMail.Send
End Sub

请注意，上述代码中的"收件人邮箱地址"、"邮件主题"、"邮件正文"、"图片名称"、"图片路径"等需要根据实际情况进行替换。另外，如果需要添加其他附件或嵌入其他资源，可以根据需要进行相应的修改。

关于腾讯云相关产品和产品介绍链接地址，由于要求不能提及具体品牌商，无法给出具体的腾讯云产品链接。但是腾讯云提供了一系列云计算相关的产品和服务，包括云服务器、云数据库、云存储等，您可以通过访问腾讯云官方网站或搜索引擎来获取相关信息。

相关搜索:通过VBA创建带超链接的outlook电子邮件Outlook VBA邮件正文的复制部分(选择)Outlook VBA代码为%2命令创建%1电子邮件在VBA创建的HTML Outlook电子邮件中设置电子邮件正文背景颜色Outlook使用vba创建具有csv文件查找功能的新电子邮件Outlook VBA创建的草稿邮件在发送时会出现“操作失败”错误如何提高Outlook电子邮件筛选的效率(VBA)vba Outlook基于用户表单数据和模板创建电子邮件如何在带邮件线程的excel中使用vba回复outlook邮件？如何在outlook vba中分配已发送邮件的类别？Excel VBA创建Outlook电子邮件规则以将传入邮件移动到特定文件夹Outlook VBA，如何仅删除超过90天的电子邮件使用vba转发outlook文件夹中的电子邮件Outlook VBA -检索电子邮件地址显示名称的功能用于在Outlook中创建电子邮件的LinkButton使用VBA将电子邮件消息写入Outlook中的平面文件使用Excel VBA在Outlook邮件中的粘贴正文后插入签名没有“保存更改”对话框的Outlook VBA草稿电子邮件将Outlook邮件保存到由VBA在本地驱动器中创建的文件夹使用模板在VBA中创建的Outlook电子邮件在保存时会转换为纯文本
相关搜索:
页面内容是否对你有帮助？
有帮助
没帮助

相关·内容

Windows下Email安装配置与发信

邮件的创建者 MIME-Version MIME版本 邮件的创建者 Content-Type 内容的类型...multipart/mixed段；如果存在内嵌资源至少要定义multipart/related段；如果纯文本与超文本共存至少要定义multipart/alternative段。...答:如果只有纯文本与超文本正文，那么在邮件头中将类型扩大化，定义为multipart/related，甚至multipart/mixed，都是允许的。...些复合类型又是可以嵌套使用的，比如说一个带有附件的邮件，同时有html与text两种格式的正文，则邮件的结构是： Content-Type: multipart/mixed 部分一： Content...: multipart/related; 方式3.采用邮箱客户端进行登陆发信，这里不多说了（自己建的邮件服务器采用密码，如果用的是QQ采用授权码即可）; 3.javamail.jar 描述:老规矩我们首先需要将

1.1K10

    • MIME协议在邮件中的应用详解

    回复地址 邮件的创建者 From 发件人地址 邮件的创建者 To 收件人地址 邮件的创建者 Cc 抄送地址 邮件的创建者 Bcc 暗送地址 邮件的创建者 Date 日期和时间 邮件的创建者 Subject...主题 邮件的创建者 Message-ID 消息ID 邮件的创建者 MIME-Version MIME版本 邮件的创建者 Content-Type 内容的类型 邮件的创建者 Content-Transfer-Encoding...内容的传输编码方式 邮件的创建者 　　1.1.邮件类型（Content-Type） 　　content-type用来说明下面的邮件正文类型，一般以下面的形式出现。...可以看出，如果在邮件中要添加附件，必须定义multipart/mixed段；如果存在内嵌资源，至少要定义multipart/related段；如果纯文本与超文本共存，至少要定义multipart/alternative...举个例子说，如果只有纯文本与超文本正文，那么在邮件头中将类型扩大化，定义为multipart/related，甚至multipart/mixed，都是允许的。

    3.4K10

    Python 发送邮件

    程序人员对于邮件自动化的日常需求还是很高的。...但是入过了Linux的命令行邮件客户端如Sendmail, Mutt, Alpine等坑之后，发现现代其实很少人真的在用它们实现邮件自动化，根据搜索引擎里相关文章的数量就可知一二。...取而代之的是，现代都在用Python或PHP等编程语言直接实现。Python更是自带一套模块实现邮件发送。 先上示例代码，之后再详解。...参考：菜鸟教程 - Python SMTP发送邮件 参考：简单三步，用 Python 发邮件 发送HTML格式的漂亮邮件 import smtplib from email.mime.text import...：Yagmail 之所以放在最后，是相衬托出传统的发送邮件是多繁琐多麻烦，实际上我们需要的只是超级简单的东西。

    74120

    HTTP的媒体类型

    HTTP的媒体类型 1.MIME类型的数据格式标签（MultIpurpose Internet Mail Extension） 2.最初用于电子邮件系统之间搬移，多用途互联网邮件扩展 3.MIME类型是一种文本标记.../vnd.ms-powerpoint 5.MIME的编码: MIME提供了一种可以在邮件中附加多种不同编码文件的方法，弥补了原来的信息格式的不足。...实际上不仅仅是邮件编码，现在MIME经成为HTTP协议标准的一个部分。...邮件中内嵌资源的三种方式，范围由大到小层次关系,大的可以包含小的 Content-Type: multipart/mixed 如果是附件 Content-Type: multipart/related...如果存在内嵌资源 Content-Type: multipart/alternative 如果存在纯文本和html 8.使用命令发送一封mime邮件 /usr/sbin/sendmail -t -f

    61310

    如何使用Excel与Outlook实现邮件群发：详细教程

    引言在工作中，我们经常需要发送大量邮件。手动发送既费时又容易出错。本教程将教你如何使用Excel和Outlook，通过简单的VBA代码实现邮件的自动群发，提高工作效率。...步骤三：编写VBA代码点击“开发工具”标签，选择“Visual Basic”。在“工具”菜单中选择“引用”，找到并选中对应的Outlook版本，点击“确定”。...As Integer Dim 等待时间 As Date ' 创建Outlook应用程序实例 Set 小信差 = New Outlook.Application ' 获取Excel...中的数据行数 总列数 = Cells(1000, 1).End(xlUp).Row ' 遍历每一行数据发送邮件 For 列数 = 2 To 总列数 ' 创建新的邮件项...点击按钮即可发送邮件文件保存时应选启用宏的工作簿，默认宏是不开启的，需要启用宏才能发邮件，点击发邮件前确认outlook在运行如有多个邮箱，可切换默认邮箱实现换邮箱发信常见问题解答宏无法运行：确保在打开

    62811

    MIME协议详解「建议收藏」

    — multipart/related 表 示消息体中的内容是关联（依赖）组合类型，例如图3.5中的邮件正文要使用HTML代码引用内嵌的图片资源，它们组合成的MIME消息的MIME类型就应 该定义为multipart.../related，表示其中某些资源（HTML代码）要引用（依赖）另外的资源（图像数据），引用资源与被引用的资源必须组合成multipart/related类型的MIME组合消息。...related类型的MIME消息；如果普通文本内容与HTML文本内容共存，那就要定义multipart /alternative类型的MIME消息。...那么整封邮件的MIME类型则应定义为 multipart/related。...— Content-ID头字段 Content- ID头字段用于为“multipart/related”组合消息中的内嵌资源指定一个唯一标识号，在HTML格式的正文中可以使用这个唯一标识号来引用 该内嵌资源

    2.6K20

    Active APT

    一种工具是针对 Microsoft Outlook 的 VBA 宏，它使用目标的电子邮件帐户向受害者 Microsoft Office 通讯录中的联系人发送鱼叉式钓鱼电子邮件。...它还将恶意 OTM 文件（Outlook VBA 项目）保存到磁盘，其中包含宏、恶意电子邮件附件，在某些情况下，还保存了电子邮件应发送到的收件人列表。...创建恶意电子邮件的 Outlook VBA 脚本 基于此恶意 VBA 代码的“发送至联系人​​列表中的所有人”行为，我们认为该模块可能导致一些组织认为他们已成为 Gamaredon 的目标，而他们只是附带损害...Outlook VBA 模块生成的电子邮件，带有包含远程模板的 Word 文档附件 该电子邮件包含英文和俄文文本。但是，如图 3 所示，俄语编码存在问题。...一些 C# 编译器模块示例中包含的源代码中留下了注释，或者 Outlook VBA 模块生成的电子邮件中的俄语编码错误，这表明在发布和使用它们的许多工具之前没有进行严格的审查或测试在野外。

    8K00

    MIME笔记

    顾名思义，MIME是对传统电子邮件的一个扩展，现在已经成为电子邮件实际上的标准。 2. 传统的电子邮件是1982年定下技术规范的，文件是RFC 822。...整个Content-Type这一行，不仅使用在电子邮件，后来也被移植到了HTTP协议中，所以现在只要是在网上传播的HTTP信息，都带有Content-Type头，以表明信息类型。 6....可以看到这封信的MIME语句是： MIME-Version: 1.0 Content-Type: multipart/alternative; boundary="----=_Part_287491..._22998031.1213783671982" "Content-Type: multipart/alternative;"表明这封信的内容，是纯文本和HTML文本的混合。...另两个可能的值是multipart/mixed和multipart/related，分别表示"信件内容中有二进制内容"和"信件带有附件"。

    1.1K40

    【MIME笔记】

    顾名思义，MIME是对传统电子邮件的一个扩展，现在已经成为电子邮件实际上的标准。 2. 传统的电子邮件是1982年定下技术规范的，文件是RFC 822。...整个Content-Type这一行，不仅使用在电子邮件，后来也被移植到了HTTP协议中，所以现在只要是在网上传播的HTTP信息，都带有Content-Type头，以表明信息类型。 6....语句是： MIME-Version: 1.0 Content-Type: multipart/alternative; boundary=”—-=_Part_287491_22998031.1213783671982...″ “Content-Type: multipart/alternative;”表明这封信的内容，是纯文本和HTML文本的混合。...另两个可能的值是multipart/mixed和multipart/related，分别表示”信件内容中有二进制内容”和”信件带有附件”。

    94740

    自动保存邮件附件至指定文件夹

    最近有个需求，ERP系统会自动发很多csv附件到我邮箱，我需要把这些附件上传到FTP服务器，服务器会把这些csv的数据写到另外一个系统的数据库。...每次大概有30个邮件，每个邮件有一个附件，而且附件的名字都一样，是一个csv的文件，我每次需要手动的把附件另存为一个新名字存到本地，然后FTP上传。 每次大概要浪费我10分钟时间，而且毫无价值。...于是我就写了一个VBA的自动处理程序，几秒搞定。...这些VBA 或 C#都可以完美处理。...第二步： 编写宏程序，按下Alt+F11，创建新项目，把程序copy进去，文件夹地址改一下 Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds

    2.5K10

    两封发票主题攻击邮件分析

    其中第二封邮件的附件没有接收完全（仅仅336B），第一封邮件包含完整的PE文件（cab文件大小为1.02M），利用WINRAR打开，两个.cab文件如下图所示，其中内含的两个exe分别创建于2020年3...月5日的22：18和23：13，文件创建时间很接近。...0x2邮件头分析 本地邮件接收客户端是outlook，两封邮件寄送地址分别是ecomm@leviton.com和info@orcspain.es，两封邮件在outlook主页面看不到具体的收件人信息。...: multipart/mixed; boundary="=_b3c3f613c183dc3457d3a967d71d9688" Date: Fri, 6 Mar 2020 05:56:46 +0530...2.显示的收件人地址是“Undisclosed-Recipient”（导致在outlook无法看到收件人信息），Undisclosed-Recipient设置可以让收件人收到邮件后无法查看收件人信息，用于群发邮件的时候

    1.2K20
    点击加载更多

    扫码

    添加站长 进交流群

    领取专属 10元无门槛券

    手把手带您无忧上云

    扫码加入开发者社群

    相关资讯

    热门标签

    更多标签

    活动推荐

      运营活动

      活动名称
      广告关闭

      腾讯云开发者

      扫码关注腾讯云开发者

      扫码关注腾讯云开发者

      领取腾讯云代金券

      热门产品

      热门推荐

      更多推荐

      Copyright © 2013 - 2024 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有

      深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 深公网安备号 44030502008569

      腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号 | 京公网安备号11010802020287

      领券