返回列表 上一主題 發帖

用outlook寄信

ssooi

帖子
37 
主題
15 
精華
0 
積分
72 
點名
0  
作業系統
win10 
軟體版本
0 
閱讀權限
20 
註冊時間
2020-7-23 
最後登錄
2022-5-27 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-8-7 19:20 | 只看該作者

用outlook寄信

我用了以下的方法成功的用outlook寄信了
但是有個麻煩的地方就是執行之前
必須先開啟outlook

請問
有沒有辦法可以不用先開啟OUTLOOK，然後程式也能正常執行?
或是在執行前VBA可以自動讓OUTLOOK啟動?
感謝各位高手



收藏 分享

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2020-8-11 23:30 | 只看該作者
我用了以下的方法成功的用outlook寄信了
但是有個麻煩的地方就是執行之前
必須先開啟outlook

請問
有 ...
ssooi 發表於 2020-8-7 19:20


用底下的指令是可以開啟 Outlook 程式啦.
  1. Dim dTaskID As Double
  2. dTaskID = Shell("OUTLOOK.EXE", 1)
  3. If Err <> 0 Then
  4.   MsgBox "開啟 Outlook 程式失敗..."
  5.   Exit Sub
  6. End If
複製代碼
不過,
我執行你的程式後發現 :
Set OLApp = New Outlook.Application 執行後,
是有開啟 Outlook 程式的(只是沒顯示出來,但工作管理員看的到),
執行到最後時信件視窗還是會秀出來,
且似乎(我沒試)也可以寄出該信件. (類似你說的不開啟Outlook就寄信)

TOP

ssooi

帖子
37 
主題
15 
精華
0 
積分
72 
點名
0  
作業系統
win10 
軟體版本
0 
閱讀權限
20 
註冊時間
2020-7-23 
最後登錄
2022-5-27 
3#
發表於 2020-8-21 23:35 | 只看該作者
回復 2# luhpro

真的太感謝了~
方便再請問
信件寄出後，該怎麼樣"自動"讓outlook程式關閉呢
謝謝你!

TOP

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
4#
發表於 2020-8-23 00:17 | 只看該作者
本帖最後由 n7822123 於 2020-8-23 00:20 編輯

回復 3# ssooi


沒用過Outlook ，但是微軟的邏輯應該都是一樣的(參考Excel & IE物件)

Set OLK=CreateObject("Outlook.Application")  '創一個  Outlook 物件  
OLK.Visible=True  '顯示 Outlook 視窗
OLK.Quit        '關閉Outlook
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

vanguarx

帖子
41 
主題
8 
精華
0 
積分
64 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE2010 
閱讀權限
20 
註冊時間
2015-3-11 
最後登錄
2020-10-7 
5#
發表於 2020-10-5 16:21 | 只看該作者
https://docs.microsoft.com/en-us/previous-versions/office/developer/officetalk2010/ff458119(v=office.11)?redirectedfrom=MSDN

http://www.rondebruin.nl/win/section1.htm
這裡有很詳細說明 如何寄信 或 如何 夾帶附檔之類的

TOP

        靜思自在 : 人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。
返回列表 上一主題