- 日時： 2009/12/27 16:01
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[通信][][] *
* キーワード：MAPIMessages,E-Mail,AttachmentName,OutlookExpress,, *
***********************************************************************************
-----------------------------------------------------------------------------------
題 名 ： 添付ファイルの自動メール送信で送信済みアイテムに残さない方法を教えて下さい
記事No ： 11320
投稿日 ： 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
 |
添付ファイルをつけてメールを送信(VB6.0)