指示 VBA 将电子表格的副本保存在 Outlook 的指定文件夹中答案

【问题标题】：Direct VBA to save a copy of a spread sheet in a designated folder in outlook指示 VBA 将电子表格的副本保存在 Outlook 的指定文件夹中
【发布时间】：2013-01-14 15:44:12
【问题描述】：

我有获取所选工作表副本的代码，但在指定 Outlook 中的哪个草稿文件夹将草稿电子邮件发送到时遇到了困难。我要将草稿电子邮件发送到的文件夹的名称是“Draft NDIC”。代码如下：

Sub Mail_Body_NDIC()
  Dim rng As Range
  Dim OutApp As Object
  Dim OutMail As Object
  With Application
      .EnableEvents = False
      .ScreenUpdating = False
  End With

  Set rng = Nothing
  Set rng = Sheets("NDIC Renewals").UsedRange
  'You can also use a sheet name
  'Set rng = Sheets("YourSheet").UsedRange

  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(0)

  On Error Resume Next
  With OutMail
      .To = "dvandervieren@enerplus.com"
      .CC = ""
      .BCC = ""
      .Subject = "NDIC Renewals for the Next 90 Days"
      .Body = ""
      .HTMLBody = RangetoHTML(rng)
      .Save   'or use .Display
  End With
  On Error GoTo 0

  With Application
      .EnableEvents = True
      .ScreenUpdating = True
  End With

  Set OutMail = Nothing
  Set OutApp = Nothing
 End Sub

【问题讨论】：

我很犹豫是否要给出这个答案，因为简单的谷歌搜索会返回答案 quit easily... 您需要使用 .Move 方法，并以 olDestFolder 作为参数.我引用的链接将向您展示如何做到这一点。
@ScottHoltzman 在我看来，您不妨发布一个答案，因为它似乎在 SO 上不可用。 :)

标签： excel vba outlook

【解决方案1】：

"您需要使用 .Move 方法，以 oldDestFolder 作为参数。"大卫·范德维伦

http://blog.saieva.com/2010/03/27/move-messages-to-folders-with-outlook-vba/

【讨论】：