0

選択したワークシートのコピーを取得するコードがありますが、下書きメールを送信する 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
4

1 に答える 1

0

「olDestFolder を引数として .Move メソッドを使用する必要があります。」デヴィッド・ヴァン・デル・ヴィーレン

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

于 2015-03-01T18:45:32.797 に答える