[ツリー表示へ] [ワード検索] [Home]
タイトル ： 添付ファイルの自動メール送信で送信済みアイテムに残さない方法を教えてください。 投稿日 ： 2008/02/04(Mon) 01:53 投稿者 ： hiro
| 言語: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 |
をクリックするとツリー全体を一括表示します） - 添付ファイルの自動メール送信で送信済みアイテムに残さない方法.. - hiro 08/02/04-01:53No.11320