言語:VB6
OS:WindowsXP
メーラー:OutlookExpress6

下記のような、添付ファイルをつけて自動的にメール送信するプログラムを作っています。
下記で上手くメール送信できるのですが、
OutlookExpressの送信済みアイテムに送信履歴が溜まって困っています。
送信後に自動的に削除する方法はありませんか？
どなたか、添付ファイルのメール自動送信に詳しい方、教えていただけませんか？

Private Sub Command1_Click()
      Const SESSION_SIGNON = 1
      Const MESSAGE_COMPOSE = 6
      Const ATTACHTYPE_DATA = 0
      Const RECIPTYPE_TO = 1
      Const RECIPTYPE_CC = 2
      Const MESSAGE_RESOLVENAME = 13
      Const MESSAGE_SEND = 3
      Const SESSION_SIGNOFF = 2

      sendfile_name="test.dat""    
      sendfile_path_name="c:\test.dat""    

      MAPISession1.Action = SESSION_SIGNON
      MAPIMessages1.SessionID = MAPISession1.SessionID

      MAPIMessages1.Action = MESSAGE_COMPOSE   'Start a new message

      MAPIMessages1.MsgSubject = "test"
      MAPIMessages1.MsgNoteText = "test"

      MAPIMessages1.AttachmentPosition = 0
      MAPIMessages1.AttachmentType = ATTACHTYPE_DATA



      MAPIMessages1.AttachmentName = sendfile_name
      MAPIMessages1.AttachmentPathName = sendfile_path_name


      MAPIMessages1.RecipIndex = 0                    'First recipient
      MAPIMessages1.RecipType = RECIPTYPE_TO          'Recipient in TO line
      MAPIMessages1.RecipDisplayName = "***@***.com"   'e-mail name
      
      MAPIMessages1.Action = MESSAGE_RESOLVENAME
      MAPIMessages1.Action = MESSAGE_SEND
      MAPISession1.Action = SESSION_SIGNOFF
      
      MsgBox "メール送信が完了しました。"
End Sub

> OutlookExpressの送信済みアイテムに送信履歴が溜まって困っています。
> 送信後に自動的に削除する方法はありませんか？

保存する必要がないのなら、オプションの[送信済みアイテム]に送信メッセージの
コピーを保存する のチェックを外しておけばいいのでは。

ありがとうございます。目からウロコでした。
難しく考えすぎていました。助かりました。
本当にありがとうございます。