使用Word VBA outlook电子邮件正文为空
使用Word VBA发送Outlook电子邮件时，出现电子邮件正文为空的问题可能有以下几个原因：
- 代码逻辑错误：请检查你的VBA代码，确保正确地设置了电子邮件的正文内容。可以使用
MailItem.Body属性来设置电子邮件的正文内容，例如：
MailItem.Body = "这是邮件的正文内容"- 变量或对象引用错误：请确保你正确地引用了Outlook应用程序和邮件项对象。可以使用
CreateObject函数来创建Outlook应用程序对象，然后使用CreateItem方法创建邮件项对象，例如：
Dim OutlookApp As Object
Dim MailItem As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set MailItem = OutlookApp.CreateItem(0)- 邮件格式设置错误：请检查你的邮件格式设置，确保选择了正确的邮件格式。可以使用
MailItem.BodyFormat属性来设置邮件的格式，例如：
MailItem.BodyFormat = olFormatHTML ' 设置为HTML格式- 特殊字符转义问题：如果你的邮件正文内容中包含特殊字符，例如尖括号、引号等，可能会导致正文为空。在设置邮件正文内容之前，可以使用
Replace函数对特殊字符进行转义，例如：
Dim BodyText As String
BodyText = "这是包含特殊字符的正文内容"
BodyText = Replace(BodyText, "<", "<")
BodyText = Replace(BodyText, ">", ">")
MailItem.Body = BodyText总结起来，解决电子邮件正文为空的问题需要检查代码逻辑、变量引用、邮件格式设置和特殊字符转义等方面。如果以上方法仍无法解决问题，建议查阅相关文档或咨询相关技术支持人员以获取更详细的帮助。
腾讯云相关产品和产品介绍链接地址：
相关·内容
3回答
Outlook不呈现html内容。
c#-4.0、html-email、outlook-2010
我有下面的电子邮件。
在运行以下代码之后
string pattern = "<img src=\"cid.*?</span></p>|Inline image 1.*?</FONT>";
Outlook.Selection mySelection = Globals.ThisAddIn.Application.ActiveExplorer().Selection;
Outlook.MailItem mailitem = null;
foreach (Objec
浏览 7提问于2013-09-05得票数 1
回答已采纳
1回答
Excel VBA:发送的Outlook电子邮件不包括粘贴范围
vba、email、excel、outlook
我有问题
我测试和发布的代码(见下文)不包括发送电子邮件。在OP添加到他的问题之后，我添加了.Send部分，但是我得到的行为非常奇怪。如果我在发送之前放置一个断点，并且执行Sub，则会创建一封电子邮件，其中包含正确的信息(包括粘贴的Excel Range)。然后我继续执行，并正确地发送电子邮件。但是，如果我同时运行整个Sub，没有断点，电子邮件发送时没有粘贴Excel Range。
这样做的原因是什么，解决办法是什么？
我尝试过注释/取消注释最后两行(Set ... = Nothing)，但这没有帮助。
相关问题：
参考代码(基于Ron的典型代码，请参阅和)：
Sub SendEmai
浏览 3提问于2014-01-07得票数 4
回答已采纳
1回答
如何为Outlook MailItem设置加密标志？
c#、encryption、outlook、vsto
我需要能够使用Excel VSTO外接程序以编程方式发送加密的密码电子邮件，因此我编写了此静态方法来发送Outlook电子邮件： private static Outlook.Application outlookApp;
private const string PR_SECURITY_FLAGS = "http://schemas.microsoft.com/mapi/proptag/0x6E010003";
public static void SendPasswordEmail(string emailAddress, string password, string
浏览 23提问于2020-01-03得票数 0
回答已采纳
2回答
在检查用户是否已发送邮件时，MailItem.Sent给出了“项被移动或删除”错误
c#、outlook、mailitem
当我执行以下代码时，错误将显示为the item is moved or deleted
Outlook.Application outlookApp = new Outlook.Application();
Outlook.MailItem mailItem = (Outlook.MailItem)outlookApp.CreateItem(Outlook.OlItemType.olMailItem);
mailItem.Subject = mailSubject;
mailItem.To = "";
mailItem.CC = "";
mailItem.At
浏览 4提问于2015-05-20得票数 0
回答已采纳
2回答
如何使用VBA从Outlook电子邮件中提取“类型”-电子邮件或Web？
vba、outlook
我尝试使用VBA从Outlook电子邮件中提取数据：
Sub DLPExtract()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As MailItem
Dim i As Integer
Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.G
浏览 0提问于2021-04-19得票数 0
4回答
使用VBA在Outlook中激活特定电子邮件并从复制的文本中删除签名
vba、email、outlook
我希望使用vba中的get函数来激活Outlook中的特定电子邮件，然后将正文复制到新电子邮件中并发送。我可以使用getlast函数在收件箱中获取最新的电子邮件，但是我想通过从特定的电子邮件地址中选择最新的电子邮件来进一步完善代码。
另外，我想知道如何从粘贴到新电子邮件的文本中删除签名。
Sub Negotiations()
Dim objMsg As Outlook.MailItem
Dim objItem As Outlook.MailItem
Dim BodyText As Object
Dim myinspector As Outlook.Inspector
Dim myItem A
浏览 6提问于2015-07-10得票数 2
2回答
如何在发送后立即保存发送的电子邮件？
c#、outlook、office-interop、msg
我有一个与Outlook分离的.Net应用程序。我想使用Office.Interop (避免redmeption.dll)发送和保存从该应用程序发送的电子邮件。但是，当我尝试保存电子邮件发送后()函数，我得到了一个例外：“该项目已被移动或删除。”
似乎Outlook在发送后会移动电子邮件项。
那么，有人能建议我如何保存“发送”电子邮件到磁盘的最佳方式吗？
我需要保存的msg文件有状态‘发送’。因此，保存Item_Send事件不适用于我的情况。谢谢！
这是我的密码
public bool SendAndSavAs(Outlook.Account emailAccount, string
浏览 0提问于2017-10-25得票数 0
回答已采纳
4回答
从excel编辑打开的电子邮件
excel、vba、outlook
编辑:谢谢大家。所有的建议都可能有效。我终于意识到，我的雇主提供了一个安全选项来防止这种行为。不幸的是，我不能编辑电子邮件，只能创建它们。
我想弄清楚如何修改excel的公开电子邮件。
我有一个电子邮件模板，excel将用我工作簿中工作表中的值替换某些字符串。
我一直在研究activeinspector，，但我仍然不确定excel和outlook之间的交叉编程是如何工作的。搜索不同的网站我得到了这个，但它不起作用。
str = outlookMail.Body上的错误287
' Create the outlook object
Dim outlookApp As Outloo
浏览 3提问于2018-10-01得票数 0
2回答
跳过已经分类的邮件
vba、excel、outlook、outlook-filter
现行法典：
Dim outlookapp
Dim olns As Outlook.Namespace
Dim Fldr As Outlook.MAPIFolder
Dim olMail As Object
'Dim olMail As Outlook.MailItem
Dim myTasks
Dim projIDsearch As String
Dim myrecipient As Outlook.Recipient
Dim daysAgo As Long
Set outlookapp = CreateObject("Outlook.Application")
Se
浏览 3提问于2017-03-02得票数 1
回答已采纳
1回答
仅从outlook中的电子邮件中保存附件
vba、outlook、attachment、autosave
我在Outlook中自动保存附件时遇到了问题，
因此，代码基本上是将选定的附件保存在电子邮件中特定的文件夹中，但是它不仅保存了电子邮件中的附件，而且还在电子邮件中保存了其他类型的图像(不是在附件中)。
我找不到任何解决方案来使代码只选择附件中要保存的项。
以下是完整的代码：
Dim Attachments As Outlook.Attachments
Dim AttachmentsCount As Integer
Dim Email As Outlook.MailItem
Dim FolderObj As Object
Dim FolderPath As String
Dim i As Lon
浏览 8提问于2022-06-09得票数 0
回答已采纳
2回答
发送电子邮件时丢失电子邮件正文(outlook vba)
vba、email、outlook、formatting
我正在尝试编写一个宏，在发送原始电子邮件之前将自动通知发送到特定地址。(就像cc，而不实际使用cc.)
原始格式化电子邮件(包括文本、表格和图片)的内容应复制并粘贴到新的电子邮件中，然后自动发送。当我只显示消息时，一切都正常，但实际上发送电子邮件时却不起作用。
这是我的代码：
Dim objMsg As Outlook.MailItem
Dim activeMailMessage As Outlook.MailItem
Dim BodyText As Object
' Create the message.
Set objMsg = Application.CreateItem(ol
浏览 5提问于2015-04-20得票数 1
回答已采纳
3回答
Python -带有附件的定期电子邮件
python、email、outlook、attachment、office-automation
使用Python，我如何发送一个重复的电子邮件(使用outlook)说，每周一，其中将包括一个附件？附件将位于我的桌面上。
file_path = r"U:\\t\\Analytics\\Finance\\20 FP&A\\22 Forecast File.xlsx"
import os
import win32com.client as win32
# construct Outlook application instance
olApp = win32.Dispatch('Outlook.Application')
olNS = olApp.
浏览 13提问于2022-03-28得票数 0
1回答
如果在下次C#启动之前关闭Outlook，则从Outlook发送的电子邮件将保留在发件箱中
vba、email、outlook
我正在尝试使用Outlook对象模型从.NET应用程序发送电子邮件。
我的应用程序显示Outlook消息窗口，这样用户就可以看到我们正在发送的内容，并首先对其进行编辑。当用户单击“发送”按钮时，Outlook窗口将关闭，邮件将被发送。只要Outlook应用程序已经在运行，它就可以完美地工作。
如果Outlook应用程序尚未运行，邮件将卡在“发件箱”中，并且在我启动Outlook之前不会发送。当我启动Outlook时，我可以看到邮件在发件箱文件夹中停留了几秒钟，然后它就被发送了。我需要向Outlook用户显示新邮件表单，以选择收件人，并可能在发送前编辑邮件。
注:我知道这个问题已经被问到这里和解
浏览 63提问于2018-06-01得票数 0
2回答
如何从outlook互操作电子邮件中获取最新电子邮件
c#、outlook、outlook-addin、office-interop
outlook.MAPIFolder selectedFolder = m_applicationObject.ActiveExplorer().CurrentFolder;
string expMessage = "Your current folder is " + selectedFolder.Name + ".\n";
string itemMessage = "Item is unknown.";
浏览 0提问于2020-06-09得票数 0
2回答
Access 2010-2016 VBA:您能参考多个版本的multiple对象库吗？
vba、ms-access、reference、outlook
我被要求对从Access数据库发送电子邮件的VBA脚本进行故障排除。DB和VBA是在Access 2010 (存储在SQL db中的数据)上开发的，可能以Outlook 2010为目标。
目前，我们使用Outlook 2013和2016。
当我的脚本(下面提到)运行时，会在Outlook.Application声明上生成一个错误:用户定义的数据类型未定义。
这里是脚本的开头，在这里我们定义了数据类型.
Option Compare Database
Option Explicit
' InitOutlook sets up outlookApp and outlookNamespa
浏览 0提问于2018-05-01得票数 2
回答已采纳
1回答
Outlook -一些MailItem属性返回值，另一些则不返回
vba、outlook、mailitem
编辑:新信息:我刚刚意识到，虽然Mailitem.Body的返回是""，实际值是“应用程序定义的或对象定义的错误”。我不太清楚这意味着什么，但我知道它会出现在多个领域--我在下面包括了一个屏幕快照。
我遇到了一个问题，某些属性将返回正确的值，而其他属性则不会。我有一个电子邮件示例，其中我有一个主题为" subject“的电子邮件，消息是"Body"，发件人的电子邮件地址是"email@address.com"，发送日期是2013年6月12日。
当我运行以下代码时：
Dim ComputerName As String
浏览 0提问于2013-06-12得票数 1
1回答
用Visual向Outlook邮件添加标准签名
vb.net、email、outlook、signature
我试图用Visual发送电子邮件，但是Outlook在创建邮件时删除了我的签名。到目前为止，这是我的代码：
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim oApp As Outlook.Application = New Outlook.Application
Dim mailItem As Outlook.MailItem = oApp.CreateItem(Out
浏览 0提问于2016-12-05得票数 0
回答已采纳
1回答
VBA Outlook邮件正文
vba、outlook
在VBA脚本中，我试图编写一个具有以下签名的Sub函数
Sub(taskName As String , myGroup As String, myFile As String ,myPer As String, RelatedTasks() As String )
Dim olApp As Outlook.Application
Dim m As Outlook.MailItem
Set olApp = New Outlook.Application
Set m = olApp.CreateItem(olMailItem)
With m
.display
.
浏览 1提问于2018-04-24得票数 0
回答已采纳
1回答
提取在军事机密SIPRNet上显示为空白的邮件属性
vba、excel、email、outlook
我正在编写在Excel中运行的代码。代码读取Outlook中的pst文件，遍历目标文件夹中的所有电子邮件，并将主题、接收日期和时间、发件人姓名和正文放入Excel文件中。
该代码可在运行Office 2010和2013的计算机上运行，但该计算机不在安全网络上。下面的“局部变量”窗口图像显示了在开放系统上的运行。
在使用SIPRNet (Secret Internet Protocol Router Network)设置在军事机密区域的Office2010计算机(Windows7)上，对于同时具有正文和发件人名称的电子邮件，邮件项目中的正文和发件人名称为空。“本地变量”窗口还显示缺少正文和发件人
浏览 0提问于2016-05-04得票数 0
2回答
从转发的电子邮件VBA宏中删除自动签名
vba、outlook、outlook-2010
新手Outlook VBA。中级Excel VBA。Windows 7专业版，Outlook 2010
我有一个脚本运行的规则，自动转发所有收到的电子邮件。我通常需要它，否则当Outlook加载时，它不会转发队列中的邮件。
我希望在转发邮件时删除默认签名。因为回复是“空的”，所以没有必要附加sig。我在MSDN站点上找到了一些在Outlook2007中可以正常工作的代码。它不会编译错误，也不会执行错误。我已经在VBA中引用了MS Word。但转发的电子邮件都附有签名。
我不能只是删除签名，因为我需要它出现在回复中。签名开关既适用于回复邮件，也适用于转发邮件。
代码如下：
Option Expl
浏览 10提问于2015-02-25得票数 1
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
