樓主搞定了嗎，我遇到了和你同樣的問題，現在也在想辦法不讓對話框彈出


我用了兩种方法：

方法一：Outlook開發，代碼如下

Dim i As Integer
Dim j As Integer
Dim objOLApp As Outlook.Application
Dim objNameSpace As NameSpace
Dim objMail As MailItem
Dim objAL As AddressList
Set objOLApp = CreateObject("Outlook.Application")

Set objNameSpace = objOLApp.GetNamespace("MAPI")
For i = 1 To objNameSpace.AddressLists.Count
    Debug.Print objNameSpace.AddressLists(i)
    Set objAL = objNameSpace.AddressLists(i)
    For j = 1 To objAL.AddressEntries.Count - 1
        Debug.Print objAL.AddressEntries(j)
    Next j
Next i
Set objMail = objOLApp.CreateItem(olMailItem)
objMail.Recipients.Add ("Yang Hong Wei")
objMail.Subject = "How are you"
objMail.Body = "sfjkasfjksfjskfjskfj"
objMail.Attachments.Add ("C:\test\list.txt")
objMail.Send
Set objMail = Nothing
Set objNameSpace = Nothing
Set objOLApp = Nothing

方法二：用MAPISession1、MAPIMessages1控件，代碼如下

MAPISession1.DownLoadMail = False
MAPISession1.LogonUI = False
MAPISession1.NewSession = True

MAPISession1.UserName = "Yang Hong Wei"
MAPISession1.Password = "12345"
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.MsgIndex = -1
MAPIMessages1.RecipType = 1

MAPIMessages1.RecipAddress = "Zeng Jian Xiong"
MAPIMessages1.AddressResolveUI = False
MAPIMessages1.ResolveName
MAPIMessages1.MsgSubject = Trim("try")
MAPIMessages1.MsgNoteText = Trim("this is E-mail test program")
MAPIMessages1.AttachmentPathName = "C:\test\list.txt"
MAPIMessages1.Send (False)

以上兩种方法都能發出郵件，但是會出現一個對話框（提示：某一個郵件試圖發出郵件，問你是否同意）。


摟住搞定了，別忘了告訴我一下啊，E-mail:yhwhit@yahoo.com