tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
添付ファイルをつけてメールを送信(VB6.0) ( No.1 )  [親スレッドへ]
日時: 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



 [スレッド一覧へ] [親スレッドへ]