使用 .net 在 Outlook 中发送短信

Question

这是我第一次在这里提出问题，如果有任何不清楚的地方，请见谅。

我正在使用 .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 Sub

Outlook 2010 支持发送短信。我已经设置好了，我可以从 Outlook 应用程序手动发送短信。我的问题是如何调整上面的代码来发送短信而不是电子邮件？ Createitem 数组没有“文本消息”对象，我在其他地方找不到任何示例。

Answer 1

以下应该有效：

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

查看here 或here 以获得更详细的说明以及如何使用Outlook 的VB 项目项目引用。

属性BodyFormat 定义邮件项目的格式。属性Body 用于文本格式。但是HTML 和RichText 邮件也会在属性Body 中保留邮件的文本表示。

如果您通过 Project Menu, Add Reference COM Type Libary Microsoft Outlook 14.0 Object Library 添加对 Microsoft.Office.Interop.Outlook 的引用（假设是 Outlook 2010），然后在代码顶部添加以下行

Imports outlook = Microsoft.Office.Interop.Outlook

Visual Basic 将“了解”所有 Outlook 类、属性、方法和常量，并允许您使用 Intellisense 访问和使用所有内容。