当word是编辑器时，让Outlook 2003的宏工作吗？

Question

我有什么，是一个类似的代码&我使它与Outlook编辑器（足够硬），我试图让它现在与Word作为Outlook编辑器。 （用户习惯用单词邮件）我尝试过：将代码直接移动到本文档下的单词中，它什么也没做。遵循我看到的代码：创建一个objword objdoc，然后将其与outlook类型的交易配对，但没有运气。以下是一个代码示例：

Sub SetCategory() 
Dim olMessage As Outlook.MailItem 
Set olMessage = Application.ActiveInspector.CurrentItem 
If olMessage.SenderName = donations Then 
olMessage.Categories = "donations" 
ElseIf olMessage.SenderName = "Donations" Then 
olMessage.Categories = "donations" 
End If 
With olMessage 
    .Send 
End With 
End Sub 

Answer 1

使用“单词邮件”时，您没有使用Outlook。这里描述了如何从Word调用Outlook。一旦Outlook打开，您可以使用Outlook VBA。

http://www.howto-outlook.com/howto/senddocasmail.htm

未经测试，你将需要删除你不需要的部分。

Sub SendDocAsMail() 

Dim oOutlookApp As Outlook.Application 
Dim oItem As Outlook.MailItem 

On Error Resume Next 

'Start Outlook if it isn't running 
Set oOutlookApp = GetObject(, "Outlook.Application") 
If Err <> 0 Then 
    Set oOutlookApp = CreateObject("Outlook.Application") 
End If 

On Error GoTo 0 ' <=== Important to see errors now if there are any 

'Create a new message 
Set oItem = oOutlookApp.CreateItem(olMailItem) 


' -------------------------- 
'Set oItem = oOutlookApp.ActiveInspector.CurrentItem 
If oItem.SenderName = donations Then 
oItem.Categories = "donations" 
ElseIf oItem.SenderName = "Donations" Then 
oItem.Categories = "donations" 
End If 
' -------------------------- 



'Allow the user to write a short intro and put it at the top of the body 
Dim msgIntro As String 
msgIntro = InputBox("Write a short intro to put above your default " & _ 
      "signature and current document." & vbCrLf & vbCrLf & _ 
      "Press Cancel to create the mail without intro and " & _ 
      "signature.", "Intro") 

'Copy the open document 
Selection.WholeStory 
Selection.Copy 
Selection.End = True 

'Set the WordEditor 
Dim objInsp As Outlook.Inspector 
Dim wdEditor As Word.Document 
Set objInsp = oItem.GetInspector 
Set wdEditor = objInsp.WordEditor 

'Write the intro if specified 
Dim i As Integer 
If msgIntro = IsNothing Then 
    i = 1 
    'Comment the next line to leave your default signature below the document 
    wdEditor.Content.Delete 
Else 
    'Write the intro above the signature 
    wdEditor.Characters(1).InsertBefore (msgIntro) 
    i = wdEditor.Characters.Count 
    wdEditor.Characters(i).InlineShapes.AddHorizontalLineStandard 
    wdEditor.Characters(i + 1).InsertParagraph 
    i = i + 2 
End If 

'Place the current document under the intro and signature 
wdEditor.Characters(i).PasteAndFormat (wdFormatOriginalFormatting) 

'Display the message 
oItem.Display 

'Clean up 
Set oItem = Nothing 
Set oOutlookApp = Nothing 
Set objInsp = Nothing 
Set wdEditor = Nothing 

End Sub 

编辑：添加，根据评论。这是初学者旅行的一步。

“由于此宏也使用Outlook功能来创建邮件，因此我们必须添加对项目的引用。为此，请选择Tools-> References ...并选择Microsoft Outlook 12.0 Object Library（或使用Outlook 2010时为14.0）。之后按OK。“

Answer 2

默认情况下，最新Outlook版本使用Word作为电子邮件编辑器。没有必要检查编辑器类型。 Inspector类的WordEditor属性返回正在显示的消息的Microsoft Word文档对象模型。你可以在Chapter 17: Working with Item Bodies中阅读更多。

另外您可能会发现文章How to automate Outlook and Word by using Visual C# .NET to create a pre-populated e-mail message that can be edited有帮助。