如何在附加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/）了解更多信息。
相关·内容
我正在尝试编写VBA代码，以便将默认Outlook签名插入到已在Excel中生成的电子邮件中。有几个人可能使用Excel模板，所以我需要VBA代码来获取创建电子邮件的用户的默认签名。
我在网上找到了很多有用的东西，但是我不能让它工作。我是VBA的新手，所以还在学习。
下面的代码适用于我需要的电子邮件-期待签名，因为我已经删除了所有的代码，因为我不能让它工作。
任何帮助都将不胜感激。
Sub EmailCreator()
ActiveWorkbook.Save
Dim olApp As Outlook.Application
Dim olMail As Outlook.Mai
浏览 2提问于2020-05-26得票数 0
有许多关于如何在用VBA在outlook中起草新电子邮件时添加默认签名的帖子。
但是，有没有办法选择在电子邮件中插入哪个签名？我正在写一个VBA从excel复制数据，然后在outlook中用非默认签名起草一封新的电子邮件。
非常感谢！
浏览 21提问于2018-02-06得票数 0
2回答
我正在使用下面的代码，它将表从excel粘贴到outlook文件。然而，现在，桌子被贴在电子邮件的最底部--在签名之后。
我想要实现的是，在“区域”一词之后插入表格。在“问候”之前-所以在签字之前。
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim sh As Worksheet
Dim DateString As String
Dim FolderName As String
Dim myOutlook As Object
Dim myM
浏览 0提问于2019-06-19得票数 1
回答已采纳
我能够获得一个宏的VBA代码，运行这个宏将把活动的工作表过滤到指定的类别，发送一个完整的过滤器的电子邮件，然后清除过滤器。
我遇到了公司范围的注册表设置的麻烦，手动更改设置为不自动阻止从Excel发送电子邮件在几个小时后自动逆转。由于我正在制作这个VBA脚本，供多个人使用，并且认为每次更新文件时指示他们手动更改注册表设置是很麻烦的，所以我认为只使用"EmailItem.Display“而不是"EmailItem.Send”，让他们只在自动生成的电子邮件上单击"send“就更容易了。
但是，这种方法似乎有一个缺点，就是在没有类别筛选器的情况下发送附件，可能是因为Outlo
浏览 7提问于2022-08-08得票数 0
回答已采纳
1回答
每当我使用以下代码生成电子邮件时，它都不会使用默认的新电子邮件格式。下面的代码是在段落之后添加空格，并且不允许我插入默认签名而不更改它的格式。我向上移动了mymail.display，它显示了具有正确格式和签名的新邮件模板，但是上面的其余代码会这样写。提前感谢！
Sub Email()
'
' Email Macro
'
Sheets("Email").Select
Dim outlookapp As Object
Dim myMail As Object
Dim source_file, to_emails, cc_emails As String
D
浏览 37提问于2022-10-19得票数 0
我正在使用雷鸟14.0，在那里我面临的问题不多。是否有可能让雷鸟看起来像前景。我不是指主题或外观，我指的是outlook如何表达回复的方式。在每一个回复的末尾，它都有一条清晰的线条，而雷鸟的做法并不像outlook那样。它没有显示的细节，从，到主题和日期，同时回复.我只是为了克服这个问题，通过定制设置，或我只是想知道，有没有其他电子邮件客户端服务，如outlook为ubuntu？
Outlook截图：
📷
雷鸟截图：
📷
更新- 1:
📷
更新- 2:
Outlook express / outlook在转发邮件时看得很好。就像它用浅灰的颜色高亮了From字段。请找到下面的快照。在转发邮件时，
浏览 0提问于2012-08-08得票数 39
回答已采纳
我试图将共享驱动器中的PDF附加到Excel中的VBA代码生成的许多Outlook电子邮件中。
一张纸有所有的电子邮件地址，将创建一个电子邮件。
同一工作簿中的另一个工作表具有输入，例如主题行、电子邮件正文文本和PDF位置，这些输入可以根据大量电子邮件的内容进行更改。
虽然使电子邮件的主题和htmlbody的代码有效，但附件代码不起作用。
将PDF地址复制到活动工作表中带有电子邮件数据行的单元格中，我可以附加PDF。
当我把它当作输入工作表上的输入时，问题就会发生。
Sub Email_New_Patent_Case()
Dim i As Integer
Dim Attorn
浏览 4提问于2019-07-22得票数 0
回答已采纳
6回答
我试图使用VBA对Excel自动化一些电子邮件。到目前为止，一切都很好，除了试图在电子邮件中保留我的签名。
一旦您告诉VBA创建一个新的电子邮件，它将已经包含您的默认签名。如果您尝试Outmail.Display，就可以看到这一点。但是，如果覆盖.HTMLBody属性，则将删除该属性。
我的简单尝试是将.HTMLBody的内容保存到一个signature (字符串)中，然后将其重新分配到.HTMLBody，以便测试出来。然而，由此产生的电子邮件将没有任何签名。
复制和重新插入签名的代码：
Dim myOlApp As Outlook.Application
Dim MyItem As Outl
浏览 3提问于2014-03-06得票数 4
回答已采纳
不确定为什么Outlook从不为在其外部创建的电子邮件添加签名。就像在Windows资源管理器中一样；右键单击文件，然后单击发送...还有其他的。我想在我的快速访问工具栏中添加一个按钮，以便在显示的电子邮件中简单地弹出它。单击Smibbon需要3到4次单击:(
我能够获得默认签名，但不知道如何插入它。
Public Sub InsertDefaultSignature()
Dim OlApp As Outlook.Application
Dim ObjMail As Outlook.MailItem
DirSig = "C:\Users\" & Envi
浏览 2提问于2014-01-08得票数 0
1回答
我有Excel VBA代码，它根据每个填充的行在Outlook电子邮件模板中填充信息。在这些行中是作为字符串保存的电子邮件地址。
当代码运行到重复的电子邮件地址时，它只会发送一封电子邮件(通常是列表中的第一封)。我能修改什么来确保它为每个有电子邮件地址的单元发送电子邮件？
'**********You MUST DO THIS FIRST**********
'On the Tools menu, click References.
'In the Available References list,
' click to select the 'Mi
浏览 0提问于2018-04-05得票数 0
回答已采纳
我试图使用以下代码插入“单击此处”链接，链接到打开的文档，但我遇到了问题。
当电子邮件起草并插入链接时，只有部分超链接被传送到电子邮件中，这意味着超链接不起作用。
我正在努力做到以下几点：
Private Sub Completion_Notification()
Dim xInspect As Object
Dim pageEditor As Object
Dim Strbody As String
Dim CommentsPath As String
Dim CommentsName As String
CommentsName = ActiveWorkbook.Name
Commen
浏览 0提问于2021-04-22得票数 1
回答已采纳
我的目标是将一个范围作为图像粘贴到Outlook电子邮件中。我打开了MS、Word和Outlook15.0的VBA编辑器中的引用，作为我网络上的最新版本。
我花了好几个小时仔细研究以前回答过的类似问题。
我不能将映像保存为临时文件/使用html将附件引用为解决方案，因为其他用户没有访问特定驱动器的权限，如果他们在自己的计算机上运行代码，将临时保存该驱动器。
如果我删除电子邮件正文部分的图像粘贴良好，但如果我有两个代码在一起，电子邮件正文写在图像上。然而，我确实需要将图像粘贴在电子邮件正文文本中。
Sub CreateEmail()
Dim OlApp As Object
Dim OlMail
浏览 0提问于2019-03-11得票数 0
回答已采纳
我正在寻找发送到特定的电子邮件地址，通过查找标题“电子邮件”，然后发送电子邮件到匹配标题下的第一个单元格。电子邮件地址栏并不总是相同的，这就是为什么我需要它返回下面的单元格(这是电子邮件地址所在的位置，例如电子邮件标题ak1-电子邮件地址ak2)。
Excel文件示例1：
我想将代码中的范围AJ2替换为可以查找标题(第1行)并插入相应的电子邮件地址(单个单元格，第2行)的内容
Range("AJ1").Select
ActiveCell.FormulaR1C1 = "Fund Email"
'Move the active sheet to a
浏览 21提问于2021-05-25得票数 0
我有一个从Excel工作表开始的宏，将通过Outlook电子邮件发送给同事。 我一直在尝试使用Ron de Bruin链接将已保存的签名添加到Outlook电子邮件中，但显示“找不到文件”。https://www.rondebruin.nl/win/s1/outlook/signature.htm 未将-The签名设置为默认值，因为我保存了多个签名。 执行Debug.Print时，-The路径与应该匹配的路径相匹配 C:\Users\cday\AppData\Roaming\Microsoft\Signatures\Inventory Report.htm Sub Setup_Email()
浏览 33提问于2020-09-18得票数 0
回答已采纳
1回答
解决方案:从excel电子表格中的一个按钮创建一个自动电子邮件，以发送sharepoint附件链接。
问题:我可以用excel链接生成outlook电子邮件，但是它不会带我去sharepoint excel，并声明‘这个站点无法恢复’。
当前附件代码：.Attachments.Add ActiveWorkbook.Path & "xlsb"
任何帮助都将不胜感激。
浏览 12提问于2022-10-18得票数 0
1回答
我试图提取我所有的电子邮件到一个外部程序(AIMMS)。我首先将其全部存储在Excel中，以便于阅读。
我写了一些VBA代码。当多个电子邮件地址在此字段中时，.To函数无法工作(会产生即时错误)。.CC和.BCC也是如此。
Sub Extract_mail(MailBoxName As String, Pst_Folder_Name As String, Subfolder As String)
'Add Tools->References->"Microsoft Outlook nn.n Object Library"
Dim folders As O
浏览 2提问于2016-07-22得票数 1
回答已采纳
我想知道在将电子邮件导入excel时，是否可以删除电子邮件正文中的签名？
我正在试用的建议解决方案，将电子邮件从Outlook导入到excel中。
浏览 4提问于2016-01-06得票数 2
1回答
mailto链接的正文部分会破坏我们的Outlook签名。有没有办法解决这个问题，这样我就可以在保持Outlook签名完好无损的同时插入一些正文？
为了澄清..。
假设我有一个这样的mailto链接：
<a href="mailto:example@example.com&body=customText">send email</a>
当用户单击该链接时，Outlook会打开一封新电子邮件，其中所有内容都完好无损...除了Outlook签名！我们怎么解决这个问题呢？
浏览 2提问于2014-07-19得票数 1
2回答
我想使用Outlook 2010/13 VBA将链接图像插入到新电子邮件的正文中。
我想在光标所在的位置或在电子邮件正文的最后一个字符之后插入它。
下面的代码在正文末尾的新行中插入图像。
请注意，当我使用“插入和链接图片”Outlook功能时，我可以通过其GUI在电子邮件正文的任何位置插入此图像。
Sub test_add_image()
Dim NewMail As Outlook.MailItem
Set NewMail = Application.ActiveInspector.currentItem
NewMail.HTMLBody = NewMail.HTML
浏览 4提问于2015-08-22得票数 0
2回答
我创建了一个HTML模板，我想把它放到电子邮件中，这样就可以发送出去了，但是如何做到这一点呢？我有Outlook 2016和我之前读过的Outlook 2013和更低版本的研究，你可以“插入文本”而不是链接文件，但Outlook已经删除了这一点。
我愿意使用另一个程序，以便将它作为时事通讯发送到电子邮件中，所以它不需要是outlook。
顺便说一句，我不确定在StackExchange的哪个部分发布这篇文章，所以我希望我把它贴在了正确的地方。
非常感谢。
浏览 2提问于2016-03-11得票数 16
回答已采纳
场景如下：
单击应用程序中的email链接后，将打开Outlook email窗口。单击应用程序中的电子邮件链接后，我必须验证To email是否出现在Outlook电子邮件窗口中，其他outlook字段应为空。我想使用C#在selenium webdriver中检查这一点。我该怎么做呢？
浏览 2提问于2014-03-05得票数 0
1回答
我正在与一个客户合作，他的员工不知道如何使用outlook，除了收发电子邮件以外的其他原因。我想知道，有没有一种方法来创建和MSI包，不仅将安装电子邮件签名到每个用户的pc上，并改变像字体和字体颜色的东西？
我尝试使用%APPDATA%\Microsoft\Signatures作为安装位置，但最终只是将签名安装到Documents文件夹。
浏览 1提问于2015-05-28得票数 0
使用VBA将所有可见的(格式化文本)从Excel复制到Outlook？
请找到下面的代码通过outlook发送电子邮件。不过，我想发送电子邮件与选择，我已经复制以下使用代码。我不想作为HTML创建一个表，而是复制所有可见的表？
Sub EmailRep()
Dim Mailbody As Range
Application.DisplayAlerts = False
Dim Outlook As Outlook.Application
Set Outlook = CreateObject("Outlook.Application")
Dim outmail As Mai
浏览 0提问于2014-03-05得票数 1
回答已采纳
我在一台.NET 64位机器上使用Win7 4.0。
当我点击Outlook中的电子邮件时，我试图获取电子邮件的详细信息。当我单击电子邮件时，会捕捉到通知我一个新项目被单击/加载到ItemLoad(对象项)回调的内存中的事件，但是param是空的，因为正如文档所述，该事件发生在Outlook项开始加载到内存时，并且无法访问它。是否有方法访问与单击项相关的数据？我的代码：
m_oApp = new Outlook.Application();
.....
m_oApp.ItemLoad += m_oApp_ItemLoad;
.....
void m_oApp_ItemLoad(object I
浏览 4提问于2015-02-19得票数 0
回答已采纳
我维护着一个社区组织的邮件列表。最初，一封电子邮件将使用Apple Safari发送给我们邮件列表中的所有成员。随着名单的增长，我了解到当地的ISP拒绝了我发送的邮件，因为大量的地址被视为垃圾邮件。
由于我还没有学习过Applescript，所以我决定修改几年前用VBA编写的一个电子邮件例程。此脚本从Excel (MS Office 2010/Windows 7)中启动Outlook，并为列表中的每个地址创建一封单独的电子邮件，而不是为每个人创建一封电子邮件。一切都很好，除了签名不会附加。
有什么建议吗？
下面是代码( "Instructions“表单包含命名范围"EmailL
浏览 0提问于2015-12-07得票数 0
2回答
目前，我有一个工作表，发送电子邮件到一个特定的电子邮件地址，在这张纸上有一个特定的验证列表与两个选项。如果我选择一个选项，它将发送电子邮件到指定的电子邮件。然而，如果我选择第二个选项，什么都不会发生。没有任何错误。
我希望能够发送两个不同的电子邮件地址，这取决于在列表中选择了什么，并按下点击发送按钮。
代码：
Private Sub CommandButton1_Click()
If Sheet1.Range("G31") = "in the cell(see notes below)" Then
Dim ws As Worksheet: Set ws =
浏览 3提问于2014-01-22得票数 1
回答已采纳
我在Excel中有一个表，我要将其发送到Outlook中的通讯组列表，该表位于电子邮件正文中。
使用MVP Ron de Bruin的例子和这里的一些其他例子，我得到的代码保留了一些表格格式，但如果它是渐变的，则不复制单元格的颜色(请使用图像作为参考)。
Sub DisplayEmailButton_Click()
Mail_Selection_Range_Outlook_Body
End Sub
Sub Mail_Selection_Range_Outlook_Body()
Dim rng As Range
Dim OutApp As Object
Dim OutMa
浏览 3提问于2018-06-05得票数 0
1回答
在此代码中，脚本将排除重复的电子邮件地址。我想要的正好相反，因为我想包含重复的电子邮件地址，并向每个地址发送单独的电子邮件。我不知道要修改代码的哪一部分才能得到预期的结果。
'**********You MUST DO THIS FIRST**********
'On the Tools menu, click References.
'In the Available References list, click to select the 'Microsoft Outlook 9.0 Object Library check box. Click OK
浏览 0提问于2018-02-14得票数 0
我已经创建了一个宏，一旦单击工作表上的按钮，就会生成新的Outlook电子邮件，并将工作表作为附件。
当记录宏，然后查看代码中的格式时，它说的是pdf。当我试用该按钮时，附件被格式化为xlsm。
Sub email()
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\ROANDE~1\AppData\Local\Temp\Purchase Order Turkey MASTER Version 2.pdf" _
, Quality:=xl
浏览 2提问于2017-11-29得票数 0
回答已采纳
使用outlook向电子邮件正文添加html超链接似乎很简单。但是，我希望在电子表格中发送一系列单元格，并在介绍中提供到该文件的链接。或者是单击电子邮件中创建的图像和指向文件的超链接的简单方法。
我有下面的代码，但是strbody如果我指定介绍为HTMLintroduction，它不允许它。
有什么想法吗？
Sub SendMail2()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
'Dim Sendrng As Range
Set Sendrng = Worksheets("Dash
浏览 5提问于2014-12-22得票数 0
在这个场景中，我们有使用主用户邮箱和共享邮箱的用户。他们希望每个邮箱都有默认签名。但是，当进入Outlook选项>邮件>签名时，只有用户邮箱显示为配置签名的可选选项。共享邮箱没有选择默认签名的方法。
有人知道如何为共享邮箱配置默认签名吗？
任何帮助都将不胜感激。
浏览 0提问于2020-09-07得票数 2
我目前正在重新使用我在网上找到的代码，这样我就可以在一个电子邮件正文中发送多个数据表。我也想有一个文本电子邮件主体以及。当我尝试包含一个文本体(.body)时，它后来被替换为表(.htmlbody)。那么，如果我也尝试在电子邮件中放置另一张桌子，它将把第一张表替换为第二张表。是否有一种方法可以在一个outlook电子邮件中使用标记或其他东西放置多个身体。我以前曾在微软word中这样做过，但我不知道如何在outlook中实现它。
Sub Mail_Selection_Range_Outlook_Body()
Dim rng As Range
Dim OutApp As Object
Dim O
浏览 0提问于2018-11-08得票数 0
回答已采纳
我们最近从Office 2003升级到Office 365。
我过去常常用一个宏来覆盖File/Send特性，该宏将检查当前文件是否为机密公司文件(按名称)。如果是，那么它将阻止发送。如果不是，它会打开一封带有附件的电子邮件。
Sub sendme()
aName = ActiveWorkbook.Name
Flag = True
If InStr(UCase(aName), "CONFIDENTIAL FILE") Then Flag = False
If Flag = False Then MsgBox "You are trying
浏览 2提问于2013-12-17得票数 0
我已经创建了一个宏，它打开一个Outlook电子邮件模板，供用户发送(从电子表格中提取一些附加信息)。一切都很顺利，除了Outlook会根据用户设置自动附加签名。虽然我可以很容易地关闭我自己的签名，但我并不是唯一一个运行这个宏的人。
电子邮件模板中已有公司签名，因此不需要同时添加个人签名。
Google提供了很多给VBA生成的电子邮件签名的建议，但我找不到任何能让它们离开的东西。有什么想法吗？
现有代码：
... snip ...
Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.
浏览 1提问于2014-08-05得票数 5
回答已采纳
Acumatica群发电子邮件选项将带有插入图像的电子邮件发送给所有联系人。该电子邮件显示在MS Outlook 2013/2016上，没有任何问题。但是，当在移动设备上的Outlook Web应用程序中显示时，所有图像都显示为附加文档。
图片存储在群发电子邮件(######)中，其中#####是群发电子邮件ID。
怎样才能让图片显示在移动浏览器上?？
浏览 2提问于2017-07-18得票数 0
我已经编写了一个程序，它从共享驱动器打开一个.oft文件，并将所需的电子邮件id放到字段中，并且可以编辑subject字段。但是在邮件显示结束时，我的默认签名总是会被添加。现在，我将这个脚本部署到多个用户，邮件不需要有用户的签名，因为模板已经预定义了组签名。
我已经搜索并发现在Outlook中没有可以修改它的mail.Signature。
import win32com.client as win32
outlook = win32.Dispatch('outlook.application')
mail = outlook.CreateItemFromTemplate
浏览 0提问于2019-07-31得票数 1
基本上，我希望在电子邮件中的外接程序区域中显示所有客户端(Outlook和Outlook web)的外接程序，如下所示
当前，my外接程序显示在功能区中，我希望将在电子邮件中的外接程序形式本身放置到所有的outlook客户端。
预期用户界面：我在电子邮件中的外接程序阅读表单
当前用户界面：我的外接程序显示在带状中。
浏览 2提问于2021-03-19得票数 0
我使用下面的代码从Excel创建一封电子邮件： Sub TEST()
Dim outlook As Object
Dim newEmail As Object
Set outlook = CreateObject("Outlook.Application")
Set newEmail = outlook.CreateItem(0)
With newEmail
.To = Sheet1.Range("L2").Text
.Subject = Sheet1.Range("E1").Text
' .Body =
浏览 83提问于2018-12-19得票数 0
我有这个脚本创建一个电子邮件从CMD脚本，并插入TO，SUBJECT和BODY自动。
我已经有几个变量了：
%USERNAME%
%TICKETNO%
它工作，它创建一个新的电子邮件，放置TO地址，SUBJECT和BODY自动。变量可以正常工作。
现在，我想插入主体作为一种变量(从不同的文本文档将输入重定向到命令)。
cd "c:\program files\microsoft office\office14\"
start outlook.exe /c ipm.note /m "%USERNAME%@domain.com&subject=Re
浏览 4提问于2015-10-30得票数 1
我正在工作RDCOMClient到我的一些工作流程中，多亏了的回答，我能够通过r发送电子邮件，但是我不知道如何添加我的Outlook电子邮件签名。我对COM对象还不熟悉，但是我已经完成了相当一部分的搜索，但是没有发现任何东西。因为我的名声还没有达到50，所以我无法评论这个话题。有人能告诉我如何添加Outlook电子邮件签名吗？
library(RDCOMClient)
OutApp <- COMCreate("Outlook.Application")
outMail = OutApp$CreateItem(0)
outMail[["To"]] = &#
浏览 12提问于2016-06-16得票数 7
回答已采纳
在撰写电子邮件时，不需要使用图像插入按钮。我想在电子邮件内容中插入图像，就像我们使用Outlook的方式一样。
浏览 0提问于2010-10-05得票数 6
回答已采纳
1回答
我试图获得一个子例程，从一个工作表中获取电子邮件地址列表，然后在同一个工作簿中选择一个不同的工作表，并将它附加到电子邮件中。
下面的代码用我需要复制的工作表创建一个新的工作簿，然后进行调试；
运行时错误“53”：未找到文件
并且没有打开Outlook电子邮件。
Sub SendAttachment()
Dim OutApp As Object
Dim OutMail As Object
Dim emailRng As Range, cl As Range
Dim sTo As String
Dim FileExtStr As String
浏览 1提问于2020-12-29得票数 0
我有自动发送电子邮件的表单。我想改变电子邮件的正文-其中一些将是基于一个带有文本的单元格，所以它可以是动态的，一些将在代码中修复。现在- in运行了一个object required的错误，我将感谢您的帮助。我希望电子邮件正文中的每一行都是分开的。
Sub sendMail(ByVal mail As String, name As String, Msht As Worksheet, CCmail As Integer, CCperson As String)
Dim applOL As Outlook.Application
Dim miOL As Outlook.Mail
浏览 3提问于2017-10-31得票数 2
回答已采纳
我通过VBA Outlook.Application参考从Excel创建电子邮件。每封电子邮件都填充了我的excel工作表中的数据，然后放入To/CC/BCC/Subject/Body字段。
现在，当在Office 2010中运行此代码时，它可以顺利运行，但在Office 2013中，包含To/CC/BCC/etc.数据的变量在显示时不会显示在实际的电子邮件中。
此引用在Office 2013中是否发生了更改？
Sub MailSheet()
Dim OutApp As Object
Dim outMail As Object
Dim rng As Range
浏览 4提问于2016-09-22得票数 0
1回答
解析电子邮件中签名部分中的图像
、、、、
有一个程序，可以检查收件箱中未读的电子邮件，解析并将电子邮件的内容发送到记录。如果电子邮件中有任何图像，这些图像将作为记录的附件发送。现在，如果任何电子邮件的签名部分包含图像，则该图像也将作为附件发送。
有没有一种方法可以让我检查电子邮件签名部分的图像并忽略它们？或者有没有一种方法可以跳过整个签名内容的解析？
如果很难解析来自不同电子邮件服务器的电子邮件的签名部分，我想知道是否可以解析来自outlook?的电子邮件。
浏览 2提问于2012-12-03得票数 2
我从代码中概述的两个单元格创建了一个新的电子邮件。新电子邮件没有附加我的电子邮件签名。
我试过解决这个问题，但我有点挣扎。它是否从HTMLBody引用中拉出它？
Sub SendHTMLEmail(from_sender As String, what_address1 As String, cc_sender As String, subject_line1 As String, mail_body1 As String)
Dim olapp As Outlook.Application
Dim olmail As Outlook.MailItem
S
浏览 0提问于2016-09-16得票数 0
回答已采纳
有人知道如何使用win32com将电子邮件签名添加到电子邮件中吗？
import win32com.client as win32
outlook = win32.Dispatch('outlook.application')
mail = outlook.CreateItem(0)
mail.To = 'TO'
mail.Subject = 'SUBJECT'
mail.HTMLbody = 'BODY'
mail.send
浏览 14提问于2015-08-25得票数 6
回答已采纳
2回答
我需要上传附件，这是收到的outlook电子邮件到亚马逊的s3桶。
附有附件的电子邮件每天收到一次。
是否有任何进程可以自动将此过程上传到特定的s3桶？
我试图在outlook中搜索任何可用的外接程序。
浏览 8提问于2022-10-28得票数 0
3回答
如何在电脑被锁定时发送电子邮件？
、、、、
我想使用Excel VBA发送Outlook电子邮件。
代码Sendupdate在手动运行时可以正常工作。
我的第二个宏StartTimer的目的是在我不在办公桌前的设定时间执行上述代码。
当计算机被锁定时，电子邮件不会发送。当我回到办公桌时，电子邮件正以草稿的形式挂在那里，我需要单击send按钮。
Sub SendUpdate()
Recipient = "x@y.com"
Subj = "update"
Dim msg As String
msg = "hello”
HLink = "mai
浏览 6提问于2012-04-18得票数 12
回答已采纳
3回答
带有电子邮件签名的邮件草稿
、、、、
我试图通过excel发送电子邮件，并保留电子邮件签名，我可以将.body保存为带有图像的文本，也可以通过.HTMLbody插入图像，但这会使文本格式混乱
Sub email()
'Microsoft Outlook XX.X Object Library is required to run this code
'Variable declaration
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Dim lCounter As Long
Dim signature As Strin
浏览 9提问于2022-05-12得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
