CDOEX でメール送信時、送信済みアイテムに残すには

すべての返信

• 

  

  0

  サインインして投票

  自己追記なのですが、
  CDOEX と ExOLEDB を用いて、「送信済みアイテム」に直接メールアイテムを格納することもやってみました。
  結果は、一応格納されたのですが、Outlookで見ると、「まだ送信されていないメールです」という表示がでてしまいますので、この表示を取り除ける方法があるのであれば、こういう解決でもかまいません。
  
  ご存じの情報があれば、少しでもかまいませんのでお力をお貸しください。
  よろしくお願いいたします。
  
  参考：送信済みアイテムに直接メールアイテムを格納する方法( on Exchange 2003)
  
      Dim t As New CDO.Message
      
      Dim con As New ADODB.Connection
      con.Provider = "ExOLEDB.DataSource"
     
      Dim Pers As New CDO.Person
      Dim Mbx As CDO.IMailbox
     
      Dim strUrl As String
      strUrl = "mailto:test01@hoge.local"
      Pers.DataSource.Open strUrl, Nothing, adModeRead, adFailIfNotExists, adOpenSource, "", ""
      Set Mbx = Pers.GetInterface("IMailbox")
     
      With t
          .From = "test01@hoge.local"
          .To = "test02@hoge.local"
          .Subject = "送信済みアイテムに直接登録"
          .TextBody = "送信済みアイテムに直接登録 with CDOEX / ExOLEDB"
         
          con.Open Mbx.BaseFolder, "", "", -1
          .DataSource.SaveToContainer Mbx.SentItems, Nothing, adModeReadWrite, adCreateNonCollection, adOpenSource, "", ""
          con.Close
      End With
  

  2009年6月15日 9:08

  返信

  |

  引用
• 

  

  0

  サインインして投票

  英語のフォーラムの方にマルポしてまして(多分無茶苦茶な英語ですが。。。)、
  ヒントを頼りに解決しましたので、リンクをはりました。基本的なことだったようで。。。
  
  http://social.technet.microsoft.com/Forums/en-US/exchangesvrdevelopment/thread/1f5ae329-efb0-470d-99c9-39decf83b72c
  
  ありがとうございました。
  

  • 回答としてマーク Trimmer 2 2009年6月18日 1:06

  2009年6月18日 1:05

  返信

  |

  引用