返回列表 上一主題 發帖

為何執行excel vba之後信件仍停在outlook寄件夾呢？

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-9-12 17:47 | 只看該作者

為何執行excel vba之後信件仍停在outlook寄件夾呢？

各位大大好：
       
        小弟利用EXCEL VBA方式E-MAIL
文件資料並隨附檔案。可是卻發現執行之後；
該E-MAIL信件資料仍停留在OUTLOOK寄件夾內。
非要去開啟OUTLOOK再按執行寄件的動作才會
將此信件寄送出去呢？

'outlook 2002版本
'excel 2002版本

Sub SendWithAtt()

    '引用Microsoft outlook object library

    Dim olApp As Outlook.Application
    Dim olMail As MailItem
    Dim CurrFile As String

    Set olApp = New Outlook.Application
    Set olMail = olApp.CreateItem(olMailItem)


    CurrFile = "d:\temp\test.txt"

    With olMail
        .To = "[email protected]"
        .Subject = "These one files"
        .Body = "測試信件"
        .Attachments.Add CurrFile
        '.Display
        .Send
    End With

    Set olMail = Nothing
    Set olApp = Nothing

End Sub

感謝各位大大。
收藏 分享

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
130 
主題
8 
精華
0 
積分
143 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-8-3 
2#
發表於 2010-9-13 13:42 | 只看該作者
回復 1# dechiuan999

可能是卡在OutLook 安全性,試試 CDO寄信方式

相關網頁:
http://www.pro-soho.com/Blog/article.asp?id=295
http://aqr199xx.pixnet.net/blog/post/23750101

TOP

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
3#
發表於 2010-9-13 15:27 | 只看該作者
感謝大大。

小弟先收下
試試。
感恩！

TOP

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
4#
發表於 2010-9-17 10:00 | 只看該作者
謝謝大大。

小弟引用下語法
已可達成e-mail了。

'Microsoft CDO for Windows 2000 Library
Private Sub CommandButton1_Click()   
   
    Dim mPath As String
    Dim mFilename As String, mFile$
    Dim mStr$
    Dim myMail As Object   
   
    mPath = "D:\temp\"   
    mFilename = TextBox1.Text   
    If Len(mFilename) = 0 Then        
        MsgBox "請先輸入客戶編號"
        Exit Sub        
    End If
   
    mFile = mPath & mFilename & ".pdf"   
    mStr = Dir(mFile)
   
    If Len(mStr) = 0 Then        
        MsgBox "輸入檔名不存在" & vbCrLf & vbCrLf & "請重新輸入檔名"
        Exit Sub        
    End If
   
   Set myMail = CreateObject("CDO.Message")   
   
   myMail.BodyPart.Charset = "big5"   
   myMail.Subject = "KUOZUI MOTORS LTD" & mFilename
   myMail.Subject = "CUSTOMER CORP" & mFilename   
   myMail.From = "[email protected]"
   myMail.To = "[email protected]"   
   myMail.CC = "[email protected]"   
   myMail.TextBody = "AUTO PARTS"
   myMail.AddAttachment (mFile)
   myMail.Send   
   
   Set myMail = Nothing   
   TextBox1.Text = ""
   TextBox1.SetFocus      
End Sub

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
返回列表 上一主題