使用.net在Outlook中发送文本消息
这是我第一次在这里提出问题，所以如果有什么不清楚的话，请道歉。
我使用一个.net应用程序来读取和发送带有Outlook的电子邮件。以下代码对Outlook对象库进行了处理：
Private Sub SendEmail(ByVal Message As String, ByVal EmailAddress As String)
Dim objOutlook As Object
Dim objOutlookMsg As Object
objOutlook = CreateObject("Outlook.Application")
objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
.To = EmailAddress
.Subject = "Subject"
.Body = Message
.Send()
End With
objOutlookMsg = Nothing
objOutlook = Nothing
End SubOutlook 2010支持发送文本消息。我已经设置好了，我可以从Outlook应用程序手动发送一条文本消息。我的问题是如何修改上面的代码来发送短信而不是电子邮件？Createitem数组没有“文本消息”对象，我在其他地方找不到任何示例。
回答 1
Stack Overflow用户
发布于 2014-01-02 22:17:44
下列措施应能发挥作用：
With objOulookMsg
.To = EmailAddress
.Recipients.ResolveAll()
.Subject = "Subject"
' .BodyFormat = outlook.OlBodyFormat.olFormatPlain
' symbolic constant olFormatPlain not known without Outlook project reference!
.BodyFormat = 1
.Body = Message
End With有关更详细的说明，以及如何使用VB项目对Outlook的引用，请参阅这里或Outlook。
属性BodyFormat定义邮件项的格式。属性Body用于文本格式。但是HTML和RichText邮件也在属性Body中保留了邮件的文本表示形式。
如果通过Project Menu, Add Reference COM Type Libary Microsoft Outlook 14.0 Object Library添加对Project Menu, Add Reference COM Type Libary的引用(假设Outlook 2010)，然后在代码的顶部添加以下行
Imports outlook = Microsoft.Office.Interop.OutlookVisual Basic将“了解”所有Outlook类、属性、方法和常量，并允许您使用Intellisense访问和使用所有内容。
https://stackoverflow.com/questions/20890197
复制相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号