如何在附加ActiveWorkbook后将Outlook签名插入到电子邮件中？
在附加ActiveWorkbook后将Outlook签名插入到电子邮件中，可以通过以下步骤实现：
- 首先，确保已经在Outlook中创建了所需的电子邮件签名。可以在Outlook中的"文件"菜单中找到"选项"，然后选择"邮件"选项卡，在"电子邮件签名"部分创建或编辑签名。
- 在VBA代码中，使用Outlook对象模型来创建和发送电子邮件。首先，需要引用Outlook库。在VBA编辑器中，选择"工具"菜单，然后选择"引用"，勾选"Microsoft Outlook XX.X Object Library"（其中XX.X表示Outlook的版本号）。
- 在VBA代码中，使用CreateItem方法创建一个新的MailItem对象，并设置相关属性，如收件人、主题、正文等。
- 使用MailItem对象的HTMLBody属性来设置电子邮件的正文内容。可以将ActiveWorkbook的内容作为HTML格式的字符串插入到邮件正文中。
- 使用MailItem对象的Display方法来显示电子邮件，以便用户可以预览和编辑。
- 最后，使用MailItem对象的GetInspector方法获取邮件的Inspector对象，然后使用Inspector对象的WordEditor属性获取邮件的Word文档对象。
- 在Word文档对象中，使用Range对象的Collapse方法将光标移动到文档的末尾。
- 使用Range对象的InsertFile方法将Outlook中的电子邮件签名文件插入到文档中。
以下是示例代码：
Sub SendEmailWithSignature()
Dim OutlookApp As Object
Dim MailItem As Object
Dim Inspector As Object
Dim SignatureFilePath As String
' 创建Outlook应用程序对象
Set OutlookApp = CreateObject("Outlook.Application")
' 创建新的邮件项
Set MailItem = OutlookApp.CreateItem(0)
' 设置邮件的收件人、主题和正文
MailItem.To = "recipient@example.com"
MailItem.Subject = "Test Email"
MailItem.HTMLBody = "<html><body>This is the email body.</body></html>"
' 显示邮件
MailItem.Display
' 获取邮件的Inspector对象
Set Inspector = MailItem.GetInspector
' 获取邮件的Word文档对象
Set WordDoc = Inspector.WordEditor
' 将光标移动到文档末尾
WordDoc.Range.Collapse Direction:=0
' 设置电子邮件签名文件的路径
SignatureFilePath = "C:\path\to\signature.htm"
' 插入电子邮件签名
WordDoc.Range.InsertFile SignatureFilePath
' 释放对象
Set OutlookApp = Nothing
Set MailItem = Nothing
Set Inspector = Nothing
Set WordDoc = Nothing
End Sub请注意，上述代码中的"recipient@example.com"和"C:\path\to\signature.htm"需要根据实际情况进行修改。此外，还可以根据需要添加其他属性，如抄送、密送、附件等。
对于腾讯云相关产品和产品介绍链接地址，由于要求不能提及具体品牌商，建议在腾讯云官方网站上查找相关产品和文档。可以访问腾讯云官方网站（https://cloud.tencent.com/）了解更多信息。
相关·内容
我有一个从Excel工作表开始的宏，将通过Outlook电子邮件发送给同事。 我一直在尝试使用Ron de Bruin链接将已保存的签名添加到Outlook电子邮件中，但显示“找不到文件”。https://www.rondebruin.nl/win/s1/outlook/signature.htm 未将-The签名设置为默认值，因为我保存了多个签名<
浏览 33提问于2020-09-18得票数 0
回答已采纳
我正在尝试编写VBA代码，以便将默认Outlook签名插入到已在Excel中生成的电子邮件中。有几个人可能使用Excel模板，所以我需要VBA代码来获取创建电子邮件的用户的默认签名。下面的代码适用于我需要的电子邮件-期待签名，因为我已经删除了所有的代码，因为我不能让它工作。
浏览 2提问于2020-05-26得票数 0
在这个场景中，我们有使用主用户邮箱和共享邮箱的用户。他们希望每个邮箱都有默认签名。但是，当进入Outlook选项>邮件>签名时，只有用户邮箱显示为配置签名的可选选项。共享邮箱没有选择默认签名的方法。有人知道如何为共享邮箱配置默认签名吗？
任何帮助都将不胜感激。
浏览 0提问于2020-09-07得票数 2
2回答
我创建了一个HTML模板，我想把它放到电子邮件中，这样就可以发送出去了，但是如何做到这一点呢？我有Outlook 2016和我之前读过的Outlook 2013和更低版本的研究，你可以“插入文本”而不是链接文件，但Outlook已经删除了这一点。我愿意使用另一个程序，以便将它作为时事通讯发送到电子邮件中，所以它不需要是outlook。
顺便说一句，我不确定在StackExchange的哪个部分发布这篇文章，所以我希望我把它贴在了正确的
浏览 2提问于2016-03-11得票数 16
回答已采纳
我们正在构建一个VSTO Outlook外接程序，该外接程序扫描发送邮件的附件以提醒用户并注意到一些意想不到的行为。考虑将文件添加到Outlook邮件中的下列方法：
Private Sub Application_ItemSendOutlook电子邮件，其中包括：
浏览 0提问于2019-02-04得票数 0
回答已采纳
我试图将共享驱动器中的PDF附加到Excel中的VBA代码生成的许多Outlook电子邮件中。虽然使电子邮件的主题和htmlbody的代码有效，但附件代码不起作用。将
浏览 4提问于2019-07-22得票数 0
回答已采纳
我正在尝试在交换管理控制台中设置一个传输规则，在用户电子邮件的末尾创建一个签名。使用exchange服务器2010
浏览 0提问于2016-01-08得票数 0
我正尝试在outlook 2010中创建一个嵌入了公司徽标的电子邮件签名。它不会在Outlook上显示为其他用户的附件。我已经尝试通过HTML包含它，因此将图像放在FTP上并从那里加载它，我已经尝试通过签名编辑器包含它，两者都不能使其工作。有没有实现这个函数的代码？
浏览 4提问于2012-11-15得票数 4
回答已采纳
是否可以将outlook中的电子邮件转发到某个电子邮件地址，然后该地址会将此电子邮件存储在SQL服务器中。
谢谢你的帮助。
浏览 0提问于2012-03-28得票数 1
回答已采纳
我正试图为我的整个公司生成电子邮件签名，所以我使用一个脚本来填写一个，其中包含每个人的信息，并生成一个我想要用于签名的HTML文件。生成的HTML工作良好，我可以加载HTML到铬，它显示100%正确。我们面临的
浏览 6提问于2017-09-01得票数 0
回答已采纳
我在Word和纯HTML代码中设计了我的签名，并将结果(文档或呈现HTML页面的内容)直接复制到Gmail富签名编辑器。我花了两个多小时强迫Gmail这样做，但失败了，最后我使用了我签名的屏幕截图作为不可点击的图像。
在大多数情况下，元素之间的空格是不正确的，线条高度是错误的(到大的)等等。是最重要的(同时也是令人恼火的) --所有这些问题只出现在电子邮件中，在Gmail贴上我的签名之后。粘贴到签名编辑器上的
浏览 0提问于2015-03-10得票数 0
回答已采纳
1回答
我的用户是否有办法运行LDAP查询，从他们的机器中填充动态分发列表，以便在向该列表发送电子邮件之前查看组中成员的某种“预览”？
浏览 0提问于2011-03-11得票数 1
在工作中，我们的最终用户使用的是Windows XP和Outlook Express。每当用户撰写电子邮件或回复电子邮件时，Outlook Express都会“读取”位于c:\上的静态html文件，并将其内容用作签名。这可以很好地工作。我的目标是以某种方式从这个文本文件中提取一个随机引用，并将其插入到静态html签名文件中。Windows Task Scheduler大约每15分钟从.txt文件中随
浏览 0提问于2012-06-08得票数 3
回答已采纳
3回答
我找到了这段代码，但里面没有签名。在我读过的所有资源中，我想不出一个解决方案。Public Function Email_Test()
Dim MyMail As Outlook.MailItemDim Attach As String
Set MyMail = MyOutlook.CreateIt
浏览 0提问于2018-02-17得票数 2
我们最近从Office 2003升级到Office 365。 aName = ActiveWorkbook.Name If InStr(UCase(aName), "CONFIDENTIAL", vbCritical: End
Mail_with_<e
浏览 2提问于2013-12-17得票数 0
我正在尝试将.gif插入到电子邮件正文中，并将其显示在Outlook中。如何在Outlook中获取动画图像？
浏览 7提问于2016-05-19得票数 5
回答已采纳
1回答
我试图做一个简单的按钮，将显示在电子邮件签名，使用内联CSS。它在浏览器中打开时运行良好，但当放入Outlook中时，它的样式不正确。应该是这样的：在将其复制到Outlook后，如下所示：我猜想，因为我必须将签名从web浏览器(一旦打开html文件)复制/粘贴到Outlook中的签名框中，因此内联CSS与
浏览 0提问于2018-10-02得票数 1
回答已采纳
我希望能够在我与Outlook 2007一起发送的电子邮件中嵌入图像或视频。我说“嵌入”是因为我不想粘贴图像本身，这可能会使电子邮件的大小非常大。我需要的是能够在电子邮件中放置HTML标记，并将其读取为HTML，例如或
<iframe src="https://player.vimeo.com/video/number" Other
浏览 0提问于2019-02-25得票数 0
回答已采纳
2回答
此代码应执行以下操作：
将数组中列出的四个工作表导出为pdf ，将该pdf附加到电子邮件中，并添加一个简单的通用消息，将适用的电子邮件地址插入电子邮件上的to字段中，显示电子邮件，以允许用户在点击发送之前对其进行检查我的问题是让4个电子邮件地址循环正确，将它们加载到电子邮件的“to :field”中。它将把第一个电子邮件地址分配
浏览 12提问于2022-03-10得票数 2
回答已采纳
我希望创建一个宏，在发送之前，将日期插入到电子邮件正文中，该邮件体目前正在进行编辑。
执行宏(单击电子邮件编辑器窗口的快速访问工具栏中的图标)。宏将插入日期
浏览 2提问于2017-03-08得票数 3
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
